[BACK]Return to londocs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.484.2.63 and 1.484.2.65

version 1.484.2.63, 2016/08/06 20:00:29 version 1.484.2.65, 2016/08/08 13:37:42
Line 4905  sub handler { Line 4905  sub handler {
                 'webctce4' => 'WebCT 4 Campus Edition',                  'webctce4' => 'WebCT 4 Campus Edition',
         );          );
 # -----------------------------------------------------------------------------  # -----------------------------------------------------------------------------
       # Calculate free quota space for a user or course.
       my $quotatype = 'unofficial';
       if ($crstype eq 'Community') {
           $quotatype = 'community';
       } elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.coursecode'}) {
           $quotatype = 'official';
       } elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.textbook'}) {
           $quotatype = 'textbook';
       }
       my $disk_quota = &Apache::loncommon::get_user_quota($coursenum,$coursedom,
                        'course',$quotatype); # expressed in MB
       my $current_disk_usage = 0;
       foreach my $subdir ('docs','supplemental') {
           $current_disk_usage += &Apache::lonnet::diskusage($coursedom,$coursenum,
                                  "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);   my $fileupload=(<<FIUP);
           $quotainfo
  $lt{'file'}:<br />   $lt{'file'}:<br />
  <input type="file" name="uploaddoc" size="40" />   <input type="file" name="uploaddoc" size="40" />
 FIUP  FIUP
Line 5891  sub editing_js { Line 5923  sub editing_js {
   
     return <<ENDNEWSCRIPT;      return <<ENDNEWSCRIPT;
 function makenewfolder(targetform,folderseq) {  function makenewfolder(targetform,folderseq) {
     var foldername=prompt('$js_lt{{"p_mnf"}','$js_lt{{"t_mnf"}');      var foldername=prompt('$js_lt{"p_mnf"}','$js_lt{"t_mnf"}');
     if (foldername) {      if (foldername) {
        targetform.importdetail.value=escape(foldername)+"="+folderseq;         targetform.importdetail.value=escape(foldername)+"="+folderseq;
         targetform.submit();          targetform.submit();
Removed from v.1.484.2.63  
changed lines
  Added in v.1.484.2.65

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>