[LON-CAPA-cvs] cvs: loncom /interface portfolio.pm

[banghart]

banghart		Sat Aug 28 11:57:35 2004 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  
  	Adds call to lonnet::diskusage in fileupload. Eventually to 
  	enforce quota, now for debug.
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.34 loncom/interface/portfolio.pm:1.35
--- loncom/interface/portfolio.pm:1.34	Fri Aug 27 11:45:33 2004
+++ loncom/interface/portfolio.pm	Sat Aug 28 11:57:35 2004
@@ -390,6 +390,7 @@
             $found_file = 1;
         }
     }
+    $r->print('<br />'.&Apache::lonnet::diskusage($ENV{'user.domain'}, $ENV{'user.name'},$portfolio_root).'<br />');
     if ($found_file){   
         $r->print('<font color="red">Unable to upload <strong>'.$fname.'</strong>, a file by that name was found in <strong>'.$ENV{'form.currentpath'}.'</strong></font>'.
                   '<br />To upload, rename or delete existing '.$fname.' in '.$ENV{'form.currentpath'});