projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
release held packages when automatically unsuspending, RT#83847
[freeside.git]
/
FS
/
FS
/
cust_pay_batch.pm
diff --git
a/FS/FS/cust_pay_batch.pm
b/FS/FS/cust_pay_batch.pm
index
614c117
..
2931fe7
100644
(file)
--- a/
FS/FS/cust_pay_batch.pm
+++ b/
FS/FS/cust_pay_batch.pm
@@
-239,7
+239,7
@@
sub expmmyy {
=item pay_batch
=item pay_batch
-Returns the payment batch this payment belongs to (L<FS::pay_batch).
+Returns the payment batch this payment belongs to (L<FS::pay_batch
>
).
=cut
=cut
@@
-293,6
+293,9
@@
sub approve {
if ( $error ) {
return "error approving paybatchnum $paybatchnum: $error\n";
}
if ( $error ) {
return "error approving paybatchnum $paybatchnum: $error\n";
}
+
+ return if $new->paycode eq "C";
+
my $cust_pay = new FS::cust_pay ( {
'custnum' => $new->custnum,
'payby' => $new->payby,
my $cust_pay = new FS::cust_pay ( {
'custnum' => $new->custnum,
'payby' => $new->payby,
@@
-479,8
+482,8
@@
sub process_unbatch_and_delete {
=item unbatch_and_delete
May only be called on a record with an empty status and an associated
=item unbatch_and_delete
May only be called on a record with an empty status and an associated
-L<pay_batch> with a status of 'O' (not yet in transit.) Deletes all associated
-records from L<cust_bill_pay_batch> and then deletes this record.
+L<
FS::
pay_batch> with a status of 'O' (not yet in transit.) Deletes all associated
+records from L<
FS::
cust_bill_pay_batch> and then deletes this record.
If there is an error, returns the error, otherwise returns false.
=cut
If there is an error, returns the error, otherwise returns false.
=cut