--- loncom/interface/lonsimplepage.pm 2008/10/20 16:29:59 1.57 +++ loncom/interface/lonsimplepage.pm 2009/05/20 02:37:30 1.59.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Page Editor # -# $Id: lonsimplepage.pm,v 1.57 2008/10/20 16:29:59 bisitz Exp $ +# $Id: lonsimplepage.pm,v 1.59.2.1 2009/05/20 02:37:30 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -138,7 +138,7 @@ 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'; } @@ -382,7 +382,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, ); @@ -391,16 +391,16 @@ sub display_group_links { href => '/adm/groupboards?group='.$group.$refarg, ); %{$menu{'chat'}} = ( - text => 'Group chat', + text => 'Group Chat Room', href => "javascript:group_chat('$group')", ); %{$menu{'files'}} = ( - text => 'File repository', + text => 'Group Portfolio', 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))) { @@ -409,16 +409,27 @@ sub display_group_links { } } if (@available > 0) { - my $output = '
'.&mt($menu{$tool}{text}).' | '; + $output .= '
'.&mt($menu{$tool}{text}).' | '. - &mt($menu{$tool}{text}).' | '; + $output .= &Apache::loncommon::start_data_table_row() + .'' + .&mt($menu{$tool}{text}).' | ' + .&Apache::loncommon::end_data_table_row(); } } - $output .= '