Diff for /loncom/interface/lonbulletin.pm between versions 1.19 and 1.20

version 1.19, 2004/02/13 15:01:29 version 1.20, 2004/04/30 23:13:52
Line 118  ENDDOCUMENT Line 118  ENDDOCUMENT
       if (($ENV{'form.uploaddoc.filename'}) &&        if (($ENV{'form.uploaddoc.filename'}) &&
           ($ENV{'form.storeupl'}) && ($allowed)) {            ($ENV{'form.storeupl'}) && ($allowed)) {
    if ($ENV{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) {     if ($ENV{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) {
              $syllabus{'uploaded.photourl'}=        if ($syllabus{'uploaded.photourl'}) {
                  &Apache::lonnet::userfileupload('uploaddoc',1);    &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});
         }
         $syllabus{'uploaded.photourl'}=
     &Apache::lonnet::userfileupload('uploaddoc',1,'bulletin');
    }     }
           $syllabus{'uploaded.lastmodified'}=time;            $syllabus{'uploaded.lastmodified'}=time;
           &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);            &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);
Line 138  ENDDOCUMENT Line 141  ENDDOCUMENT
 # ---------------------------------------------------------------- Get syllabus  # ---------------------------------------------------------------- Get syllabus
     if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {      if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
        if ($syllabus{'uploaded.photourl'}) {         if ($syllabus{'uploaded.photourl'}) {
    $r->print('<img src="'.     &Apache::lonnet::allowuploaded('/adm/syllabus',
              &Apache::lonnet::tokenwrapper($syllabus{'uploaded.photourl'}).    $syllabus{'uploaded.photourl'});
              '" align="right" />');     $r->print('<img src="'.$syllabus{'uploaded.photourl'}.
          '" align="right" />');
        }         }
        if ($allowed) {         if ($allowed) {
            $r->print(             $r->print(

Removed from v.1.19  
changed lines
  Added in v.1.20


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>