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;
|