version 1.76.2.6, 2008/12/26 22:27:24
|
version 1.85, 2009/01/27 15:59:30
|
Line 107 sub handler {
|
Line 107 sub handler {
|
'quotas' => |
'quotas' => |
{ text => 'User blogs, home pages and portfolios', |
{ text => 'User blogs, home pages and portfolios', |
help => 'Domain_Configuration_Quotas', |
help => 'Domain_Configuration_Quotas', |
header => [{col1 => 'User type', |
header => [{col1 => 'User affiliation', |
col2 => 'Available tools', |
col2 => 'Available tools', |
col3 => 'Portfolio quota',}], |
col3 => 'Portfolio quota',}], |
}, |
}, |
Line 175 sub handler {
|
Line 175 sub handler {
|
}], |
}], |
}, |
}, |
'serverstatuses' => |
'serverstatuses' => |
{text => 'Access to Server Status Pages', |
{text => 'Access to server status pages', |
help => 'Domain_Configuration_Server_Status', |
help => 'Domain_Configuration_Server_Status', |
header => [{col1 => 'Status Page', |
header => [{col1 => 'Status Page', |
col2 => 'Other named users', |
col2 => 'Other named users', |
Line 817 sub login_choices {
|
Line 817 sub login_choices {
|
bgs => "Background colors", |
bgs => "Background colors", |
links => "Link colors", |
links => "Link colors", |
font => "Font color", |
font => "Font color", |
pgbg => "Page", |
pgbg => "Header", |
mainbg => "Main panel", |
mainbg => "Page", |
sidebg => "Side panel", |
sidebg => "Login box", |
link => "Link", |
link => "Link", |
alink => "Active link", |
alink => "Active link", |
vlink => "Visited link", |
vlink => "Visited link", |
Line 1894 sub usercreation_types {
|
Line 1894 sub usercreation_types {
|
any => 'Any', |
any => 'Any', |
official => 'Institutional only ', |
official => 'Institutional only ', |
unofficial => 'Non-institutional only', |
unofficial => 'Non-institutional only', |
email => 'Email address', |
email => 'E-mail address', |
login => 'Institutional Login', |
login => 'Institutional Login', |
sso => 'SSO', |
sso => 'SSO', |
none => 'None', |
none => 'None', |
Line 3615 sub modify_quotas {
|
Line 3615 sub modify_quotas {
|
my %newenv; |
my %newenv; |
foreach my $item (@usertools) { |
foreach my $item (@usertools) { |
if (ref($changes{$item}) eq 'HASH') { |
if (ref($changes{$item}) eq 'HASH') { |
my $newacc = |
my $newacc = |
&Apache::lonnet::usertools_access($env{'user.name'}, |
&Apache::lonnet::usertools_access($env{'user.name'}, |
$env{'user.domain'}, |
$env{'user.domain'}, |
$item,'reload'); |
$item,'reload'); |
if ($env{'environment.availabletools.'.$item} ne $newacc) { |
if ($env{'environment.availabletools.'.$item} ne $newacc) { |
$newenv{'environment.availabletools.'.$item} = $newacc; |
$newenv{'environment.availabletools.'.$item} = $newacc; |
} |
} |
$resulttext .= '<li>'.$titles{$item}.'<ul>'; |
$resulttext .= '<li>'.$titles{$item}.'<ul>'; |
foreach my $type (@{$types},'default','_LC_adv') { |
foreach my $type (@{$types},'default','_LC_adv') { |
Line 4982 sub modify_serverstatuses {
|
Line 4982 sub modify_serverstatuses {
|
foreach my $setting ('namedusers','machines') { |
foreach my $setting ('namedusers','machines') { |
my (@current,@new); |
my (@current,@new); |
if (ref($currserverstatus{$type}) eq 'HASH') { |
if (ref($currserverstatus{$type}) eq 'HASH') { |
if ($currserverstatus{$type}{$setting} ne '') { |
if ($currserverstatus{$type}{$setting} ne '') { |
@current = split(/,/,$currserverstatus{$type}{$setting}); |
@current = split(/,/,$currserverstatus{$type}{$setting}); |
} |
} |
} |
} |