--- loncom/interface/portfolio.pm 2005/08/26 19:40:38 1.86 +++ loncom/interface/portfolio.pm 2005/08/26 21:47:25 1.87 @@ -418,7 +418,7 @@ sub upload { } } my $current_disk_usage = &Apache::lonnet::diskusage($env{'user.domain'}, $env{'user.name'},$portfolio_root); - if ((($current_disk_usage) + $filesize/1000) > $disk_quota){ + if (($current_disk_usage + $filesize) > $disk_quota){ $r->print('Unable to upload '.$fname.' (size = '.$filesize.' kilobytes). Disk quota will be exceeded.'. '
Disk quota is '.$disk_quota.' kilobytes. Your current disk usage is '.$current_disk_usage.' kilobytes.'); $r->print(&done('Back'));