Bug 28149: (follow-up) Add string for job status "new"

[koha-ffzg.git] / errors / 400.pl

diff --git a/errors/400.pl b/errors/400.pl
index d16f22b..e3cfc5e 100755 (executable)
--- a/errors/400.pl
+++ b/errors/400.pl
@@ -18,9 +18,10 @@
 
 use Modern::Perl;
 use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_with_http_headers );
 use C4::Context;
+use List::MoreUtils qw( any );
 
 my $query = CGI->new;
 my $admin = C4::Context->preference('KohaAdminEmailAddress');
@@ -30,11 +31,14 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         query           => $query,
         type            => 'intranet',
         authnotrequired => 1,
-        debug           => 1,
     }
 );
 $template->param (
     admin => $admin,
     errno => 400,
 );
-output_with_http_headers $query, $cookie, $template->output, 'html', '400 Bad Request';
+my $status = '400 Bad Request';
+if ( any { /(^psgi\.|^plack\.)/i } keys %ENV ) {
+    $status = '200 OK';
+}
+output_with_http_headers $query, $cookie, $template->output, 'html', $status;