projects
/
Business-OnlinePayment-IPPay.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add Reverse Authorization support, patch from dougforpres
[Business-OnlinePayment-IPPay.git]
/
IPPay.pm
diff --git
a/IPPay.pm
b/IPPay.pm
index
59c3e78
..
963ba5b
100644
(file)
--- a/
IPPay.pm
+++ b/
IPPay.pm
@@
-11,7
+11,7
@@
use Business::OnlinePayment::HTTPS;
use vars qw($VERSION $DEBUG @ISA $me);
@ISA = qw(Business::OnlinePayment::HTTPS);
use vars qw($VERSION $DEBUG @ISA $me);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.0
6
';
+$VERSION = '0.0
7_01
';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
@@
-28,6
+28,7
@@
sub _info {
'Post Authorization',
'Void',
'Credit',
'Post Authorization',
'Void',
'Credit',
+ 'Reverse Authorization',
],
'ECHECK' => [
'Normal Authorization',
],
'ECHECK' => [
'Normal Authorization',
@@
-89,6
+90,7
@@
sub map_fields {
( 'normal authorization' => 'SALE',
'authorization only' => 'AUTHONLY',
'post authorization' => 'CAPT',
( 'normal authorization' => 'SALE',
'authorization only' => 'AUTHONLY',
'post authorization' => 'CAPT',
+ 'reverse authorization' => 'REVERSEAUTH',
'void' => 'VOID',
'credit' => 'CREDIT',
);
'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 '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 );
}elsif ( $action eq 'void') {
push @required_fields, qw( order_number amount );
@@
-521,6
+525,7
@@
The following actions are valid
normal authorization
authorization only
normal authorization
authorization only
+ reverse authorization
post authorization
credit
void
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.
See http://www.ippay.com/ for more information.
-=head1 AUTHOR
+=head1 AUTHOR
S
-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
=head1 SEE ALSO