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

Diff for /loncom/interface/lonaboutme.pm between versions 1.17 and 1.21

version 1.17, 2003/09/21 21:40:06 version 1.21, 2004/04/30 23:13:52
Line 108  ENDDOCUMENT Line 108  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');    &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});
         }
         $syllabus{'uploaded.photourl'}=
                    &Apache::lonnet::userfileupload('uploaddoc',undef,'aboutme');
    }     }
           $syllabus{'uploaded.lastmodified'}=time;            $syllabus{'uploaded.lastmodified'}=time;
           &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);            &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);
Line 129  ENDDOCUMENT Line 132  ENDDOCUMENT
 # ---------------------------------------------------------------- Get syllabus  # ---------------------------------------------------------------- Get syllabus
     if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {      if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
        my $lastmod=$syllabus{'uploaded.lastmodified'};         my $lastmod=$syllabus{'uploaded.lastmodified'};
        $lastmod=($lastmod?localtime($lastmod):'never');         $lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));
        $r->print('Last updated: '.$lastmod);         $r->print(&mt('Last updated').': '.$lastmod);
        if ($syllabus{'uploaded.photourl'}) {         if ($syllabus{'uploaded.photourl'}) {
    $r->print('<img src="'.     &Apache::lonnet::allowuploaded('/adm/aboutme',
              &Apache::lonnet::tokenwrapper($syllabus{'uploaded.photourl'}).    $syllabus{'uploaded.photourl'});
      $r->print('<img src="'.$syllabus{'uploaded.photourl'}.
              '" align="right" />');               '" align="right" />');
        }         }
        if ($allowed) {         if ($allowed) {
            $r->print(             $r->print(
  '<form method="post" enctype="multipart/form-data">'.   '<form method="post" enctype="multipart/form-data">'.
          '<h3>Upload a Photo</h3>'.           '<h3>'.&mt('Upload a Photo').'</h3>'.
          '<input type="file" name="uploaddoc" size="50">'.           '<input type="file" name="uploaddoc" size="50">'.
          '<input type="submit" name="storeupl" value="Upload">'.           '<input type="submit" name="storeupl" value="Upload">'.
  '</form><form method="post">');   '</form><form method="post">');
Line 172  ENDDOCUMENT Line 176  ENDDOCUMENT
  if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {   if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
             $r->print('<hr /><h3>'.              $r->print('<hr /><h3>'.
 &mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'</h3>'.  &mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'</h3>'.
 &mt('Shared by course faculty and staff').'<br />');  &mt('Shared by course faculty and staff').
   &Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message").
   '<br />');
     &Apache::lonmsg::disfacetoface($r,$cnum,$cdom);      &Apache::lonmsg::disfacetoface($r,$cnum,$cdom);
             $r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom));              $r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom));
         }          }
Removed from v.1.17  
changed lines
  Added in v.1.21

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