view release on metacpan or  search on metacpan

IPPay.pm  view on Meta::CPAN

101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
  $content{'TransactionType'} = $actions{$action} || $action;
} elsif ($self->transaction_type eq 'ECHECK') {
 
  $content{'TransactionType'} = $check_actions{$action} || $action;
 
  # ACCOUNT TYPE MAP
  my %account_types = ('personal checking'   => 'CHECKING',
                       'personal savings'    => 'SAVINGS',
                       'business checking'   => 'CHECKING',
                       'business savings'    => 'SAVINGS',
                       #not technically B:OP valid i guess?
                       'checking'            => 'CHECKING',
                       'savings'             => 'SAVINGS',
                      );
  $content{'account_type'} = $account_types{lc($content{'account_type'})}
                             || $content{'account_type'};
}
 
$content{Origin} = 'RECURRING'
  if ($content{recurring_billing} &&$content{recurring_billing} eq 'YES' );