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

Diff for /loncom/interface/lonaboutme.pm between versions 1.13 and 1.15

version 1.13, 2003/02/28 16:16:59 version 1.15, 2003/03/10 14:20:07
Line 50  ENDDOCUMENT Line 50  ENDDOCUMENT
     my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);      my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);
 # Is this even a user?  # Is this even a user?
     if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {      if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {
  $r->print('<body>No user information available</body>');   $r->print('</head><body>No user information available</body></html>');
         return OK;          return OK;
     }      }
 # --------------------------------------------------------- The syllabus fields  # --------------------------------------------------------- The syllabus fields
Line 76  ENDDOCUMENT Line 76  ENDDOCUMENT
 # --------------------------------------- There is such a user, get environment  # --------------------------------------- There is such a user, get environment
     my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);      my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
     $r->print('</head>'.&Apache::loncommon::bodytag      $r->print('</head>'.&Apache::loncommon::bodytag
                   ("Personal Information",$forcestudent,$addentries,'',$cdom));                    ("Personal Information",$forcestudent,$addentries,'',$cdom,
                      $ENV{'form.register'}));
     $r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>');      $r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>');
     if ($courseenv{'nickname'}) {      if ($courseenv{'nickname'}) {
        $r->print(         $r->print(
Line 102  ENDDOCUMENT Line 103  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');                   &Apache::lonnet::userfileupload('uploaddoc');
    }     }
Removed from v.1.13  
changed lines
  Added in v.1.15

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