diff options
author | jeff <jeff> | 2009-03-10 16:14:11 +0000 |
---|---|---|
committer | jeff <jeff> | 2009-03-10 16:14:11 +0000 |
commit | 32db3ad86bcf04e4f34705a396b718061d333f20 (patch) | |
tree | 1c64247c48327cb36d3bf7cbee466a655917fea4 /FS/FS/cust_pay_pending.pm | |
parent | 200171841941972b3305cf8be8ef367a1a363e93 (diff) |
merge webpay support in with autoselection of old realtime_bop and realtime_refund_bop
Diffstat (limited to 'FS/FS/cust_pay_pending.pm')
-rw-r--r-- | FS/FS/cust_pay_pending.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/FS/FS/cust_pay_pending.pm b/FS/FS/cust_pay_pending.pm index bbabd24..fba19ea 100644 --- a/FS/FS/cust_pay_pending.pm +++ b/FS/FS/cust_pay_pending.pm @@ -191,6 +191,7 @@ sub check { #|| $self->ut_textn('statustext') || $self->ut_anything('statustext') #|| $self->ut_money('cust_balance') + || $self->ut_hexn('session_id') || $self->ut_foreign_keyn('paynum', 'cust_pay', 'paynum' ) || $self->payinfo_check() #payby/payinfo/paymask/paydate ; @@ -215,6 +216,18 @@ sub check { $self->SUPER::check; } +=item cust_main + +Returns the associated L<FS::cust_main> record if any. Otherwise returns false. + +=cut + +sub cust_main { + my $self = shift; + qsearchs('cust_main', { custnum => $self->custnum } ); +} + + #these two are kind-of false laziness w/cust_main::realtime_bop #(currently only used when resolving pending payments manually) |