diff options
Diffstat (limited to 'IPPay.pm')
| -rw-r--r-- | IPPay.pm | 15 |
1 files changed, 12 insertions, 3 deletions
@@ -11,7 +11,7 @@ use Business::OnlinePayment::HTTPS; use vars qw($VERSION $DEBUG @ISA $me); @ISA = qw(Business::OnlinePayment::HTTPS); -$VERSION = '0.06'; +$VERSION = '0.07_01'; $VERSION = eval $VERSION; # modperlstyle: convert the string into a number $DEBUG = 0; @@ -28,6 +28,7 @@ sub _info { 'Post Authorization', 'Void', 'Credit', + 'Reverse Authorization', ], 'ECHECK' => [ 'Normal Authorization', @@ -89,6 +90,7 @@ sub map_fields { ( 'normal authorization' => 'SALE', 'authorization only' => 'AUTHONLY', 'post authorization' => 'CAPT', + 'reverse authorization' => 'REVERSEAUTH', 'void' => 'VOID', 'credit' => 'CREDIT', ); @@ -189,6 +191,8 @@ sub submit { }elsif ( $action eq 'post authorization' && $type eq 'CC') { push @required_fields, qw( order_number ); + }elsif ( $action eq 'reverse authorization' && $type eq 'CC') { + push @required_fields, qw( order_number card_number expiration amount ); }elsif ( $action eq 'void') { push @required_fields, qw( order_number amount ); @@ -521,6 +525,7 @@ The following actions are valid normal authorization authorization only + reverse authorization post authorization credit void @@ -593,9 +598,13 @@ Business::OnlinePayment::IPPay uses IPPay XML Product Specifications version See http://www.ippay.com/ for more information. -=head1 AUTHOR +=head1 AUTHORS -Jeff Finucane, ippay@weasellips.com +Original author: Jeff Finucane + +Current maintainer: Ivan Kohler <ivan-ippay@freeside.biz> + +Reverse Authorization patch from dougforpres =head1 SEE ALSO |