summaryrefslogtreecommitdiff
path: root/httemplate/view/cust_bill-barcode.cgi
blob: dd8f8b81432656dfac27ce4655006baf2c74e3b2 (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' => $cgi->param('invnum') } )
or die 'unknown invnum';

my $png = $cust_bill->invoice_barcode(0);

http_header('Content-Type' => 'image/png' );

</%init>