From e7b8f44e16adb3fa274c81889f17ba098f350d81 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sat, 9 Sep 2006 20:53:43 +0000 Subject: Added credit to Joshua Drake in the CONTRIBUTORS file. CHanged the check printing behavior to warn when too many invoices are printed on the check stub. git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@50 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/mozilla/cp.pl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'bin/mozilla/cp.pl') 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; -- cgit v1.2.3