--- loncom/interface/lonsimplepage.pm 2008/12/17 00:44:53 1.61 +++ loncom/interface/lonsimplepage.pm 2009/02/16 10:33:32 1.66 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Page Editor # -# $Id: lonsimplepage.pm,v 1.61 2008/12/17 00:44:53 ehlerst Exp $ +# $Id: lonsimplepage.pm,v 1.66 2009/02/16 10:33:32 biermanm 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, @@ -253,6 +253,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}; @@ -277,7 +284,7 @@ sub handler { $syllabus{'uploaded.photourl'}); $image=''; + />'; if ($target eq 'tex') { $image=&Apache::lonxml::xmlparse($r,'tex',$image); } @@ -290,13 +297,13 @@ sub handler { ''. ''. '