blob: b55c28541fe7706d5beca69f4f5bc033086f5555 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
<% $png %>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('View invoices');
my $conf = new FS::Conf;
die 'invalid query' unless $cgi->param('invnum');
my $cust_bill = qsearchs('cust_bill', { 'invnum' => scalar($cgi->param('invnum')) } )
or die 'unknown invnum';
my $png = $cust_bill->invoice_barcode(0);
http_header('Content-Type' => 'image/png' );
</%init>
|
