projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
cf512ab
)
consider "quick payment entry" payments manual for payment receipt purposes, RT#33681
author
Ivan Kohler
<ivan@freeside.biz>
Tue, 6 Oct 2015 10:58:39 +0000
(
03:58
-0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Tue, 6 Oct 2015 10:58:39 +0000
(
03:58
-0700)
FS/FS/cust_pay.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_pay.pm
b/FS/FS/cust_pay.pm
index
89bb193
..
d9ae0d3
100644
(file)
--- a/
FS/FS/cust_pay.pm
+++ b/
FS/FS/cust_pay.pm
@@
-960,7
+960,7
@@
sub batch_insert {
}
} elsif ( !$error ) { #normal case: apply payments as usual
}
} elsif ( !$error ) { #normal case: apply payments as usual
- $cust_pay->cust_main->apply_payments;
+ $cust_pay->cust_main->apply_payments
( 'manual'=>1 )
;
}
}
}
}
@@
-1311,7
+1311,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 $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"
: '';
return $error
? "can't apply payments to customer ".$cust_pay->custnum."$error"
: '';