--- loncom/interface/portfolio.pm	2006/11/09 22:33:32	1.172
+++ loncom/interface/portfolio.pm	2006/11/21 21:38:44	1.173
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # portfolio browser
 #
-# $Id: portfolio.pm,v 1.172 2006/11/09 22:33:32 raeburn Exp $
+# $Id: portfolio.pm,v 1.173 2006/11/21 21:38:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1748,7 +1748,7 @@ sub upload {
     my ($r,$url,$group)=@_;
     my $fname=$env{'form.uploaddoc.filename'};
     my $filesize = (length($env{'form.uploaddoc'})) / 1000; #express in k (1024?)
-    my $disk_quota = 20000; # expressed in k
+    my $disk_quota;
     if (defined($group)) {
         my $grp_quota = &get_group_quota($group); # quota expressed in k 
         if ($grp_quota ne '') {
@@ -1756,6 +1756,10 @@ sub upload {
         } else {
             $disk_quota = 0;
         }
+    } else {
+        $disk_quota = &Apache::loncommon::get_user_quota($env{'user.name'},
+                                    $env{'user.domain'}); #expressed in Mb
+        $disk_quota = 1000 * $disk_quota; # convert from Mb to kb
     }
     $fname=&Apache::lonnet::clean_filename($fname);