use strict;
use vars qw( @ISA @EXPORT_OK $DEBUG $me $conf @encrypted_fields
- $import $skip_fuzzyfiles $ignore_expired_card );
+ $import $skip_fuzzyfiles $ignore_expired_card @paytypes);
use vars qw( $realtime_bop_decline_quiet ); #ugh
use Safe;
use Carp;
$ignore_expired_card = 0;
@encrypted_fields = ('payinfo', 'paycvv');
+@paytypes = ('Personal checking', 'Personal savings', 'Business checking', 'Business savings');
#ask FS::UID to run this stuff for us later
#$FS::UID::callback{'FS::cust_main'} = sub {
|| $self->ut_numbern('referral_custnum')
|| $self->ut_textn('stateid')
|| $self->ut_textn('stateid_state')
+ || $self->ut_textn('invoice_terms')
;
#barf. need message catalogs. i18n. etc.
$error .= "Please select an advertising source."
$error = $self->ut_numbern('paystart_month')
|| $self->ut_numbern('paystart_year')
|| $self->ut_numbern('payissue')
+ || $self->ut_textn('paytype')
;
return $error if $error;
unless ( $transaction->error_message ) {
my $t_response;
- #this should be normalized :/
- #
- # bad, ad-hoc B:OP:PayflowPro "transaction_response" BS
- if ( $transaction->can('param')
- && $transaction->param('transaction_response') ) {
- $t_response = $transaction->param('transaction_response')
-
- # slightly better, ad-hoc B:OP:TransactionCentral without "param"
- } elsif ( $transaction->can('response_page') ) {
+ if ( $transaction->can('response_page') ) {
$t_response = {
'page' => ( $transaction->can('response_page')
? $transaction->response_page