diff options
| author | Mark Wells <mark@freeside.biz> | 2015-08-30 22:30:10 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2015-08-30 22:30:10 -0700 |
| commit | d20bfa4ce8103281e192e221020ec89a123875f6 (patch) | |
| tree | 36a62504cde44e1b3e1c4cec0f4c49b67d910714 /FS/FS/cust_pay_batch.pm | |
| parent | 50e00caf8ba629f85beaa499197947716dd30733 (diff) | |
fix invoice deletion vs. cust_pay_batch records, #37837
Diffstat (limited to 'FS/FS/cust_pay_batch.pm')
| -rw-r--r-- | FS/FS/cust_pay_batch.pm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/FS/FS/cust_pay_batch.pm b/FS/FS/cust_pay_batch.pm index a5fa89b..8dd6446 100644 --- a/FS/FS/cust_pay_batch.pm +++ b/FS/FS/cust_pay_batch.pm @@ -3,7 +3,7 @@ use base qw( FS::payinfo_Mixin FS::cust_main_Mixin FS::Record ); use strict; use vars qw( $DEBUG ); -use Carp qw( confess ); +use Carp qw( carp confess ); use Business::CreditCard 0.28; use FS::Record qw(dbh qsearch qsearchs); @@ -502,6 +502,19 @@ sub unbatch_and_delete { } +=item cust_bill + +Returns the invoice linked to this batched payment. Deprecated, will be +removed. + +=cut + +sub cust_bill { + carp "FS::cust_pay_batch->cust_bill is deprecated"; + my $self = shift; + $self->invnum ? qsearchs('cust_bill', { invnum => $self->invnum }) : ''; +} + =back =head1 BUGS |