Documentation: add country and email fields to example (closes: CPAN#80337)

[Business-OnlinePayment-AuthorizeNet.git] / AuthorizeNet / ARB.pm

diff --git a/AuthorizeNet/ARB.pm b/AuthorizeNet/ARB.pm
index 16fddae..cc8289b 100644 (file)
--- a/AuthorizeNet/ARB.pm
+++ b/AuthorizeNet/ARB.pm
@@ -10,7 +10,7 @@ use Tie::IxHash;
 use vars qw($VERSION $DEBUG @ISA $me);
 
 @ISA = qw(Business::OnlinePayment::AuthorizeNet Business::OnlinePayment::HTTPS);
-$VERSION = '0.01';
+$VERSION = '0.02';
 $DEBUG = 0;
 $me='Business::OnlinePayment::AuthorizeNet::ARB';
 
@@ -39,7 +39,7 @@ sub map_fields {
                    'cancel recurring authorization'
                       => 'ARBCancelSubscriptionRequest',
                   );
-    $content{'action'} = $actions{lc($content{'action'})} || $content{'action'};
+    $content{'action'} = $actions{lc($content{'action'} || '')} || $content{'action'};
 
     # TYPE MAP
     my %types = ('visa'               => 'CC',
@@ -48,7 +48,7 @@ sub map_fields {
                  'discover'           => 'CC',
                  'check'              => 'ECHECK',
                 );
-    $content{'type'} = $types{lc($content{'type'})} || $content{'type'};
+    $content{'type'} = $types{lc($content{'type'} || '')} || $content{'type'};
     $self->transaction_type($content{'type'});
 
     # ACCOUNT TYPE MAP
@@ -57,7 +57,7 @@ sub map_fields {
                          'business checking'   => 'businessChecking',
                          'business savings'    => 'savings',
                         );
-    $content{'account_type'} = $account_types{lc($content{'account_type'})}
+    $content{'account_type'} = $account_types{lc($content{'account_type'} || '')}
                                || $content{'account_type'};
 
     # MASSAGE EXPIRATION 
@@ -162,7 +162,6 @@ sub submit {
                           startDate        => 'start',
                           totalOccurrences => 'periods',
                           trialOccurrences => 'trialperiods',
-                          phoneNumber      => 'phone',
                         );
 
   tie my %account, 'Tie::IxHash', ( 
@@ -241,6 +240,7 @@ sub submit {
 
   tie my %sub, 'Tie::IxHash',
     $self->revmap_fields(
+                          name            => 'subscription_name',
                           paymentSchedule => \%schedule,
                           amount          => 'amount',
                           trialAmount     => 'trialamount',