--- loncom/interface/domainprefs.pm 2007/04/13 16:21:15 1.12
+++ 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.12 2007/04/13 16:21:15 raeburn Exp $
+# $Id: domainprefs.pm,v 1.15 2007/05/27 16:31:54 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -145,7 +145,7 @@ sub handler {
');
- &print_footer($r,$phase,'process','Store changes');
+ &print_footer($r,$phase,'process','Save changes');
}
return OK;
}
@@ -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})) {
|