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

(-)a/svc/barcode (-3 / +57 lines)
Lines 24-29 use GD::Barcode; Link Here
24
24
25
use C4::Auth qw(check_cookie_auth);
25
use C4::Auth qw(check_cookie_auth);
26
26
27
=head1 NAME
28
29
    /cgi-bin/koha/svc/barcode
30
31
=head1 SYNOPSIS
32
33
This service generates a PNG barcode image for the requested barcode.
34
35
=head2 PARAMETERS
36
37
=over
38
39
=item I<barcode>
40
41
I<barcode> is the desired barcode. It should be called like:
42
43
=item I<type>
44
45
I<type> is the desired barcode type. Possible values are TODO. If ommited,
46
it defaults to Code39.
47
48
=back
49
50
=head2 EXAMPLES
51
52
=over
53
54
=item /cgi-bin/koha/svc/barcode?barcode=123456789
55
56
Returns a Code39 barcode image for barcode 123456789
57
58
=item /cgi-bin/koha/svc/barcode?barcode=123456789&type=UPCE
59
60
Returns a UPCE barcode image for barcode 123456789
61
62
=cut
63
27
my $input = new CGI;
64
my $input = new CGI;
28
65
29
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { catalogue => '*' } );
66
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { catalogue => '*' } );
Lines 36-41 binmode(STDOUT); Link Here
36
73
37
my $type = $input->param('type') || 'Code39';
74
my $type = $input->param('type') || 'Code39';
38
my $barcode = $input->param('barcode');
75
my $barcode = $input->param('barcode');
76
my $image;
77
78
eval {
79
    $image = GD::Barcode->new( $type, $barcode )->plot()->png();
80
};
81
82
if ( $@ ) {
83
    # problem creating image
84
    print header( -status => 500 );
85
} else {
86
    print header('image/png');
87
    print $image;
88
}
89
90
exit 0;
91
92
=head1 AUTHOR
93
94
Kyle M Hall <kyle@bywatersolutions.com>
39
95
40
print header('image/png');
96
=cut
41
print GD::Barcode->new( $type, $barcode )->plot()->png();
42
- 

Return to bug 13545