diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-10-06 03:58:41 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-10-06 03:58:41 -0700 |
| commit | 15b40cdb23b1e3b0e3d8372ead91b8a5244bb0e2 (patch) | |
| tree | 03630fbe27cf85b71f7b0f5687d760c9161337dc | |
| parent | 525c5b843587d7a9c876d875e1ad93458073ac02 (diff) | |
consider "quick payment entry" payments manual for payment receipt purposes, RT#33681
| -rw-r--r-- | FS/FS/cust_pay.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index cb39d4391..e8aa3c779 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -1001,7 +1001,7 @@ sub batch_insert { } } elsif ( !$error ) { #normal case: apply payments as usual - $cust_pay->cust_main->apply_payments; + $cust_pay->cust_main->apply_payments( 'manual'=>1 ); } } @@ -1352,7 +1352,7 @@ sub process_batch_import { my $cust_pay = shift; my $cust_main = $cust_pay->cust_main or return "can't find customer to which payments apply"; - my $error = $cust_main->apply_payments_and_credits; + my $error = $cust_main->apply_payments_and_credits( 'manual'=>1 ); return $error ? "can't apply payments to customer ".$cust_pay->custnum."$error" : ''; |