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

Diff for /loncom/auth/migrateuser.pm between versions 1.37 and 1.38

version 1.37, 2018/12/02 14:41:19 version 1.38, 2018/12/03 23:43:57
Line 339  sub conlost_userhome { Line 339  sub conlost_userhome {
         map { $conlost{$_} = 1; } split(/,/,$data{'conlost'});          map { $conlost{$_} = 1; } split(/,/,$data{'conlost'});
     }      }
     if ($data{'loncfail'}) {      if ($data{'loncfail'}) {
         if ($is_balancer) {          if ($lonhost ne $data{'from_balancer'}) {
             if ($lonhost ne $data{'from_balancer'}) {              my ($is_balancer,$posshost,$setcookie,$offloadto,$dom_balancers) =
                 my ($is_balancer,$posshost,$setcookie,$offloadto,$dom_balancers) =                  &Apache::lonnet::check_loadbalancing($data{'username'},$data{'domain'});
                     &Apache::lonnet::check_loadbalancing($data{'username'},$data{'domain'});              if ($is_balancer) {
                 if ($is_balancer) {                  if (ref($offloadto) eq 'HASH') {
                     if (ref($offloadto) eq 'HASH') {                      $data{'offloadto'} = '';
                         $data{'offloadto'} = '';                      foreach my $key (keys(%{$offloadto})) {
                         foreach my $key (keys(%{$offloadto})) {                          if (ref($offloadto->{$key}) eq 'ARRAY') {
                             if (ref($offloadto->{$key}) eq 'ARRAY') {                              $data{'offloadto'} .= $key.'='.join(',',@{$offloadto->{$key}}).'&';
                                 $data{'offloadto'} .= $key.'='.join(',',@{$offloadto->{$key}}).'&';  
                             }  
                         }                          }
                         $data{'offloadto'} =~ s/\&$//;  
                     } elsif (ref($offloadto) eq 'ARRAY') {  
                         $data{'offloadto'} = join(',',@{$offloadto});  
                     }                      }
                       $data{'offloadto'} =~ s/\&$//;
                   } elsif (ref($offloadto) eq 'ARRAY') {
                       $data{'offloadto'} = join(',',@{$offloadto});
                 }                  }
             }              }
         }          }
Line 577  sub handler { Line 575  sub handler {
         $udom=$data{'domain'};          $udom=$data{'domain'};
     }      }
     if ($home eq 'no_host') { return &goto_login($r,$udom,\%data); }      if ($home eq 'no_host') { return &goto_login($r,$udom,\%data); }
     if (&Apache::lonnet::hostname($home) eq '') { return &goto_login($r,$udom,\%data); }       if (&Apache::lonnet::hostname($home) eq '') { return &goto_login($r,$udom,\%data); }
   
     my $rolemsg;      my $rolemsg;
     if ($data{'role'}) {      if ($data{'role'}) {
         $rolemsg = "role: $data{'role'}";           $rolemsg = "role: $data{'role'}";
     } else {      } else {
         $rolemsg = '(no role)';          $rolemsg = '(no role)';
     }      }
Removed from v.1.37  
changed lines
  Added in v.1.38

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