version 1.15, 2003/02/03 18:03:53
|
version 1.17, 2003/07/05 10:07:12
|
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: '.$!); |
} |
} |
Line 249 sub handler {
|
Line 251 sub handler {
|
|
|
$r->print('<html><head><title>LON-CAPA Construction Space</title></head>'); |
$r->print('<html><head><title>LON-CAPA Construction Space</title></head>'); |
|
|
$r->print( |
$r->print(&Apache::loncommon::bodytag('Upload file to Construction Space')); |
'<body bgcolor="#FFFFFF"><img align=right src=/adm/lonIcons/lonlogos.gif>'); |
|
|
|
|
|
$r->print('<h1>Upload file to Construction Space</h1>'); |
|
|
|
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>Co-Author: '.$uname.' at '.$udom. |
$r->print('<h3><font color=red>Co-Author: '.$uname.' at '.$udom. |