version 1.43, 2011/10/22 23:53:46
|
version 1.46, 2013/02/08 17:03:41
|
Line 70 sub handler {
|
Line 70 sub handler {
|
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
unlink("$lonidsdir/$handle.id"); |
unlink("$lonidsdir/$handle.id"); |
|
if (!$Apache::lonlocal::lh) { |
|
&Apache::lonlocal::get_language_handle($r); |
|
} |
my %temp=('logout' => time); |
my %temp=('logout' => time); |
&Apache::lonnet::put('email_status',\%temp); |
&Apache::lonnet::put('email_status',\%temp); |
&Apache::lonnet::log($env{'user.domain'}, |
&Apache::lonnet::log($env{'user.domain'}, |
Line 117 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($server); |
|
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; |
} |
} |