loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

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';";
}	}