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

[raeburn]

raeburn		Sun May 27 12:31:58 2007 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
  Log:
  Need to store any change made to the default portfolio quota.
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.14 loncom/interface/domainprefs.pm:1.15
--- loncom/interface/domainprefs.pm:1.14	Mon May 14 11:25:44 2007
+++ loncom/interface/domainprefs.pm	Sun May 27 12:31:54 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.14 2007/05/14 15:25:44 raeburn Exp $
+# $Id: domainprefs.pm,v 1.15 2007/05/27 16:31:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -733,7 +733,7 @@
     $datatable .= '<tr'.$css_class.'>'.
                   '<td>'.&mt($othertitle).'</td>'.
                   '<td class="LC_right_item"><span class="LC_nobreak">'.
-                  '<input type="text" name="default" value="'.
+                  '<input type="text" name="defaultquota" value="'.
                   $defaultquota.'" size="5" /> Mb</span></td></tr>';
     return $datatable;
 }
@@ -1491,6 +1491,7 @@
             $formhash{$1} = $env{$key};
         }
     }
+    $formhash{'default'} = $env{'form.defaultquota'};
     if (ref($domconfig{'quotas'}) eq 'HASH') {
         foreach my $key (keys(%{$domconfig{'quotas'}})) {
             if (exists($formhash{$key})) {