|
version 1.621, 2007/12/05 18:40:47
|
version 1.622, 2007/12/08 00:03:32
|
|
Line 6147 sub default_quota {
|
Line 6147 sub default_quota {
|
| my ($udom,$inststatus) = @_; |
my ($udom,$inststatus) = @_; |
| my ($defquota,$settingstatus); |
my ($defquota,$settingstatus); |
| my %quotahash = &Apache::lonnet::get_dom('configuration', |
my %quotahash = &Apache::lonnet::get_dom('configuration', |
| ['quota'],$udom); |
['quotas'],$udom); |
| if (ref($quotahash{'quota'}) eq 'HASH') { |
if (ref($quotahash{'quotas'}) eq 'HASH') { |
| if ($inststatus ne '') { |
if ($inststatus ne '') { |
| my @statuses = split(/:/,$inststatus); |
my @statuses = split(/:/,$inststatus); |
| foreach my $item (@statuses) { |
foreach my $item (@statuses) { |
| if ($quotahash{'quota'}{$item} ne '') { |
if ($quotahash{'quotas'}{$item} ne '') { |
| if ($defquota eq '') { |
if ($defquota eq '') { |
| $defquota = $quotahash{'quota'}{$item}; |
$defquota = $quotahash{'quotas'}{$item}; |
| $settingstatus = $item; |
$settingstatus = $item; |
| } elsif ($quotahash{'quota'}{$item} > $defquota) { |
} elsif ($quotahash{'quotas'}{$item} > $defquota) { |
| $defquota = $quotahash{'quota'}{$item}; |
$defquota = $quotahash{'quotas'}{$item}; |
| $settingstatus = $item; |
$settingstatus = $item; |
| } |
} |
| } |
} |
| } |
} |
| } |
} |
| if ($defquota eq '') { |
if ($defquota eq '') { |
| $defquota = $quotahash{'quota'}{'default'}; |
$defquota = $quotahash{'quotas'}{'default'}; |
| $settingstatus = 'default'; |
$settingstatus = 'default'; |
| } |
} |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface