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

[raeburn]

raeburn		Fri Jul 12 00:15:41 2013 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - Default authoring space quota, where no quota yet set in domain
    configuration.  
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1138 loncom/interface/loncommon.pm:1.1139
--- loncom/interface/loncommon.pm:1.1138	Thu Jul 11 18:24:31 2013
+++ loncom/interface/loncommon.pm	Fri Jul 12 00:15:40 2013
@@ -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 @@
                 $defquota = $quotahash{'quotas'}{'default'};
             }
             $settingstatus = 'default';
+            if ($defquota eq '') {
+                if ($quotaname eq 'author') {
+                    $defquota = 500;
+                }
+            }
         }
     } else {
         $settingstatus = 'default';