--- loncom/interface/lonsimplepage.pm 2007/07/13 00:29:21 1.51 +++ loncom/interface/lonsimplepage.pm 2009/02/13 17:26:56 1.65 @@ -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.65 2009/02/13 17:26:56 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) { @@ -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') { @@ -377,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, ); @@ -386,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))) { @@ -404,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 .= '