--- loncom/auth/lonlogin.pm 2023/12/29 23:49:12 1.158.2.13.2.11 +++ loncom/auth/lonlogin.pm 2024/09/18 16:35:51 1.158.2.13.2.12 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.158.2.13.2.11 2023/12/29 23:49:12 raeburn Exp $ +# $Id: lonlogin.pm,v 1.158.2.13.2.12 2024/09/18 16:35:51 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -852,8 +852,17 @@ ENDSAMLJS .' 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(< +