--- loncom/interface/domainprefs.pm 2008/12/18 17:06:00 1.76.2.3 +++ loncom/interface/domainprefs.pm 2008/12/25 02:22:08 1.76.2.4 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.76.2.3 2008/12/18 17:06:00 raeburn Exp $ +# $Id: domainprefs.pm,v 1.76.2.4 2008/12/25 02:22:08 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -39,7 +39,7 @@ use Apache::lonlocal; use Apache::lonmsg(); use LONCAPA qw(:DEFAULT :match); use LONCAPA::Enrollment; -use LONCAPA::loncgi(); +use LONCAPA::lonauthcgi(); use File::Copy; use Locale::Language; use DateTime::TimeZone; @@ -2372,7 +2372,7 @@ sub print_serverstatuses { } } } - my $titles= &LONCAPA::loncgi::serverstatus_titles(); + my $titles= &LONCAPA::lonauthcgi::serverstatus_titles(); my $rownum = 0; my $css_class; foreach my $type (@pages) { @@ -3618,10 +3618,8 @@ sub modify_quotas { &Apache::lonnet::usertools_access($env{'user.name'}, $env{'user.domain'}, $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; - } } $resulttext .= '
  • '.$titles{$item}.'