[BACK]Return to domainprefs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/domainprefs.pm between versions 1.80 and 1.82

version 1.80, 2008/12/18 16:58:26 version 1.82, 2008/12/26 16:34:01
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 2373  sub print_serverstatuses { Line 2373  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 3619  sub modify_quotas { Line 3619  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 5000  sub modify_serverstatuses { Line 4998  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') {
Removed from v.1.80  
changed lines
  Added in v.1.82

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>