--- loncom/interface/lonsimplepage.pm 2008/01/18 16:41:27 1.53 +++ loncom/interface/lonsimplepage.pm 2009/02/16 10:33:32 1.66 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Page Editor # -# $Id: lonsimplepage.pm,v 1.53 2008/01/18 16:41:27 raeburn Exp $ +# $Id: lonsimplepage.pm,v 1.66 2009/02/16 10:33:32 biermanm 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; @@ -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, @@ -215,9 +216,11 @@ 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').'
'.'
'
+ .''.&mt('Show Student View').''.
+ &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').
+ &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes'))
+ .'
No page information provided.
')); + $r->print(''.&mt('No page information provided.').'
'); } } if ($env{'form.grade_target'} ne 'tex') { @@ -378,7 +401,7 @@ sub display_group_links { my @available = (); my %menu = (); %{$menu{'email'}} = ( - text => 'Group e-mail', + text => 'Group Message', href => '/adm/email?compose=group&group='.$group. $refarg, ); @@ -387,16 +410,16 @@ sub display_group_links { href => '/adm/groupboards?group='.$group.$refarg, ); %{$menu{'chat'}} = ( - text => 'Group chat', + text => 'Group Chat', href => "javascript:group_chat('$group')", ); %{$menu{'files'}} = ( - text => 'File repository', + text => 'File Repository', href => '/adm/coursegrp_portfolio?group='.$group. $refarg, ); %{$menu{'roster'}} = ( - text => 'Membership roster', + text => 'Membership Roster', href => '/adm/grouproster?group='.$group.$refarg, ); foreach my $tool (sort(keys(%menu))) { @@ -405,16 +428,27 @@ sub display_group_links { } } if (@available > 0) { - my $output = ''.&mt($menu{$tool}{text}).' | '; + $output .= '
'.&mt($menu{$tool}{text}).' | '. - $menu{$tool}{text}.' | '; + $output .= &Apache::loncommon::start_data_table_row() + .'' + .&mt($menu{$tool}{text}).' | ' + .&Apache::loncommon::end_data_table_row(); } } - $output .= '