projects
/
Business-OnlinePayment-InternetSecure.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Release 0.04
[Business-OnlinePayment-InternetSecure.git]
/
InternetSecure.pm
diff --git
a/InternetSecure.pm
b/InternetSecure.pm
index
257e443
..
e8c4c69
100755
(executable)
--- a/
InternetSecure.pm
+++ b/
InternetSecure.pm
@@
-12,7
+12,7
@@
use XML::Simple qw(xml_in xml_out);
use base qw(Business::OnlinePayment Exporter);
use base qw(Business::OnlinePayment Exporter);
-our $VERSION = '0.0
3
';
+our $VERSION = '0.0
4
';
use constant SUCCESS_CODES => qw(2000 90000 900P1);
use constant SUCCESS_CODES => qw(2000 90000 900P1);
@@
-50,8
+50,9
@@
sub set_defaults {
$self->tax_amounts( {} );
}
$self->tax_amounts( {} );
}
-# Backwards-compatible support for
avs_response
+# Backwards-compatible support for
renamed fields
sub avs_response { shift()->avs_code(@_) }
sub avs_response { shift()->avs_code(@_) }
+sub sales_number { shift()->order_number(@_) }
# Combine get_fields and remap_fields for convenience. Unlike OnlinePayment's
# Combine get_fields and remap_fields for convenience. Unlike OnlinePayment's
@@
-150,7
+151,7
@@
sub to_xml {
croak "Unsupported transaction type: $content{type}"
if $content{type} &&
! grep lc($content{type}) eq lc($_),
croak "Unsupported transaction type: $content{type}"
if $content{type} &&
! grep lc($content{type}) eq lc($_),
- values %{+CARD_TYPES};
+ values %{+CARD_TYPES}
, 'CC'
;
croak 'Unsupported action'
unless $content{action} =~ /^Normal Authori[zs]ation$/i;
croak 'Unsupported action'
unless $content{action} =~ /^Normal Authori[zs]ation$/i;
@@
-433,6
+434,8
@@
Transaction type, being one of the following:
=item - JCB
=item - JCB
+=item - CC
+
=back
(This is actually ignored for the moment, and can be left blank or undefined.)
=back
(This is actually ignored for the moment, and can be left blank or undefined.)