View | Details | Raw Unified | Return to bug 26692
Collapse All | Expand All

(-)a/opac/svc/barcode (-2 / +5 lines)
Lines 23-28 use CGI qw(header); Link Here
23
use GD::Barcode;
23
use GD::Barcode;
24
24
25
use C4::Auth qw(checkauth);
25
use C4::Auth qw(checkauth);
26
use C4::Output qw(output_with_http_headers);
26
27
27
=head1 NAME
28
=head1 NAME
28
29
Lines 92-98 below the scannable barcode. Link Here
92
my $input = CGI->new;
93
my $input = CGI->new;
93
94
94
my ( $user, $cookie, $sessionID, $flags ) = checkauth( $input, 1, {}, 'opac' );
95
my ( $user, $cookie, $sessionID, $flags ) = checkauth( $input, 1, {}, 'opac' );
95
$user && $sessionID or response_bad_request("User not logged in");
96
unless ( $user && $sessionID ) {
97
    output_with_http_headers( $input, undef, undef, 'html', '401 Unauthorized' );
98
    exit;
99
}
96
100
97
binmode(STDOUT);
101
binmode(STDOUT);
98
102
99
- 

Return to bug 26692