--- loncom/interface/loncommon.pm 2007/12/04 04:43:21 1.619
+++ loncom/interface/loncommon.pm 2007/12/08 00:03:32 1.622
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.619 2007/12/04 04:43:21 raeburn Exp $
+# $Id: loncommon.pm,v 1.622 2007/12/08 00:03:32 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2073,6 +2073,7 @@ sub authform_internal{
$result = &mt
('[_1] Internally authenticated (with initial password [_2])',
''.$autharg);
+ $result.="';
return $result;
}
@@ -5038,7 +5039,6 @@ div.LC_clear_float_footer {
div.LC_grade_select_mode {
- float: left;
font-family: $sans;
}
div.LC_grade_select_mode div div {
@@ -6147,24 +6147,24 @@ sub default_quota {
my ($udom,$inststatus) = @_;
my ($defquota,$settingstatus);
my %quotahash = &Apache::lonnet::get_dom('configuration',
- ['quota'],$udom);
- if (ref($quotahash{'quota'}) eq 'HASH') {
+ ['quotas'],$udom);
+ if (ref($quotahash{'quotas'}) eq 'HASH') {
if ($inststatus ne '') {
my @statuses = split(/:/,$inststatus);
foreach my $item (@statuses) {
- if ($quotahash{'quota'}{$item} ne '') {
+ if ($quotahash{'quotas'}{$item} ne '') {
if ($defquota eq '') {
- $defquota = $quotahash{'quota'}{$item};
+ $defquota = $quotahash{'quotas'}{$item};
$settingstatus = $item;
- } elsif ($quotahash{'quota'}{$item} > $defquota) {
- $defquota = $quotahash{'quota'}{$item};
+ } elsif ($quotahash{'quotas'}{$item} > $defquota) {
+ $defquota = $quotahash{'quotas'}{$item};
$settingstatus = $item;
}
}
}
}
if ($defquota eq '') {
- $defquota = $quotahash{'quota'}{'default'};
+ $defquota = $quotahash{'quotas'}{'default'};
$settingstatus = 'default';
}
} else {