--- loncom/interface/portfolio.pm	2004/08/27 15:45:33	1.34
+++ loncom/interface/portfolio.pm	2004/08/28 15:57:35	1.35
@@ -390,6 +390,7 @@ sub upload {
             $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'});