httemplate/view/cust_bill-barcode.cgi

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