my ($query) = @_;
my $param = $protocol . C4::Context->preference('OPACBaseURL') . $query->script_name();
if ( $query->query_string() ) {
$param = $param . '%3F' . $query->query_string();
}
my $uri = $protocol . C4::Context->preference('OPACBaseURL') . "/Shibboleth.sso/Login?target=$param";
return $uri;
-