diff options
Diffstat (limited to 'bin/mozilla/cp.pl')
-rwxr-xr-x | bin/mozilla/cp.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl index 8848c9cb..2e4aa8e7 100755 --- a/bin/mozilla/cp.pl +++ b/bin/mozilla/cp.pl @@ -1249,11 +1249,17 @@ sub print_payment { for (qw(company address)) { $form->{$_} = $myconfig{$_} } $form->{address} =~ s/\\n/\n/g; - @a = qw(name company address text_amount text_decimal address1 address2 city state zipcode country memo); + @a = qw(rowcount name company address text_amount text_decimal address1 address2 city state zipcode country memo); %temp = (); for (@a) { $temp{$_} = $form->{$_} } + if (scalar @{$form->{invnumber}} > $check_max_invoices) { + $#{$form->{invnumber}} = $check_max_invoices - 1; + $form->{invnumbers_maxed} = 1; + $form->{message} = $locale->text("Please see attatched report for list of invoices paid."); + } + $form->format_string(@a); &print_form; |