version 1.174, 2006/11/22 03:56:36
|
version 1.175, 2006/12/11 03:43:15
|
Line 2038 sub get_quota {
|
Line 2038 sub get_quota {
|
return $disk_quota; |
return $disk_quota; |
} |
} |
|
|
|
|
sub handler { |
sub handler { |
# this handles file management |
# this handles file management |
my $r = shift; |
my $r = shift; |
Line 2134 sub handler {
|
Line 2133 sub handler {
|
$r->print(&Apache::loncommon::start_page($title)); |
$r->print(&Apache::loncommon::start_page($title)); |
} |
} |
$r->rflush(); |
$r->rflush(); |
|
my ($blocked,$blocktext) = |
|
&Apache::loncommon::blocking_status('port',$uname,$udom); |
|
if ($blocked) { |
|
$r->print($blocktext); |
|
$r->print(&Apache::loncommon::end_page()); |
|
return OK; |
|
} |
if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){ |
if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){ |
$r->print('<span class="LC_error">'. |
$r->print('<span class="LC_error">'. |
'No file was selected to upload.'. |
'No file was selected to upload.'. |