Partial revert (#1585)

This commit is contained in:
Christophe Maudoux 2018-12-15 20:31:05 +01:00
parent 3d08f13da4
commit f2d1957114
2 changed files with 2 additions and 2 deletions

View File

@ -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>}

View File

@ -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;
}