|
version 1.129, 2013/12/20 14:54:34
|
version 1.130, 2014/01/05 11:04:27
|
|
Line 108 sub success {
|
Line 108 sub success {
|
| } |
} |
| $desturl = &HTML::Entities::encode($desturl,'"<>&'); |
$desturl = &HTML::Entities::encode($desturl,'"<>&'); |
| $destsymb = &HTML::Entities::encode($destsymb,'"<>&'); |
$destsymb = &HTML::Entities::encode($destsymb,'"<>&'); |
| $destination .= '&destinationurl='.$desturl. |
$destination .= 'destinationurl='.$desturl. |
| '&destsymb='.$destsymb; |
'&destsymb='.$destsymb; |
| } else { |
} else { |
| $destsymb = &HTML::Entities::encode($destsymb,'"<>&'); |
$destsymb = &HTML::Entities::encode($destsymb,'"<>&'); |
| $destination .= '&destinationurl='.$destsymb; |
$destination .= 'destinationurl='.$destsymb; |
| } |
} |
| } |
} |
| if ($destination =~ m{^/adm/roles}) { |
if ($destination =~ m{^/adm/roles}) { |
|
Line 173 sub failed {
|
Line 173 sub failed {
|
| my $udom = &Apache::loncommon::cleanup_html($form->{'udom'}); |
my $udom = &Apache::loncommon::cleanup_html($form->{'udom'}); |
| if (&Apache::lonnet::domain($udom,'description') eq '') { |
if (&Apache::lonnet::domain($udom,'description') eq '') { |
| undef($udom); |
undef($udom); |
| } |
} |
| my $retry = '/adm/login'; |
my $retry = '/adm/login'; |
| if ($uname eq $form->{'uname'}) { |
if ($uname eq $form->{'uname'}) { |
| $retry .= '?username='.$uname; |
$retry .= '?username='.$uname; |
|
Line 183 sub failed {
|
Line 183 sub failed {
|
| } |
} |
| if (exists($form->{role})) { |
if (exists($form->{role})) { |
| my $role = &Apache::loncommon::cleanup_html($form->{role}); |
my $role = &Apache::loncommon::cleanup_html($form->{role}); |
| if ($role ne '') { |
if ($role ne '') { |
| $retry .= (($retry=~/\?/)?'&':'?').'role='.$role; |
$retry .= (($retry=~/\?/)?'&':'?').'role='.$role; |
| } |
} |
| } |
} |
![[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