--- loncom/interface/lonbulletin.pm 2004/02/13 15:01:29 1.19
+++ loncom/interface/lonbulletin.pm 2004/04/30 23:13:52 1.20
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Bulletin Board Handler
#
-# $Id: lonbulletin.pm,v 1.19 2004/02/13 15:01:29 www Exp $
+# $Id: lonbulletin.pm,v 1.20 2004/04/30 23:13:52 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -118,8 +118,11 @@ ENDDOCUMENT
if (($ENV{'form.uploaddoc.filename'}) &&
($ENV{'form.storeupl'}) && ($allowed)) {
if ($ENV{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) {
- $syllabus{'uploaded.photourl'}=
- &Apache::lonnet::userfileupload('uploaddoc',1);
+ if ($syllabus{'uploaded.photourl'}) {
+ &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});
+ }
+ $syllabus{'uploaded.photourl'}=
+ &Apache::lonnet::userfileupload('uploaddoc',1,'bulletin');
}
$syllabus{'uploaded.lastmodified'}=time;
&Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);
@@ -138,9 +141,10 @@ ENDDOCUMENT
# ---------------------------------------------------------------- Get syllabus
if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
if ($syllabus{'uploaded.photourl'}) {
- $r->print('');
+ &Apache::lonnet::allowuploaded('/adm/syllabus',
+ $syllabus{'uploaded.photourl'});
+ $r->print('');
}
if ($allowed) {
$r->print(