--- 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 {
''.
''.
'