--- loncom/interface/domainprefs.pm 2007/05/02 01:33:48 1.13
+++ 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.13 2007/05/02 01:33:48 albertel 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;
}
@@ -764,6 +764,14 @@ sub print_autoenroll {
if (exists($settings->{'sender_domain'})) {
$defdom = $settings->{'sender_domain'};
}
+ } else {
+ if ($autorun) {
+ $runon = ' checked="checked" ';
+ $runoff = ' ';
+ } else {
+ $runoff = ' checked="checked" ';
+ $runon = ' ';
+ }
}
my $domform = &Apache::loncommon::select_dom_form($defdom,'sender_domain',1);
my $datatable=''.
@@ -772,7 +780,7 @@ sub print_autoenroll {
''.&mt('Yes').' '.
''.
+ $runoff.' value="0" />'.&mt('No').''.
'
'.
''.&mt('Notification messages - sender').
' | '.
@@ -1483,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})) {
|