version 1.121, 2013/07/23 13:40:20
|
version 1.123, 2015/01/19 15:36:11
|
Line 708 sub Copy1 {
|
Line 708 sub Copy1 {
|
my ($dir,$fname) = ($fn =~ m{^(.+/)([^/]+)$}); |
my ($dir,$fname) = ($fn =~ m{^(.+/)([^/]+)$}); |
my $filesize = $fileinfo[7]; |
my $filesize = $fileinfo[7]; |
$filesize = int($filesize/1000); #expressed in kb |
$filesize = int($filesize/1000); #expressed in kb |
my $authorspace = $Apache::lonnet::perlvar{'lonDocRoot'}."/priv/$domain/$user"; |
my $output = &Apache::loncommon::excess_filesize_warning($user,$domain,'author', |
my $output = &Apache::loncommon::excess_filesize_warning($user,$domain,$authorspace, |
|
$fname,$filesize,'copy'); |
$fname,$filesize,'copy'); |
if ($output) { |
if ($output) { |
$request->print($output.'<br /><a href="'.&url($dir).'">'.&mt('Cancel').'</a></form>'); |
$request->print($output.'<br /><a href="'.&url($dir).'">'.&mt('Cancel').'</a></form>'); |
Line 896 sub NewFile1 {
|
Line 895 sub NewFile1 {
|
'</span></form></p>'. |
'</span></form></p>'. |
'<p><form action="'.&url($fn). |
'<p><form action="'.&url($fn). |
'" method="post"><p><input type="submit" value="'.&mt('Cancel').'" /></form></p>'); |
'" method="post"><p><input type="submit" value="'.&mt('Cancel').'" /></form></p>'); |
return; |
} elsif ($type ne 'warning') { |
|
my $query = ""; |
|
$query .= "?mode=" . $env{'form.mode'} unless (!exists($env{'form.mode'}) || !length($env{'form.mode'})); |
|
$request->print(' |
|
<script type="text/javascript"> |
|
window.location = "'.&url($newfilename). $query .'"; |
|
</script>'); |
|
} else { |
|
$request->print('<p>'.&mt('Make new file').' '.&display($newfilename).'?</p>'); |
|
$request->print('</form>'); |
|
$request->print('<form action="'.&url($newfilename). |
|
'" method="post"><p><input type="submit" value="'.&mt('Continue').'" /></p></form>'); |
|
$request->print('<form action="'.&url($fn). |
|
'" method="post"><p><input type="submit" value="'.&mt('Cancel').'" /></p></form>'); |
} |
} |
|
|
$request->print('<p>'.&mt('Make new file').' '.&display($newfilename).'?</p>'); |
|
$request->print('</form>'); |
|
|
|
$request->print('<form action="'.&url($newfilename). |
|
'" method="post"><p><input type="submit" value="'.&mt('Continue').'" /></p></form>'); |
|
$request->print('<form action="'.&url($fn). |
|
'" method="post"><p><input type="submit" value="'.&mt('Cancel').'" /></p></form>'); |
|
} |
} |
return; |
return; |
} |
} |
Line 1422 sub handler {
|
Line 1426 sub handler {
|
|
|
$r=shift; |
$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, "loncfile.pm - handler entered"); |
&Debug($r, " filename: ".$env{'form.filename'}); |
&Debug($r, " filename: ".$env{'form.filename'}); |