| Subject: | Patch to enable "normal authorization" |
This patch should enable the "normal authorization" method for BankOfAmerica. Thanks to Austin from Clark for President.
--- BankOfAmerica.pm.~1.2.~ 2003-12-12 11:38:26.000000000 -0600
+++ BankOfAmerica.pm 2003-12-21 21:14:55.000000000 -0600
@@ -62,13 +62,23 @@
my $action = lc($content{'action'});
- die 'Normal Authorization not supported'
- if $action eq 'normal authorization';
-
my @fields;
my $ioc_indicator = '';
- if ( $action eq 'authorization only' ) {
+ if ( $action eq 'normal authorization' ) {
+ $self->path('/payment.mart');
+ @fields = qw(
+ ioc_merchant_id ioc_order_total_amount ioc_merchant_shopper_id
ioc_auto_settle_flag
+ ioc_merchant_order_id ecom_billto_postal_name_first
+ ecom_billto_postal_name_last ecom_billto_postal_street_line1
+ ecom_billto_postal_street_line2 ecom_billto_postal_city
+ ecom_billto_postal_stateprov ecom_billto_postal_postalcode
+ ecom_billto_postal_countrycode ecom_billto_telecom_phone_number
+ ecom_billto_online_email ecom_payment_card_name
+ ecom_payment_card_number ecom_payment_card_expdate_month
+ ecom_payment_card_expdate_year
+ );
+ } elsif ( $action eq 'authorization only' ) {
$self->path('/payment.mart');
@fields = qw(
ioc_merchant_id ioc_order_total_amount ioc_merchant_shopper_id
@@ -154,6 +164,7 @@
ecom_payment_card_expdate_year => \$year,
ioc_authorization_code => 'authorization',
+ ioc_auto_settle_flag => 'Y',
ioc_indicator => \$ioc_indicator,
ioc_handshake_id => 'order_number',
ioc_email_flag => \'No',