--- loncom/interface/lonsimplepage.pm 2007/07/13 00:29:21 1.51 +++ loncom/interface/lonsimplepage.pm 2009/02/25 13:25:52 1.72 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Page Editor # -# $Id: lonsimplepage.pm,v 1.51 2007/07/13 00:29:21 albertel Exp $ +# $Id: lonsimplepage.pm,v 1.72 2009/02/25 13:25:52 neumanie Exp $ # # Copyright Michigan State University Board of Trustees # @@ -31,6 +31,7 @@ package Apache::lonsimplepage; use strict; use Apache::Constants qw(:common); use Apache::loncommon; +use Apache::lontemplate; use Apache::lonnet; use Apache::lontexconvert; use Apache::lonfeedback; @@ -91,7 +92,7 @@ sub handler { my %curr_group = (); my %groupinfo = (); if ($db_name =~ /^grppage_/) { - my ($group)=(split(m{/},$r->uri))[4]; + $group = (split(m{/},$r->uri))[4]; $group =~ s/\W//g; my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group); if (!%curr_groups) { @@ -138,9 +139,9 @@ sub handler { # --------------------------------------- There is such a user, get environment if ($target ne 'tex') { - my $title = 'Course Page'; + my $title = 'Simple Course Page'; if ($group ne '') { - $title = 'Group Page'; + $title = 'Simple Group Page'; } my $start_page = &Apache::loncommon::start_page($title,undef, @@ -213,26 +214,7 @@ sub handler { } if ($forcestudent or $target eq 'tex') { $allowed=0; } - - if ($allowed) { - $r->print('
'.
- &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'
'.&mt('Show Student View').''.
- &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'