--- loncom/interface/lonsimplepage.pm 2008/10/20 16:29:59 1.57 +++ loncom/interface/lonsimplepage.pm 2008/12/17 00:44:53 1.61 @@ -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.61 2008/12/17 00:44:53 ehlerst 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; @@ -215,11 +216,11 @@ sub handler { if ($forcestudent or $target eq 'tex') { $allowed=0; } if ($allowed) { - $r->print('

'. - &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')) - .'
' + $r->print('

'.'
' .''.&mt('Show Student View').''. - &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'

'); + &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'). + &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')) + .'

'); } elsif ($privileged and $target ne 'tex') { my $edittext = &mt('Edit'); if ($group ne '') { @@ -270,17 +271,17 @@ sub handler { if ((($syllabus{'uploaded.lastmodified'}) && (($group ne '' && ($group_home_view || $group_edit_perm || $group_view_perm)) || ($group eq ''))) || ($allowed)) { + my $image; if ($syllabus{'uploaded.photourl'}) { &Apache::lonnet::allowuploaded('/adm/smppg', $syllabus{'uploaded.photourl'}); - my $image=''; if ($target eq 'tex') { $image=&Apache::lonxml::xmlparse($r,'tex',$image); - } - $r->print($image); - } + } + } if ($allowed) { $r->print( '
'. @@ -291,6 +292,11 @@ sub handler { '
'. ''); } + &Apache::lontemplate::start_columnSection($r); + if($allowed){ + $r->print($image.'
 
'); + } + &Apache::lontemplate::start_ContentBox($r,$allowed); foreach my $field (sort(keys(%syllabusfields))) { if (($syllabus{$field}) || ($allowed) || ($field eq 'abb_links' && $group ne '')) { @@ -312,6 +318,9 @@ sub handler { $r->print('
'); } elsif ($field eq 'aaa_title') { if ($target ne 'tex') { + if($allowed){ + $r->print('

'); + } $r->print('

'.$message.'

'); } else { my $safeinit; @@ -319,36 +328,29 @@ sub handler { } if ($allowed) { if ($env{'form.grade_target'} ne 'tex') { - $r->print( - '

'.&mt('Title').'

'); + $r->print('

'.&mt('Title').'

'); + &Apache::lontemplate::print_editbox_template($r,$syllabus{$field},$field); + $r->print('

'); } else { my $safeinit; $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{$field},$safeinit)); } } } else { - if (($field ne 'bbb_content') || ($allowed)) { - if ($target ne 'tex') { - $r->print('

'.$syllabusfields{$field}.'

'); - } else { - my $safeinit; - $r->print(&Apache::lonxml::xmlparse($r,'tex','

'.$syllabusfields{$field}.'

')); - } - } if ($target ne 'tex') { - $r->print('
'. - $message.'
'); + if($allowed){ + $r->print('

'); + } + &Apache::lontemplate::print_template($r,$syllabusfields{$field},$message,$allowed); } else { my $safeinit; + $r->print(&Apache::lonxml::xmlparse($r,'tex','

'.$syllabusfields{$field}.'

')); $r->print(&Apache::lonxml::xmlparse($r,'tex',$message)); } if ($allowed) { if ($target ne 'tex') { - $r->print('
'); + &Apache::lontemplate::print_editbox_template($r,$syllabus{$field},$field); + $r->print('

'); } else { my $safeinit; $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{$field},$safeinit)); @@ -357,6 +359,16 @@ sub handler { } } } + &Apache::lontemplate::end_ContentBox($r); + if(!$allowed){ + $r->print($image); + } + &Apache::lontemplate::end_columnSection($r); + if ($allowed) { + $r->print('

'.'
' + .''.&mt('Show Student View').''. + &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'

'); + } if ($allowed && ($env{'form.grade_target'} ne 'tex')) { $r->print(&Apache::lonhtmlcommon::htmlareaselectactive ('bbb_content').'
'); @@ -382,7 +394,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 +403,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))) {