|
version 1.42.2.2, 2011/11/19 19:10:34
|
version 1.42.2.3, 2012/01/08 23:35:22
|
|
Line 120 sub handler {
|
Line 120 sub handler {
|
| $login_url = $domdefaults{'portal_def'}; |
$login_url = $domdefaults{'portal_def'}; |
| } else { |
} else { |
| my $checkloginvia = 1; |
my $checkloginvia = 1; |
| my ($lonhost,$server,$path) = |
my ($lonhost,$server,$path,$isredirect) = |
| &Apache::lonnet::choose_server($domain,$checkloginvia); |
&Apache::lonnet::choose_server($domain,$checkloginvia); |
| if ($server && $lonhost) { |
if ($server && $lonhost) { |
| $login_url = $Apache::lonnet::protocol{$lonhost}. |
$login_url = $Apache::lonnet::protocol{$lonhost}. |
| '://'.$server.$path; |
'://'.$server.$path; |
| |
if (($path eq '') && (!$isredirect)) { |
| |
my $serverhomeID = |
| |
&Apache::lonnet::get_server_homeID($lonhost); |
| |
my $serverhomedom = |
| |
&Apache::lonnet::host_domain($serverhomeID); |
| |
if ($serverhomedom ne $domain) { |
| |
$path = '/adm/login'; |
| |
$login_url .= $path; |
| |
} |
| |
} |
| if ($path eq '/adm/login' && $domain ne '') { |
if ($path eq '/adm/login' && $domain ne '') { |
| $login_url .= '?domain='.$domain; |
$login_url .= '?domain='.$domain; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlogout.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth