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

Diff for /loncom/publisher/lonupload.pm between versions 1.20 and 1.21

version 1.20, 2003/09/22 15:39:53 version 1.21, 2003/11/08 10:58:30
Line 99  sub phaseone { Line 99  sub phaseone {
  '<input type=hidden name=phase value=two>'.   '<input type=hidden name=phase value=two>'.
  '<input type=hidden name=datatoken value="'.&upfile_store.'">'.   '<input type=hidden name=datatoken value="'.&upfile_store.'">'.
  '<input type=hidden name=uploaduname value="'.$uname.'">'.   '<input type=hidden name=uploaduname value="'.$uname.'">'.
  &mt('Store uploaded file as ').   &mt('Store uploaded file as ')."<tt>/priv/$uname/</tt>".
  '<input type=text size=50 name=filename value="'.$fn.'"><br>'.   '<input type=text size=50 name=filename value="'.$fn.'"><br>'.
  '<input type=submit value="'.&mt('Store').'"></form>');   '<input type=submit value="'.&mt('Store').'"></form>');
       # Check for bad extension and warn user        # Check for bad extension and warn user
Line 258  sub handler { Line 258  sub handler {
   $r->print(&Apache::loncommon::bodytag('Upload file to Construction Space'));    $r->print(&Apache::loncommon::bodytag('Upload file to Construction Space'));
       
   if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) {    if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) {
           $r->print('<h3><font color=red>'&mt('Co-Author').': '.$uname.        $r->print('<h3><font color=red>'.&mt('Co-Author').': '.$uname.
 &mt(' at ').$udom.   &mt(' at ').$udom.'</font></h3>');
                '</font></h3>');  
   }    }
   
   
   if ($ENV{'form.phase'} eq 'two') {    if ($ENV{'form.phase'} eq 'two') {
       &phasetwo($r,$fn,$uname,$udom);        &phasetwo($r,$fn,$uname,$udom);
   } else {    } else {
Removed from v.1.20  
changed lines
  Added in v.1.21

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