version 1.42, 2011/06/13 17:41:01
|
version 1.44, 2012/01/08 23:24:08
|
Line 117 sub handler {
|
Line 117 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 '') { |
|
$login_url .= '?domain='.$domain; |
|
} |
} |
} |
} |
} |
} |
} |