--- loncom/interface/lonsimplepage.pm 2007/09/10 19:22:22 1.52 +++ 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.52 2007/09/10 19:22:22 raeburn 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'; } @@ -216,7 +216,9 @@ sub handler { 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_TextBoxes',&mt('Help with filling in text boxes')) + .'
' + .''.&mt('Show Student View').''. &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'

'); } elsif ($privileged and $target ne 'tex') { my $edittext = &mt('Edit'); @@ -283,10 +285,11 @@ sub handler { $r->print( '
'. ''. - '

Upload a Photo

'. + '

'.&mt('Upload a Photo').'

'. ''. - ''. - '
'); + ''. + '
'. + ''); } foreach my $field (sort(keys(%syllabusfields))) { if (($syllabus{$field}) || ($allowed) || @@ -298,7 +301,9 @@ sub handler { if ($allowed) { $message=&Apache::lonspeller::markeduptext($message); } - $message=&Apache::lontexconvert::msgtexconverted($message); + if ($target ne 'tex') { + $message=&Apache::lontexconvert::msgtexconverted($message); + } if ($field eq 'abb_links' && $group ne '') { $r->print('
'); @@ -315,9 +320,9 @@ sub handler { if ($allowed) { if ($env{'form.grade_target'} ne 'tex') { $r->print( - '
Title
'); + ''); } else { my $safeinit; $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{$field},$safeinit)); @@ -343,7 +348,7 @@ sub handler { if ($target ne 'tex') { $r->print('
'); + ''); } else { my $safeinit; $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{$field},$safeinit)); @@ -377,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, ); @@ -386,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))) { @@ -404,16 +409,27 @@ sub display_group_links { } } if (@available > 0) { - my $output = ''; + my $output = ''; + if ($target eq 'tex') { + $output = '
'; + } else { + $output = &Apache::loncommon::start_data_table(); + } foreach my $tool (@available) { if ($target eq 'tex') { - $output .= ''; + $output .= ''; } else { - $output .= ''; + $output .= &Apache::loncommon::start_data_table_row() + .'' + .&Apache::loncommon::end_data_table_row(); } } - $output .= '
'.&mt($menu{$tool}{text}).'
'.&mt($menu{$tool}{text}).'
'. - $menu{$tool}{text}.'' + .&mt($menu{$tool}{text}).'
'; + if ($target eq 'tex') { + $output .= ''; + } else { + $output .= &Apache::loncommon::end_data_table(); + } if ($target eq 'tex') { $r->print(&Apache::lonxml::xmlparse($r,'tex',&mt('Available functions').'

'.$output)); } else { @@ -424,7 +440,7 @@ sub display_group_links { if ($context eq 'edit') { $output = &mt('No group functionality.'); } else { - $output = &mt('No group functionality (e.g., e-mail, discussion, chat or file upload) is currently available to you in this group: [_1].',&unescape($groupinfo{'description'})); + $output = &mt('No group functionality (e.g., e-mail, discussion, chat room or file upload) is currently available to you in this group: [_1].',''.&unescape($groupinfo{'description'}).''); } if ($target eq 'tex') { $r->print(&Apache::lonxml::xmlparse($r,'tex',$output)); @@ -442,11 +458,12 @@ sub grouppage_breadcrumbs { text=>"Groups", title=>"Display Groups"}, {href=>"/adm/$cdom/$cnum/$group/smppg?ref=grouplist", - text=>"Group: $description", - title=>"Go to group's home page"}, + text=>&mt('Group:')." $description", + title=>&mt("Go to group's home page"), + no_mt=>1,}, ); my $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Group page - [_1]', - $description)); + $description),undef,undef,undef,undef,1); return $output; }