loncom/auth/lonshibauth.pm - diff

Return to lonshibauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.7, 2021/10/07 15:51:16	version 1.8, 2021/10/07 18:52:03
Line 94 sub handler {	Line 94 sub handler {
if ($ENV{'QUERY_STRING'} ne '') {	if ($ENV{'QUERY_STRING'} ne '') {
$dest .= '?'.$ENV{'QUERY_STRING'};	$dest .= '?'.$ENV{'QUERY_STRING'};
}	}
unless (($uri eq '/adm/roles') \|\| ($ENV{'QUERY_STRING'} =~ /origurl=/)) {	unless (($uri eq '/adm/roles') \|\| ($uri eq '/adm/logout')) {
$dest.=(($dest=~/\?/)?'&':'?').'origurl='.$uri;	if ($target eq '/adm/login') {
	unless ($ENV{'QUERY_STRING'} =~ /firsturl=/) {
	$dest.=(($dest=~/\?/)?'&':'?').'firsturl='.$uri;
	}
	} else {
	unless ($ENV{'QUERY_STRING'} =~ /origurl=/)) {
	$dest.=(($dest=~/\?/)?'&':'?').'origurl='.$uri;
	}
	}
}	}
$r->header_out(Location => $dest);	$r->header_out(Location => $dest);
return REDIRECT;	return REDIRECT;