[LON-CAPA-cvs] cvs: loncom /publisher lonupload.pm
raeburn
raeburn at source.lon-capa.org
Tue Jul 9 17:35:06 EDT 2013
raeburn Tue Jul 9 21:35:06 2013 EDT
Modified files:
/loncom/publisher lonupload.pm
Log:
- In loncommon.pm: &excess_filesize_authorspace() was renamed as
excess_filesize_warning(), and third arg changed to context
(author or course).
Index: loncom/publisher/lonupload.pm
diff -u loncom/publisher/lonupload.pm:1.64 loncom/publisher/lonupload.pm:1.65
--- loncom/publisher/lonupload.pm:1.64 Wed Jul 3 05:03:19 2013
+++ loncom/publisher/lonupload.pm Tue Jul 9 21:35:06 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to upload files into construction space
#
-# $Id: lonupload.pm,v 1.64 2013/07/03 05:03:19 raeburn Exp $
+# $Id: lonupload.pm,v 1.65 2013/07/09 21:35:06 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -201,9 +201,8 @@
return;
}
$filesize = int($filesize/1000); #expressed in kb
- my $authorspace = $Apache::lonnet::perlvar{'lonDocRoot'}."/priv/$udom/$uname";
- my $output = &Apache::loncommon::excess_filesize_authorspace($uname,$udom,$authorspace,
- $env{'form.upfile.filename'},$filesize,'upload');
+ my $output = &Apache::loncommon::excess_filesize_warning($uname,$udom,'author',
+ $env{'form.upfile.filename'},$filesize,'upload');
if ($output) {
$r->print($output.&earlyout($fn,$uname,$udom));
return;
More information about the LON-CAPA-cvs
mailing list