loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.64, 2013/07/03 05:03:19	version 1.65, 2013/07/09 21:35:06
Line 201 sub phaseone {	Line 201 sub phaseone {
return;	return;
}	}
$filesize = int($filesize/1000); #expressed in kb	$filesize = int($filesize/1000); #expressed in kb
my $authorspace = $Apache::lonnet::perlvar{'lonDocRoot'}."/priv/$udom/$uname";	my $output = &Apache::loncommon::excess_filesize_warning($uname,$udom,'author',
my $output = &Apache::loncommon::excess_filesize_authorspace($uname,$udom,$authorspace,	$env{'form.upfile.filename'},$filesize,'upload');
$env{'form.upfile.filename'},$filesize,'upload');
if ($output) {	if ($output) {
$r->print($output.&earlyout($fn,$uname,$udom));	$r->print($output.&earlyout($fn,$uname,$udom));
return;	return;