[freeside-commits] freeside/httemplate/view cust_bill-barcode.cgi, NONE, 1.1.2.1 cust_bill.cgi, 1.46, 1.46.2.1

Erik Levinson levinse at wavetail.420.am
Tue Feb 15 23:39:04 PST 2011


Update of /home/cvs/cvsroot/freeside/httemplate/view
In directory wavetail.420.am:/tmp/cvs-serv18719/httemplate/view

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	cust_bill.cgi 
Added Files:
      Tag: FREESIDE_2_1_BRANCH
	cust_bill-barcode.cgi 
Log Message:
add barcodes to invoices, HTML part, RT10698

--- NEW FILE: cust_bill-barcode.cgi ---
<% $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>

Index: cust_bill.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/view/cust_bill.cgi,v
retrieving revision 1.46
retrieving revision 1.46.2.1
diff -u -w -d -r1.46 -r1.46.2.1
--- cust_bill.cgi	3 Nov 2010 23:44:48 -0000	1.46
+++ cust_bill.cgi	16 Feb 2011 07:39:02 -0000	1.46.2.1
@@ -125,6 +125,8 @@
   'notice_name'   => $notice_name,
 );
 
+$opt{'barcode_img'} = 1 if $conf->exists('invoice-barcode');
+
 my @payby =  grep /\w/, $conf->config('payby');
 #@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH WEST COMP ))
 @payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH COMP ))



More information about the freeside-commits mailing list