|
version 1.128, 2013/11/26 01:19:12
|
version 1.129, 2013/12/20 14:54:34
|
|
Line 169 sub failed {
|
Line 169 sub failed {
|
| } |
} |
| |
|
| my $start_page = &Apache::loncommon::start_page('Unsuccessful Login',undef,$args); |
my $start_page = &Apache::loncommon::start_page('Unsuccessful Login',undef,$args); |
| my $uname = $form->{'uname'}; |
my $uname = &Apache::loncommon::cleanup_html($form->{'uname'}); |
| my $udom; |
my $udom = &Apache::loncommon::cleanup_html($form->{'udom'}); |
| if (&Apache::lonnet::domain($form->{'udom'},'description') ne '') { |
if (&Apache::lonnet::domain($udom,'description') eq '') { |
| $udom = $form->{'udom'}; |
undef($udom); |
| } |
} |
| my $retry = '/adm/login?username='.$form->{'uname'}; |
my $retry = '/adm/login'; |
| |
if ($uname eq $form->{'uname'}) { |
| |
$retry .= '?username='.$uname; |
| |
} |
| if ($udom) { |
if ($udom) { |
| $retry .= '&domain='.$form->{'udom'} |
$retry .= (($retry=~/\?/)?'&':'?').'domain='.$udom; |
| } |
} |
| if (exists($form->{role})) { |
if (exists($form->{role})) { |
| $retry .= '&role='.$form->{role}; |
my $role = &Apache::loncommon::cleanup_html($form->{role}); |
| |
if ($role ne '') { |
| |
$retry .= (($retry=~/\?/)?'&':'?').'role='.$role; |
| |
} |
| } |
} |
| if (exists($form->{symb})) { |
if (exists($form->{symb})) { |
| $retry .= '&symb='.$form->{symb}; |
my $symb = &Apache::loncommon::cleanup_html($form->{symb}); |
| |
if ($symb ne '') { |
| |
$retry .= (($retry=~/\?/)?'&':'?').'symb='.$symb; |
| |
} |
| } |
} |
| my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
| &Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
| $r->send_http_header; |
$r->send_http_header; |
| my $loginhelp = &loginhelpdisplay($udom); |
my $loginhelp = &loginhelpdisplay($udom); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonauth.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth