loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.158.2.13.2.11, 2023/12/29 23:49:12	version 1.158.2.13.2.12, 2024/09/18 16:35:51
Line 852 ENDSAMLJS	Line 852 ENDSAMLJS
.' style="margin:0 auto; padding:10px; width:90%; height: auto; background-color:#FFFFFF;">'	.' style="margin:0 auto; padding:10px; width:90%; height: auto; background-color:#FFFFFF;">'
);	);

	my $target = '_top';
	if ($sessiondata{'linkprot'}) {
	my ($linkprotector,$deeplink) = split(/:/,$sessiondata{'linkprot'},2);
	if (($deeplink eq $sessiondata{'origurl'}) &&
	(($sessiondata{'linkprotuser'} eq $sessiondata{'username'}.':'.$sessiondata{'domain'}) \|\|
	($sessiondata{'linkprotuser'} eq $sessiondata{'username'}))) {
	$target = '_self';
	}
	}
$r->print(<<ENDSERVERFORM);	$r->print(<<ENDSERVERFORM);
<form name="server" action="/adm/authenticate" method="post" target="_top">	<form name="server" action="/adm/authenticate" method="post" target="$target">
<input type="hidden" name="logtoken" value="$logtoken" />	<input type="hidden" name="logtoken" value="$logtoken" />
<input type="hidden" name="serverid" value="$lonhost" />	<input type="hidden" name="serverid" value="$lonhost" />
<input type="hidden" name="uname" value="" />	<input type="hidden" name="uname" value="" />