--- loncom/auth/lonlogin.pm 2023/11/21 19:52:18 1.207 +++ loncom/auth/lonlogin.pm 2024/09/18 15:11:31 1.208 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.207 2023/11/21 19:52:18 raeburn Exp $ +# $Id: lonlogin.pm,v 1.208 2024/09/18 15:11:31 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -857,8 +857,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(< +