--- loncom/publisher/loncfile.pm 2013/07/03 05:03:19 1.120
+++ loncom/publisher/loncfile.pm 2015/01/19 15:36:11 1.123
@@ -9,7 +9,7 @@
# and displays a page showing the results of the action.
#
#
-# $Id: loncfile.pm,v 1.120 2013/07/03 05:03:19 raeburn Exp $
+# $Id: loncfile.pm,v 1.123 2015/01/19 15:36:11 goltermann Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -708,9 +708,8 @@ sub Copy1 {
my ($dir,$fname) = ($fn =~ m{^(.+/)([^/]+)$});
my $filesize = $fileinfo[7];
$filesize = int($filesize/1000); #expressed in kb
- my $authorspace = $Apache::lonnet::perlvar{'lonDocRoot'}."/priv/$domain/$user";
- my $output = &Apache::loncommon::excess_filesize_authorspace($user,$domain,$authorspace,
- $fname,$filesize,'copy');
+ my $output = &Apache::loncommon::excess_filesize_warning($user,$domain,'author',
+ $fname,$filesize,'copy');
if ($output) {
$request->print($output.'
'.&mt('Cancel').'');
return;
@@ -896,16 +895,21 @@ sub NewFile1 {
'
'.&mt('Make new file').' '.&display($newfilename).'?
'); + $request->print(''); + $request->print(''); + $request->print(''); } - - $request->print(''.&mt('Make new file').' '.&display($newfilename).'?
'); - $request->print(''); - - $request->print(''); - $request->print(''); } return; } @@ -1422,7 +1426,7 @@ sub handler { $r=shift; - &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['decompress','action','filename','newfilename']); + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['decompress','action','filename','newfilename','mode']); &Debug($r, "loncfile.pm - handler entered"); &Debug($r, " filename: ".$env{'form.filename'});