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

Diff for /loncom/interface/lonaboutme.pm between versions 1.3 and 1.4

version 1.3, 2002/08/27 21:05:04 version 1.4, 2002/08/28 14:11:27
Line 70  ENDDOCUMENT Line 70  ENDDOCUMENT
     $r->print(&Apache::loncommon::bodytag      $r->print(&Apache::loncommon::bodytag
                            ("Personal Information",$forcestudent,'','',$cdom));                             ("Personal Information",$forcestudent,'','',$cdom));
     $r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1><h3>'.      $r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1><h3>'.
               $Apache::lonnet::domaindescription{$cdom}.'</h3>');                $Apache::lonnet::domaindescription{$cdom}.'</h3>'.
       '<p>'.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom).
       '</p>');
     my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum);      my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum);
     my $allowed=0;      my $allowed=0;
   
Line 81  ENDDOCUMENT Line 83  ENDDOCUMENT
        if ($forcestudent) { $allowed=0; }         if ($forcestudent) { $allowed=0; }
     
        if ($allowed) {         if ($allowed) {
           $r->print(            $r->print('<p><b>Privacy Note:</b> The information you submit can be viewed by anybody who is logged into LON-CAPA. Do not provide information that you are not ready to share publically.</p>'.
   '<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a></p>');    '<p><a href="'.$r->uri.'?forcestudent=1">Show Public View</a></p>');
       }        }
       if (($ENV{'form.uploaddoc.filename'}) &&        if (($ENV{'form.uploaddoc.filename'}) &&
           ($ENV{'form.storeupl'}) && ($allowed)) {            ($ENV{'form.storeupl'}) && ($allowed)) {
Line 99  ENDDOCUMENT Line 101  ENDDOCUMENT
                $field=~s/\s+$//s;                 $field=~s/\s+$//s;
                $field=~s/\</\&lt\;/g;                 $field=~s/\</\&lt\;/g;
                $field=~s/\>/\&gt\;/g;                 $field=~s/\>/\&gt\;/g;
        if ($field) {         $syllabus{$_}=$field;
    $syllabus{$_}=$field;  
                } else {  
                    delete $syllabus{$_};  
                }  
            }             }
            $syllabus{'uploaded.lastmodified'}=time;             $syllabus{'uploaded.lastmodified'}=time;
            &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);             &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);
Removed from v.1.3  
changed lines
  Added in v.1.4

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