--- loncom/interface/domainprefs.pm 2007/05/14 15:25:44 1.14 +++ loncom/interface/domainprefs.pm 2007/05/27 16:31:54 1.15 @@ -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 @@ sub print_quotas { $datatable .= ''. ''.&mt($othertitle).''. ''. - ' Mb'; return $datatable; } @@ -1491,6 +1491,7 @@ sub modify_quotas { $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})) {