Bug 30952: Reintroduce table borders

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

diff --git a/errors/401.pl b/errors/401.pl
index b271b60..f5761fc 100755 (executable)
--- a/errors/401.pl
+++ b/errors/401.pl
@@ -17,9 +17,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');
@@ -29,11 +30,14 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         query           => $query,
         type            => 'intranet',
         authnotrequired => 1,
-        debug           => 1,
     }
 );
 $template->param (
     admin => $admin,
     errno => 401,
 );
-output_with_http_headers $query, $cookie, $template->output, 'html', '401 Unauthorized';
+my $status = '401 Unauthorized';
+if ( C4::Context->is_internal_PSGI_request() ) {
+    $status = '200 OK';
+}
+output_with_http_headers $query, $cookie, $template->output, 'html', $status;