--- loncom/interface/lonsimplepage.pm 2008/12/16 19:01:45 1.60 +++ loncom/interface/lonsimplepage.pm 2009/02/20 17:45:40 1.69 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Page Editor # -# $Id: lonsimplepage.pm,v 1.60 2008/12/16 19:01:45 ehlerst Exp $ +# $Id: lonsimplepage.pm,v 1.69 2009/02/20 17:45:40 neumanie Exp $ # # Copyright Michigan State University Board of Trustees # @@ -139,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, @@ -216,28 +216,7 @@ sub handler { if ($forcestudent or $target eq 'tex') { $allowed=0; } if ($allowed) { - $r->print('
'.'
'
- .''.&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'))
- .'
'.&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')) .'
'); } if (($env{'form.uploaddoc.filename'} and $target ne 'tex') && ($env{'form.storeupl'}) && ($allowed)) { @@ -256,6 +235,13 @@ sub handler { $syllabus{'uploaded.lastmodified'}=time; &Apache::lonnet::put($db_name,\%syllabus,$dom,$crs); } + if ($allowed && $env{'form.delupl'}) { + if ($syllabus{'uploaded.photourl'}) { + &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'}); + delete($syllabus{'uploaded.photourl'}); + &Apache::lonnet::del('simplepage',['uploaded.photourl']); + } + } if (($allowed) && ($env{'form.storesyl'})) { foreach my $syl_field (keys(%syllabusfields)) { my $field=$env{'form.'.$syl_field}; @@ -280,11 +266,35 @@ sub handler { $syllabus{'uploaded.photourl'}); $image=''; + />'; if ($target eq 'tex') { $image=&Apache::lonxml::xmlparse($r,'tex',$image); } } + if ($target ne 'tex') { + if($allowed || $privileged){ + &Apache::lontemplate::print_start_page_functions($r); + if($allowed){ + &Apache::lontemplate::print_functions_content($r,''.&mt('Show Student View').''. + &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView')); + }elsif($privileged){ + my $edittext = &mt('Edit'); + if ($group ne '') { + $edittext = &mt('Edit Group Homepage'); + } + &Apache::lontemplate::print_functions_content($r,''.$edittext.''); + if ($group ne '') { + if ($group_edit_perm) { + &Apache::lontemplate::print_functions_content($r,' '. + ''. + &mt('Edit Group Settings').''); + } + } + } + &Apache::lontemplate::print_end_page_functions($r); + } + } if ($allowed) { $r->print( ''); @@ -374,7 +382,7 @@ sub handler { if ($group ne '') { &display_group_links($r,$target,$group,'view',$refarg,%groupinfo); } else { - $r->print(&mt('No page information provided.
')); + $r->print(''.&mt('No page information provided.').'
'); } } if ($env{'form.grade_target'} ne 'tex') { @@ -417,16 +425,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 .= '