Merge branch 'master' of git.freeside.biz:/home/git/Business-OnlinePayment

[Business-OnlinePayment.git] / OnlinePayment.pm

diff --git a/OnlinePayment.pm b/OnlinePayment.pm
index 73f1123..12b3899 100644 (file)
--- a/OnlinePayment.pm
+++ b/OnlinePayment.pm
@@ -6,7 +6,7 @@ use Carp;
 
 require 5.005;
 
 
 require 5.005;
 

-$VERSION = '3.01';
+$VERSION = '3.03_01';

 $VERSION = eval $VERSION; # modperlstyle: convert the string into a number
 
 # Remember subclasses we have "wrapped" submit() with _pre_submit()
 $VERSION = eval $VERSION; # modperlstyle: convert the string into a number
 
 # Remember subclasses we have "wrapped" submit() with _pre_submit()


@@ -50,16 +50,16 @@ sub _info {
 %_info_handler = (
   'supported_types'   => sub {
     my( $class, $v ) = @_;
 %_info_handler = (
   'supported_types'   => sub {
     my( $class, $v ) = @_;

-    my $types = ref($v) ? $v : [ $v ];
-    $types = { map { $_=>1 } @$types } if ref($v) eq 'ARRAY';
+    my $types = ref($v) ? $v : defined($v) ? [ $v ] : [];
+    $types = { map { $_=>1 } @$types } if ref($types) eq 'ARRAY';

     $types;
   },
   'supported_actions' => sub {
     my( $class, $v ) = @_;
     $types;
   },
   'supported_actions' => sub {
     my( $class, $v ) = @_;

-    return $v if ref($v) eq 'HASH';
+    return %$v if ref($v) eq 'HASH';

     $v = [ $v ] unless ref($v);
     $v = [ $v ] unless ref($v);

-    my $types = $class->info('supported_types');
-    { map { $_ => $v } keys %$types };
+    my $types = $class->info('supported_types') || {};
+    ( map { $_ => $v } keys %$types );

   },
 );
 
   },
 );
 


@@ -270,7 +270,7 @@ Business::OnlinePayment - Perl extension for online payment processing
                         type        => 'Visa',
                         amount      => '49.95',
                         card_number => '1234123412341238',
                         type        => 'Visa',
                         amount      => '49.95',
                         card_number => '1234123412341238',

-                        expiration  => '0100',
+                        expiration  => '06/15',

                         name        => 'John Q Doe',
                        );
   $transaction->submit();
                         name        => 'John Q Doe',
                        );
   $transaction->submit();


@@ -345,6 +345,8 @@ What action being taken by this transaction. Currently available are:
 
 =item Post Authorization
 
 
 =item Post Authorization
 

+=item Reverse Authorization
+

 =item Void
 
 =item Credit
 =item Void
 
 =item Credit


@@ -398,6 +400,11 @@ Duty amount (portion of amount field, not added to it).
 
 Tax exempt flag (i.e. TRUE, FALSE, T, F, YES, NO, Y, N, 1, 0).
 
 
 Tax exempt flag (i.e. TRUE, FALSE, T, F, YES, NO, Y, N, 1, 0).
 

+=item currency
+
+Currency, specified as an ISO 4217 three-letter code, such as USD, CAD, EUR,
+AUD, DKK, GBP, JPY, NZD, etc.
+

 =back
 
 =head3 CUSTOMER INFO FIELDS
 =back
 
 =head3 CUSTOMER INFO FIELDS


@@ -494,7 +501,7 @@ Credit card number.
 
 =item expiration
 
 
 =item expiration
 

-Credit card expiration.
+Credit card expiration, MM/YY.

 
 =item cvv2
 
 
 =item cvv2
 


@@ -522,7 +529,7 @@ Track 1 on the magnetic stripe (Card present only)
 
 Track 2 on the magnetic stripe (Card present only)
 
 
 Track 2 on the magnetic stripe (Card present only)
 

-=item recurring billing
+=item recurring_billing

 
 Recurring billing flag
 
 
 Recurring billing flag
 


@@ -628,8 +635,9 @@ Submit the transaction to the processor for completion
 
 =head2 is_success()
 
 
 =head2 is_success()
 

-Returns true if the transaction was submitted successfully, false if
-it failed (or undef if it has not been submitted yet).
+Returns true if the transaction was approved by the gateway, false if 
+it was submitted but not approved, or undef if it has not been 
+submitted yet.

 
 =head2 error_message()
 
 
 =head2 error_message()
 


@@ -769,7 +777,7 @@ Phil Lobbes E<lt>phil at perkpartners dot comE<gt>
 
 Copyright (c) 1999-2004 Jason Kohles
 Copyright (c) 2004 Ivan Kohler
 
 Copyright (c) 1999-2004 Jason Kohles
 Copyright (c) 2004 Ivan Kohler

-Copyright (c) 2007-2010 Freeside Internet Services, Inc.
+Copyright (c) 2007-2012 Freeside Internet Services, Inc.

 
 All rights reserved.
 
 
 All rights reserved.