version 1.76.2.3, 2008/12/18 17:06:00
|
version 1.76.2.5, 2008/12/26 16:34:43
|
Line 39 use Apache::lonlocal;
|
Line 39 use Apache::lonlocal;
|
use Apache::lonmsg(); |
use Apache::lonmsg(); |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA::Enrollment; |
use LONCAPA::Enrollment; |
use LONCAPA::loncgi(); |
use LONCAPA::lonauthcgi(); |
use File::Copy; |
use File::Copy; |
use Locale::Language; |
use Locale::Language; |
use DateTime::TimeZone; |
use DateTime::TimeZone; |
Line 2372 sub print_serverstatuses {
|
Line 2372 sub print_serverstatuses {
|
} |
} |
} |
} |
} |
} |
my $titles= &LONCAPA::loncgi::serverstatus_titles(); |
my $titles= &LONCAPA::lonauthcgi::serverstatus_titles(); |
my $rownum = 0; |
my $rownum = 0; |
my $css_class; |
my $css_class; |
foreach my $type (@pages) { |
foreach my $type (@pages) { |
Line 3618 sub modify_quotas {
|
Line 3618 sub modify_quotas {
|
&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.tools.'.$item} ne '') { |
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 4999 sub modify_serverstatuses {
|
Line 4997 sub modify_serverstatuses {
|
} |
} |
my @currmachines = split(/,/,$currserverstatus{$type}{'machines'}); |
my @currmachines = split(/,/,$currserverstatus{$type}{'machines'}); |
my @newmachines = split(/,/,$newserverstatus{$type}{'machines'}); |
my @newmachines = split(/,/,$newserverstatus{$type}{'machines'}); |
foreach my $item (@currmachines) { |
if (@currmachines > 0) { |
if (!grep(/^\Q$item\E$/,@newmachines)) { |
if (@newmachines > 0) { |
$changes{$type}{'machines'} = 1; |
foreach my $item (@currmachines) { |
last; |
if (!grep(/^\Q$item\E$/,@newmachines)) { |
} |
$changes{$type}{'machines'} = 1; |
} |
last; |
foreach my $item (@newmachines) { |
} |
if (!grep(/^\Q$item\E$/,@currmachines)) { |
} |
|
foreach my $item (@newmachines) { |
|
if (!grep(/^\Q$item\E$/,@currmachines)) { |
|
$changes{$type}{'machines'} = 1; |
|
last; |
|
} |
|
} |
|
} else { |
$changes{$type}{'machines'} = 1; |
$changes{$type}{'machines'} = 1; |
last; |
|
} |
} |
|
} elsif (@newmachines > 0) { |
|
$changes{$type}{'machines'} = 1; |
} |
} |
|
|
} |
} |
} |
} |
if (keys(%changes) > 0) { |
if (keys(%changes) > 0) { |
my $titles= &LONCAPA::loncgi::serverstatus_titles(); |
my $titles= &LONCAPA::lonauthcgi::serverstatus_titles(); |
my $putresult = &Apache::lonnet::put_dom('configuration', |
my $putresult = &Apache::lonnet::put_dom('configuration', |
\%serverstatushash,$dom); |
\%serverstatushash,$dom); |
if ($putresult eq 'ok') { |
if ($putresult eq 'ok') { |