Return to lonupload.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
version 1.15, 2003/02/03 18:03:53 | version 1.16, 2003/06/23 21:56:31 |
---|---|
Line 195 sub phasetwo { | Line 195 sub phasetwo { |
$r->print('File copied.'); | $r->print('File copied.'); |
$r->print('<p><font size=+2><a href="'.$url. | $r->print('<p><font size=+2><a href="'.$url. |
'">View file</a></font>'); | '">View file</a></font>'); |
$r->print('<p><font size=+2><a href="'.$path. | |
'">Back to Directory</a></font>'); | |
} else { | } else { |
$r->print('Failed to copy: '.$!); | $r->print('Failed to copy: '.$!); |
} | } |