version 1.212, 2013/10/06 21:25:59
|
version 1.215, 2013/12/23 13:20:31
|
Line 259 sub handler {
|
Line 259 sub handler {
|
help => 'Domain_Configuration_Quotas', |
help => 'Domain_Configuration_Quotas', |
header => [{col1 => 'User affiliation', |
header => [{col1 => 'User affiliation', |
col2 => 'Available tools', |
col2 => 'Available tools', |
col3 => 'Quotas, Mb; (Authoring requires role)',}], |
col3 => 'Quotas, MB; (Authoring requires role)',}], |
}, |
}, |
'autoenroll' => |
'autoenroll' => |
{ text => 'Auto-enrollment settings', |
{ text => 'Auto-enrollment settings', |
Line 3765 sub print_defaults {
|
Line 3765 sub print_defaults {
|
'datelocale_def','portal_def'); |
'datelocale_def','portal_def'); |
my %defaults; |
my %defaults; |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
%defaults = %{$settings}; |
%defaults = %{$settings}; |
} else { |
} else { |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
foreach my $item (@items) { |
foreach my $item (@items) { |
Line 4157 sub print_coursecategories {
|
Line 4157 sub print_coursecategories {
|
} |
} |
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>'; |
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>'; |
} |
} |
$datatable .= '</select></td><td>'; |
$datatable .= '</select></span></td><td>'; |
if ($parent eq 'instcode' || $parent eq 'communities') { |
if ($parent eq 'instcode' || $parent eq 'communities') { |
$datatable .= '<span class="LC_nobreak">' |
$datatable .= '<span class="LC_nobreak">' |
.$default_names{$parent}.'</span>'; |
.$default_names{$parent}.'</span>'; |
Line 4187 sub print_coursecategories {
|
Line 4187 sub print_coursecategories {
|
$datatable .= '</td>'; |
$datatable .= '</td>'; |
} else { |
} else { |
$datatable .= $parent |
$datatable .= $parent |
.' <label><input type="checkbox" name="deletecategory" ' |
.' <span class="LC_nobreak"><label>' |
|
.'<input type="checkbox" name="deletecategory" ' |
.'value="'.$item.'" />'.&mt('Delete').'</label></span></td>'; |
.'value="'.$item.'" />'.&mt('Delete').'</label></span></td>'; |
} |
} |
my $depth = 1; |
my $depth = 1; |
Line 6057 sub modify_quotas {
|
Line 6058 sub modify_quotas {
|
if ($type eq 'default') { |
if ($type eq 'default') { |
$typetitle = $othertitle; |
$typetitle = $othertitle; |
} |
} |
$resulttext .= '<li>'.&mt('[_1] set to [_2] Mb',$typetitle,$confhash{'defaultquota'}{$type}).'</li>'; |
$resulttext .= '<li>'.&mt('[_1] set to [_2] MB',$typetitle,$confhash{'defaultquota'}{$type}).'</li>'; |
} |
} |
} |
} |
$resulttext .= '</ul></li>'; |
$resulttext .= '</ul></li>'; |
Line 6070 sub modify_quotas {
|
Line 6071 sub modify_quotas {
|
if ($type eq 'default') { |
if ($type eq 'default') { |
$typetitle = $othertitle; |
$typetitle = $othertitle; |
} |
} |
$resulttext .= '<li>'.&mt('[_1] set to [_2] Mb',$typetitle,$confhash{'authorquota'}{$type}).'</li>'; |
$resulttext .= '<li>'.&mt('[_1] set to [_2] MB',$typetitle,$confhash{'authorquota'}{$type}).'</li>'; |
} |
} |
} |
} |
$resulttext .= '</ul></li>'; |
$resulttext .= '</ul></li>'; |
Line 8158 sub modify_coursedefaults {
|
Line 8159 sub modify_coursedefaults {
|
$dom); |
$dom); |
if ($putresult eq 'ok') { |
if ($putresult eq 'ok') { |
if (keys(%changes) > 0) { |
if (keys(%changes) > 0) { |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
if (($changes{'canuse_pdfforms'}) || ($changes{'coursecredits'}) || ($changes{'uploadquota'})) { |
if (($changes{'canuse_pdfforms'}) || ($changes{'coursecredits'}) || ($changes{'uploadquota'})) { |
if ($changes{'canuse_pdfforms'}) { |
if ($changes{'canuse_pdfforms'}) { |
$domdefaults{'canuse_pdfforms'}=$defaultshash{'coursedefaults'}{'canuse_pdfforms'}; |
$domdefaults{'canuse_pdfforms'}=$defaultshash{'coursedefaults'}{'canuse_pdfforms'}; |
Line 8686 sub modify_loadbalancing {
|
Line 8687 sub modify_loadbalancing {
|
} |
} |
} |
} |
} |
} |
my $cachekey = &scape('loadbalancing').':'.&escape($dom); |
my $cachekey = &escape('loadbalancing').':'.&escape($dom); |
&Apache::lonnet::remote_devalidate_cache($balancer,[$cachekey]); |
&Apache::lonnet::remote_devalidate_cache($balancer,[$cachekey]); |
} |
} |
} |
} |