--- loncom/interface/loncommon.pm	2013/07/11 18:24:31	1.1138
+++ loncom/interface/loncommon.pm	2013/07/12 00:15:40	1.1139
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1138 2013/07/11 18:24:31 raeburn Exp $
+# $Id: loncommon.pm,v 1.1139 2013/07/12 00:15:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -8817,6 +8817,11 @@ sub default_quota {
                 $defquota = $quotahash{'quotas'}{'default'};
             }
             $settingstatus = 'default';
+            if ($defquota eq '') {
+                if ($quotaname eq 'author') {
+                    $defquota = 500;
+                }
+            }
         }
     } else {
         $settingstatus = 'default';