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

Diff for /loncom/auth/lonroles.pm between versions 1.49 and 1.51

version 1.49, 2003/01/29 15:22:06 version 1.51, 2003/02/04 16:25:37
Line 36 Line 36
 # 12/08,12/28,  # 12/08,12/28,
 # YEAR=2001  # YEAR=2001
 # 01/15/01 Gerd Kortemeyer  # 01/15/01 Gerd Kortemeyer
 # 02/27/01 Scott Harrison  
 # 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer  # 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer
 # 12/21 Scott Harrison  
 # 12/29 Gerd Kortemeyer  # 12/29 Gerd Kortemeyer
 #  #
 ###  ###
Line 312  ENDHEADER Line 310  ENDHEADER
                     my $home = &Apache::lonnet::homeserver($trest,$tdom);                      my $home = &Apache::lonnet::homeserver($trest,$tdom);
                     if ($home ne $r->dir_config('lonHostID')) {                      if ($home ne $r->dir_config('lonHostID')) {
  $button=0;   $button=0;
                         $switchserver='http://'.                          $switchserver=&Apache::lonnet::escape('http://'.
                          $Apache::lonnet::hostname{$home}.'/priv/'.$trest;                           $Apache::lonnet::hostname{$home}.
                            '/adm/login?domain='.$ENV{'user.domain'}.
     '&username='.$ENV{'user.name'}.
                             '&firsturl=/priv/'.$trest);
                     }                      }
                     #next if ($home eq 'no_host');                      #next if ($home eq 'no_host');
                     $home = $Apache::lonnet::hostname{$home};                      $home = $Apache::lonnet::hostname{$home};
Line 327  ENDHEADER Line 328  ENDHEADER
                         ($ENV{'user.name'},$ENV{'user.domain'});                          ($ENV{'user.name'},$ENV{'user.domain'});
                     if ($home ne $r->dir_config('lonHostID')) {                      if ($home ne $r->dir_config('lonHostID')) {
  $button=0;   $button=0;
                         $switchserver='http://'.                          $switchserver=&Apache::lonnet::escape('http://'.
                          $Apache::lonnet::hostname{$home}.'/priv/'.                           $Apache::lonnet::hostname{$home}.
                          $ENV{'user.name'};                            '/adm/login?domain='.$ENV{'user.domain'}.
      '&username='.$ENV{'user.name'}.
                              '&firsturl=/priv/'.$ENV{'user.name'});
                     }                      }
                     #next if ($home eq 'no_host');                      #next if ($home eq 'no_host');
                     $home = $Apache::lonnet::hostname{$home};                      $home = $Apache::lonnet::hostname{$home};
Removed from v.1.49  
changed lines
  Added in v.1.51

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