Return to portfolio.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.226, 2010/10/27 01:02:29 | version 1.227, 2010/10/29 20:41:43 |
---|---|
Line 1937 sub upload { | Line 1937 sub upload { |
$port_path,$disk_quota, | $port_path,$disk_quota, |
$current_disk_usage,$uname,$udom); | $current_disk_usage,$uname,$udom); |
if ($state eq 'will_exceed_quota' | if ($state eq 'will_exceed_quota' |
|| $state eq 'file_locked') { | || $state eq 'file_locked' |
|| $state eq 'zero_bytes') { | |
$r->print($msg.&done('Back',$url)); | $r->print($msg.&done('Back',$url)); |
return; | return; |
} | } |