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
b6632ed
..
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);
@@
-151,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;
@@
-434,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.)