diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-09 20:53:43 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-09 20:53:43 +0000 |
| commit | e7b8f44e16adb3fa274c81889f17ba098f350d81 (patch) | |
| tree | 982d3fd6fb0e8414daddb2b234c57dace7f89dd1 /bin | |
| parent | a3b03888e57c28de89173c5482352f8989edbd6b (diff) | |
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
Diffstat (limited to 'bin')
| -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; |