summaryrefslogtreecommitdiff
path: root/bin/mozilla/cp.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/mozilla/cp.pl')
-rwxr-xr-xbin/mozilla/cp.pl8
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;