version 1.197, 2022/05/27 01:36:08
|
version 1.198, 2022/06/01 12:12:32
|
Line 443 sub handler {
|
Line 443 sub handler {
|
} else {
|
} else {
|
$tokenextras .= '&'.$name.'='.&escape($env{'form.'.$name});
|
$tokenextras .= '&'.$name.'='.&escape($env{'form.'.$name});
|
if (($name eq 'linkkey') || ($name eq 'linkprot')) {
|
if (($name eq 'linkkey') || ($name eq 'linkprot')) {
|
if (($env{'form.retry'}) && (!$env{'form.ltoken'}) && ($name eq 'linkprot')) {
|
if ((($env{'form.retry'}) || ($env{'form.sso'})) &&
|
|
(!$env{'form.ltoken'}) && ($name eq 'linkprot')) {
|
$linkprot_for_login = $env{'form.linkprot'};
|
$linkprot_for_login = $env{'form.linkprot'};
|
}
|
}
|
$tokentype = 'link';
|
$tokentype = 'link';
|
Line 907 ENDSAML
|
Line 908 ENDSAML
|
my ($linkprotector,$linkproturi) = split(/:/,$linkprot_for_login,2);
|
my ($linkprotector,$linkproturi) = split(/:/,$linkprot_for_login,2);
|
if (($linkprotector =~ /^\d+(c|d)$/) && ($linkproturi =~ m{^/+tiny/+$LONCAPA::match_domain/+\w+$})) {
|
if (($linkprotector =~ /^\d+(c|d)$/) && ($linkproturi =~ m{^/+tiny/+$LONCAPA::match_domain/+\w+$})) {
|
my $set_target;
|
my $set_target;
|
if ($env{'form.retry'}) {
|
if (($env{'form.retry'}) || ($env{'form.sso'})) {
|
if ($linkproturi eq $env{'form.firsturl'}) {
|
if ($linkproturi eq $env{'form.firsturl'}) {
|
$set_target = " document.server.target = '_self';";
|
$set_target = " document.server.target = '_self';";
|
}
|
}
|