version 1.50, 2003/02/03 18:03:52
|
version 1.51, 2003/02/04 16:25:37
|
Line 310 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 325 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}; |