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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1428 and 1.1430

version 1.1428, 2020/10/15 18:09:10 version 1.1430, 2020/10/20 01:38:12
Line 1646  sub check_loadbalancing { Line 1646  sub check_loadbalancing {
     if ($domneedscache) {      if ($domneedscache) {
         &do_cache_new('loadbalancing',$domneedscache,$is_balancer,$cachetime);          &do_cache_new('loadbalancing',$domneedscache,$is_balancer,$cachetime);
     }      }
     if ($is_balancer) {      if (($is_balancer) && ($caller ne 'switchserver')) {
         my $lowest_load = 30000;          my $lowest_load = 30000;
         if (ref($offloadto) eq 'HASH') {          if (ref($offloadto) eq 'HASH') {
             if (ref($offloadto->{'primary'}) eq 'ARRAY') {              if (ref($offloadto->{'primary'}) eq 'ARRAY') {
Line 1686  sub check_loadbalancing { Line 1686  sub check_loadbalancing {
                 }                  }
             }              }
         }          }
         unless ($homeintdom) {      }
             undef($setcookie);      if (($is_balancer) && (!$homeintdom)) {
         }          undef($setcookie);
     }      }
     return ($is_balancer,$otherserver,$setcookie,$offloadto,$dom_balancers);      return ($is_balancer,$otherserver,$setcookie,$offloadto,$dom_balancers);
 }  }
Line 8767  sub get_commblock_resources { Line 8767  sub get_commblock_resources {
                                         my $first = $mapres->map_start();                                          my $first = $mapres->map_start();
                                         my $finish = $mapres->map_finish();                                          my $finish = $mapres->map_finish();
                                         my $it = $navmap->getIterator($first,$finish,undef,0,0);                                          my $it = $navmap->getIterator($first,$finish,undef,0,0);
                                         my $res;                                          if (ref($it)) {
                                         while ($res = $it->next(undef,1)) {                                              my $res;
                                             next unless (ref($res));                                              while ($res = $it->next(undef,1)) {
                                             my $symb = $res->symb();                                                  next unless (ref($res));
                                             next if (($symb eq $mapsymb) || ($symb eq ''));                                                  my $symb = $res->symb();
                                             @interval=&EXT("resource.0.interval",$symb);                                                  next if (($symb eq $mapsymb) || ($symb eq ''));
                                             if ($interval[1] eq 'map') {                                                  @interval=&EXT("resource.0.interval",$symb);
                                                 if ($res->answerable()) {                                                  if ($interval[1] eq 'map') {
                                                     push(@to_test,$res);                                                      if ($res->answerable()) {
                                                     last;                                                          push(@to_test,$res);
                                                           last;
                                                       }
                                                 }                                                  }
                                             }                                              }
                                         }                                          }
Removed from v.1.1428  
changed lines
  Added in v.1.1430

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