From 572ed4c14c0988a1077201ab01bb5d7a685720da Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 17 Dec 2002 21:31:22 +0000 Subject: [PATCH] invoice_lines() fix --- FS/FS/cust_bill.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index 6856e5fe8..294cb5c82 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -1124,9 +1124,9 @@ sub print_text { or die "cannot load config file $templatefile"; $invoice_lines = 0; my $wasfunc = 0; - foreach ( grep /invoice_lines\(\d+\)/, @invoice_template ) { #kludgy - /invoice_lines\((\d+)\)/; - $invoice_lines += $1; + foreach ( grep /invoice_lines\(\d*\)/, @invoice_template ) { #kludgy + /invoice_lines\((\d*)\)/; + $invoice_lines += $1 || scalar(@buf); $wasfunc=1; } die "no invoice_lines() functions in template?" unless $wasfunc; @@ -1211,7 +1211,7 @@ sub print_text { =head1 VERSION -$Id: cust_bill.pm,v 1.41.2.15 2002-12-14 12:19:16 steve Exp $ +$Id: cust_bill.pm,v 1.41.2.16 2002-12-17 21:31:22 ivan Exp $ =head1 BUGS -- 2.20.1