loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.604, 2016/06/06 17:40:48
+version 1.605, 2016/06/10 22:31:27
  Line 5224  sub handler {
                                 "userfiles/$subdir",1); # expressed in kB
      }
      my $free_space = 1024 * ((1024 * $disk_quota) - $current_disk_usage);
+     my $usage = $current_disk_usage/1024; # in MB
+     my $quota = $disk_quota;
+     my $percent;
+     if ($disk_quota == 0) {
+         $percent = 100.0;
+     } else {
+         $percent = 100*($current_disk_usage/$disk_quota);
+     }
+     $usage = sprintf("%.2f",$usage);
+     $quota = sprintf("%.2f",$quota);
+     $percent = sprintf("%.0f",$percent);
+     my $quotainfo = '<p>'.&mt('Currently using [_1] of the [_2] available.',
+                               $percent.'%',$quota.' MB').'</p>';
  	my $fileupload=(<<FIUP);
+         $quotainfo
  	$lt{'file'}:<br />
  	<input type="file" name="uploaddoc" class="flUpload" size="40" />
      <input type="hidden" id="free_space" value="$free_space" />