3.04

[Business-OnlinePayment.git] / OnlinePayment.pm

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

-$VERSION = '3.03';
+$VERSION = '3.04';

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


@@ -19,6 +19,7 @@ my @methods = qw(
     failure_status
     fraud_detect
     is_success
     failure_status
     fraud_detect
     is_success

+    partial_auth_amount

     maximum_risk
     path
     port
     maximum_risk
     path
     port


@@ -381,6 +382,16 @@ just a whole or floating point number (i.e. 26, 26.1 or 26.13).
 
 =over 4
 
 
 =over 4
 

+=item partial_auth
+
+If you are prepared to handle partial authorizations
+(see L<partial_auth_amount()|/"partial_auth_amount()">
+ in L<TRANSACTION RESULT FIELDS|/"TRANSACTION RESULT FIELDS">),
+pass a true value in this field to enable them.
+
+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


@@ -654,6 +665,15 @@ 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.
 
 it was submitted but not approved, or undef if it has not been 
 submitted yet.
 

+=head2 partial_auth_amount()
+
+If this transaction was a partial authorization (i.e. successful, but less than
+the requested amount was processed), then the amount processed is returned in
+this field.
+
+(When is_success is true but this field is empty or 0, that indicates a normal
+full authorization for the entire requested amount.)
+

 =head2 error_message()
 
 If the transaction has been submitted but was not accepted, this
 =head2 error_message()
 
 If the transaction has been submitted but was not accepted, this


@@ -790,7 +810,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-2014 Freeside Internet Services, Inc.
+Copyright (c) 2007-2015 Freeside Internet Services, Inc.

 
 All rights reserved.
 
 
 All rights reserved.
 


@@ -799,9 +819,9 @@ 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
 


@@ -817,11 +837,15 @@ The code is available from our public git repository:
 Or on the web:
 
   http://freeside.biz/gitweb/?p=Business-OnlinePayment.git
 Or on the web:
 
   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:
 
   http://freeside.biz/gitweb/
 
 Many (but by no means all!) processor plugins are also available in the same
 repository, see:
 
   http://freeside.biz/gitweb/

+  Or:
+  http://freeside.biz/gitlist/

 
 =head1 DISCLAIMER
 
 
 =head1 DISCLAIMER
 


@@ -831,7 +855,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>.