partial auth

[Business-OnlinePayment.git] / OnlinePayment.pm

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

-$VERSION = '3.04_01';
+$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()


@@ -35,6 +35,8 @@ my @methods = qw(
     response_page
     avs_code
     cvv2_response
     response_page
     avs_code
     cvv2_response

+    partial_auth
+    partial_auth_amount

 );
 
 __PACKAGE__->build_subs(@methods);
 );
 
 __PACKAGE__->build_subs(@methods);


@@ -381,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


@@ -671,6 +678,11 @@ other errors).
 Note that not all processor modules support this, and that if supported,
 it may not be set for all declines.
 
 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()
 
 If the transaction has been submitted and accepted, this function will
 =head2 authorization()
 
 If the transaction has been submitted and accepted, this function will