--- loncom/publisher/lonupload.pm 2003/02/03 18:03:53 1.15
+++ loncom/publisher/lonupload.pm 2003/07/05 10:07:12 1.17
@@ -2,7 +2,7 @@
# The LearningOnline Network with CAPA
# Handler to upload files into construction space
#
-# $Id: lonupload.pm,v 1.15 2003/02/03 18:03:53 harris41 Exp $
+# $Id: lonupload.pm,v 1.17 2003/07/05 10:07:12 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -195,6 +195,8 @@ sub phasetwo {
$r->print('File copied.');
$r->print('<p><font size=+2><a href="'.$url.
'">View file</a></font>');
+ $r->print('<p><font size=+2><a href="'.$path.
+ '">Back to Directory</a></font>');
} else {
$r->print('Failed to copy: '.$!);
}
@@ -249,11 +251,7 @@ sub handler {
$r->print('<html><head><title>LON-CAPA Construction Space</title></head>');
- $r->print(
- '<body bgcolor="#FFFFFF"><img align=right src=/adm/lonIcons/lonlogos.gif>');
-
-
- $r->print('<h1>Upload file to Construction Space</h1>');
+ $r->print(&Apache::loncommon::bodytag('Upload file to Construction Space'));
if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) {
$r->print('<h3><font color=red>Co-Author: '.$uname.' at '.$udom.