partial auth

[Business-OnlinePayment.git] / OnlinePayment.pm

diff --git a/OnlinePayment.pm b/OnlinePayment.pm
index 00a34c1..eff1ec6 100644 (file)
--- a/OnlinePayment.pm
+++ b/OnlinePayment.pm
@@ -6,7 +6,7 @@ use Carp;
 
 require 5.005;
 
 
 require 5.005;
 

-$VERSION = '3.01_04';
+$VERSION = '3.04_02';

 $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()


@@ -33,8 +33,14 @@ my @methods = qw(
     response_code
     response_header
     response_page
     response_code
     response_header
     response_page

+    avs_code
+    cvv2_response
+    partial_auth
+    partial_auth_amount

 );
 
 );
 

+__PACKAGE__->build_subs(@methods);
+

 #fallback
 sub _info {
   my $class = shift;
 #fallback
 sub _info {
   my $class = shift;


@@ -50,16 +56,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 );

   },
 );
 
   },
 );
 


@@ -86,7 +92,6 @@ sub new {
     croak("unknown processor $processor ($@)") if $@;
 
     my $self = bless {processor => $processor}, $subclass;
     croak("unknown processor $processor ($@)") if $@;
 
     my $self = bless {processor => $processor}, $subclass;

-    $self->build_subs(@methods);

 
     if($self->can("set_defaults")) {
         $self->set_defaults(%data);
 
     if($self->can("set_defaults")) {
         $self->set_defaults(%data);


@@ -157,7 +162,6 @@ sub _pre_submit {
               unless ( $@ =~ m/^Can\'t locate/ );
         } else {
             my $risk_tx = bless( { processor => $fraud_detection }, $subclass );
               unless ( $@ =~ m/^Can\'t locate/ );
         } else {
             my $risk_tx = bless( { processor => $fraud_detection }, $subclass );

-            $risk_tx->build_subs(@methods);

             if ($risk_tx->can('set_defaults')) {
                 $risk_tx->set_defaults();
             }
             if ($risk_tx->can('set_defaults')) {
                 $risk_tx->set_defaults();
             }


@@ -270,15 +274,24 @@ 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',
                        );
                         name        => 'John Q Doe',
                        );

-  $transaction->submit();
-  
-  if($transaction->is_success()) {
-    print "Card processed successfully: ", $transaction->authorization(), "\n";
+
+  eval { $transaction->submit(); };
+
+  if ( $@ ) {
+
+    print "$processor error: $@\n";
+

   } else {
   } else {

-    print "Card was rejected: ", $transaction->error_message(), "\n";
+  
+    if ( $transaction->is_success() ) {
+      print "Card processed successfully: ". $transaction->authorization()."\n";
+    } else {
+      print "Card was rejected: ". $transaction->error_message(). "\n";
+    }
+

   }
 
 =head1 DESCRIPTION
   }
 
 =head1 DESCRIPTION


@@ -345,6 +358,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


@@ -368,6 +383,11 @@ just a whole or floating point number (i.e. 26, 26.1 or 26.13).
 
 =over 4
 
 
 =over 4
 

+=item partial_auth
+
+Set true to accept a partial authorization.  If this flag is not set, a partial
+authorization will be immediately reversed or voided.
+

 =item description
 
 A description of the transaction (used by some processors to send
 =item description
 
 A description of the transaction (used by some processors to send


@@ -398,6 +418,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 +519,7 @@ Credit card number.
 
 =item expiration
 
 
 =item expiration
 

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

 
 =item cvv2
 
 
 =item cvv2
 


@@ -522,7 +547,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
 


@@ -622,14 +647,19 @@ verification (if the processor supports it).
 
 =head2 submit()
 
 
 =head2 submit()
 

-Submit the transaction to the processor for completion
+Submit the transaction to the processor for completion.
+
+If there is a gateway communication error or other "meta" , the submit method
+will throw a fatal exception.  You can catch this with eval {} if you would
+like to treat gateway co

 
 =head1 TRANSACTION RESULT METHODS
 
 =head2 is_success()
 
 
 =head1 TRANSACTION RESULT METHODS
 
 =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()
 


@@ -645,10 +675,13 @@ are: "expired", "nsf" (non-sufficient funds), "stolen", "pickup",
 "blacklisted" and "declined" (card/transaction declines only, not
 other errors).
 
 "blacklisted" and "declined" (card/transaction declines only, not
 other errors).
 

-Note that (as of Aug 2006) this is only supported by some of the
-newest processor modules, and that, even if supported, a failure
-status is an entirely optional field that is only set for specific
-kinds of failures.
+Note that not all processor modules support this, and that if supported,
+it may not be set for all declines.
+
+=head2 partial_auth_amount()
+
+Amount of the partial authorization, if the processor supports them and the
+partial_auth flag was passed to indicate they should be processed.

 
 =head2 authorization()
 
 
 =head2 authorization()
 


@@ -765,11 +798,22 @@ Ivan Kohler <ivan-business-onlinepayment@420.am>
 
 Phil Lobbes E<lt>phil at perkpartners dot comE<gt>
 
 
 Phil Lobbes E<lt>phil at perkpartners dot comE<gt>
 

+=head1 COPYRIGHT
+
+Copyright (c) 1999-2004 Jason Kohles
+Copyright (c) 2004 Ivan Kohler
+Copyright (c) 2007-2015 Freeside Internet Services, Inc.
+
+All rights reserved.
+
+This program is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+

 =head1 HOMEPAGE
 
 =head1 HOMEPAGE
 

-Homepage:  http://420.am/business-onlinepayment/
+Homepage:  http://perl.business/onlinepayment

 
 

-Development:  http://420.am/business-onlinepayment/ng.html
+Development:  http://perl.business/onlinepayment/ng.html

 
 =head1 MAILING LIST
 
 
 =head1 MAILING LIST
 


@@ -778,21 +822,22 @@ http://420.am/cgi-bin/mailman/listinfo/bop-devel/
 
 =head1 REPOSITORY
 
 
 =head1 REPOSITORY
 

-The code is available from our public CVS repository:
+The code is available from our public git repository:

 
 

-  export CVSROOT=":pserver:anonymous@cvs.freeside.biz:/home/cvs/cvsroot"
-  cvs login
-  # The password for the user `anonymous' is `anonymous'.
-  cvs checkout Business-OnlinePayment
+  git clone git://git.freeside.biz/Business-OnlinePayment.git

 
 Or on the web:
 
 
 Or on the web:
 

-  http://freeside.biz/cgi-bin/viewvc.cgi/Business-OnlinePayment/
+  http://freeside.biz/gitweb/?p=Business-OnlinePayment.git
+  Or:
+  http://freeside.biz/gitlist/Business-OnlinePayment.git

 
 Many (but by no means all!) processor plugins are also available in the same
 repository, see:
 
 
 Many (but by no means all!) processor plugins are also available in the same
 repository, see:
 

-  http://freeside.biz/cgi-bin/viewvc.cgi/
+  http://freeside.biz/gitweb/
+  Or:
+  http://freeside.biz/gitlist/

 
 =head1 DISCLAIMER
 
 
 =head1 DISCLAIMER
 


@@ -802,7 +847,7 @@ MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 
 =head1 SEE ALSO
 
 
 =head1 SEE ALSO
 

-http://420.am/business-onlinepayment/
+http://perl.business/onlinepayment

 
 For verification of credit card checksums, see L<Business::CreditCard>.
 
 
 For verification of credit card checksums, see L<Business::CreditCard>.