Commit f2d19571 authored by Christophe Maudoux's avatar Christophe Maudoux 🐛

Partial revert (#1585)

parent 3d08f13d
......@@ -155,7 +155,7 @@ sub _authAndTrace {
}
else {
my %h = $req->{respHeaders} ? @{ $req->{respHeaders} } : ();
my $s = $type->tsv->{portal}->() . "lmerror/$res";
my $s = $type->tsv->{portal}->() . "/lmerror/$res";
$s =
'<html><head><title>Redirection</title></head><body>'
. qq{<script type="text/javascript">window.location='$s'</script>}
......
......@@ -386,7 +386,7 @@ sub goToError {
"Redirect $req->{env}->{REMOTE_ADDR} to lmError (url was $url)");
$class->set_header_out( $req,
'Location' => $class->tsv->{portal}->()
. "lmerror/$code"
. "/lmerror/$code"
. "?url=$urlc_init" );
return $class->REDIRECT;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment