loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.14, 2002/09/10 02:31:26	version 1.17, 2003/07/05 10:07:12
Line 44	Line 44
#	#
# 04/05,04/09,05/25,06/23,06/24,08/22 Gerd Kortemeyer	# 04/05,04/09,05/25,06/23,06/24,08/22 Gerd Kortemeyer
# 11/29 Matthew Hall	# 11/29 Matthew Hall
# 12/16 Scott Harrison
#	#
###	###

Line 196 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 250 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.