|
version 1.189, 2021/10/06 19:41:53
|
version 1.190, 2021/10/08 14:45:45
|
|
Line 810 HEADER
|
Line 810 HEADER
|
| $ssologin = $samlssourl;
|
$ssologin = $samlssourl;
|
| }
|
}
|
| if ($env{'form.firsturl'} ne '') {
|
if ($env{'form.firsturl'} ne '') {
|
| my $querystring;
|
my $querystring = 'origurl=';
|
| if ($env{'form.firsturl'} =~ /[^\x00-\xFF]/) {
|
if ($env{'form.firsturl'} =~ /[^\x00-\xFF]/) {
|
| $querystring = &uri_escape_utf8($env{'form.firsturl'});
|
$querystring .= &uri_escape_utf8($env{'form.firsturl'});
|
| } else {
|
} else {
|
| $querystring = &uri_escape($env{'form.firsturl'});
|
$querystring .= &uri_escape($env{'form.firsturl'});
|
| }
|
}
|
| $querystring = &HTML::Entities::encode($querystring,"'");
|
$querystring = &HTML::Entities::encode($querystring,"'");
|
| $ssologin .= (($ssologin=~/\?/)?'&':'?') . $querystring;
|
$ssologin .= (($ssologin=~/\?/)?'&':'?') . $querystring;
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlogin.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth