[BACK]Return to lonbulletin.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonbulletin.pm between versions 1.7 and 1.9

version 1.7, 2003/02/28 16:16:59 version 1.9, 2003/03/10 14:20:07
Line 51  ENDDOCUMENT Line 51  ENDDOCUMENT
     my (undef,undef,undef,undef,$marker)=split(/\//,$r->uri);      my (undef,undef,undef,undef,$marker)=split(/\//,$r->uri);
 # Is this even in a course?  # Is this even in a course?
     unless ($ENV{'request.course.id'}) {      unless ($ENV{'request.course.id'}) {
  $r->print('<body>Not in a course</body>');   $r->print('</head><body>Not in a course</body></html>');
         return OK;          return OK;
     }      }
   
Line 90  ENDDOCUMENT Line 90  ENDDOCUMENT
 # --------------------------------------- There is such a user, get environment  # --------------------------------------- There is such a user, get environment
   
     $r->print('</head>'.&Apache::loncommon::bodytag      $r->print('</head>'.&Apache::loncommon::bodytag
             ("Bulletin Board/Discussion",$forcestudent,$addentries,'',$dom));              ("Bulletin Board/Discussion",$forcestudent,$addentries,'',$dom,
                $ENV{'form.register'}));
   
     my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});      my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});
   
Line 104  ENDDOCUMENT Line 105  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)$/) {     if ($ENV{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) {
              $syllabus{'uploaded.photourl'}=               $syllabus{'uploaded.photourl'}=
                  &Apache::lonnet::userfileupload('uploaddoc',1);                   &Apache::lonnet::userfileupload('uploaddoc',1);
    }     }
Removed from v.1.7  
changed lines
  Added in v.1.9

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