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

Diff for /loncom/publisher/lonupload.pm between versions 1.23 and 1.24

version 1.23, 2003/11/08 11:11:01 version 1.24, 2003/11/08 11:13:50
Line 160  sub phasetwo { Line 160  sub phasetwo {
       '<font color="red">'.        '<font color="red">'.
       &mt('The extension on this file is reserved internally by LON-CAPA.').        &mt('The extension on this file is reserved internally by LON-CAPA.').
       '</font>');        '</font>');
     $r->print('<p><font size=+2><a href="'.$path.'">'.      $r->print('<br /><font size=+2><a href="'.$path.'">'.
       &mt('Back to Directory').'</a></font>');        &mt('Back to Directory').'</a></font>');
  } elsif ($fn=~/\.(\w+)$/ &&    } elsif ($fn=~/\.(\w+)$/ && 
  !defined(&Apache::loncommon::fileembstyle($1))) {   !defined(&Apache::loncommon::fileembstyle($1))) {
Line 183  sub phasetwo { Line 183  sub phasetwo {
     $r->print(&mt('File copied.'));      $r->print(&mt('File copied.'));
     $r->print('<br /><font size="+2"><a href="'.$url.'">'.      $r->print('<br /><font size="+2"><a href="'.$url.'">'.
       &mt('View file').'</a></font>');        &mt('View file').'</a></font>');
     $r->print('<font size="+2"><a href="'.$path.'">'.      $r->print('<br /><font size="+2"><a href="'.$path.'">'.
       &mt('Back to Directory').'</a></font><br />');        &mt('Back to Directory').'</a></font><br />');
  } else {   } else {
     $r->print('Failed to copy: '.$!);      $r->print('Failed to copy: '.$!);
Line 194  sub phasetwo { Line 194  sub phasetwo {
  } else {   } else {
     $r->print('<font size="+1" color="red">'.      $r->print('<font size="+1" color="red">'.
       &mt('Please use browser "Back" button and pick a filename').        &mt('Please use browser "Back" button and pick a filename').
       '</font><br />>');        '</font><br />');
  }   }
     } else {      } else {
  $r->print('<font size=+1 color=red>'.   $r->print('<font size=+1 color=red>'.
   &mt('Please use browser "Back" button and pick a filename').    &mt('Please use browser "Back" button and pick a filename').
   '</font><p>');    '</font><br />>');
     }      }
 }  }
   
Removed from v.1.23  
changed lines
  Added in v.1.24

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