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
0adb94f
..
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);
@@
-39,7
+39,7
@@
sub set_defaults {
$self->path('/process.cgi');
$self->build_subs(qw(
$self->path('/process.cgi');
$self->build_subs(qw(
- receipt_number
sales
_number uuid guid
+ receipt_number
order
_number uuid guid
date
card_type cardholder
total_amount tax_amounts
date
card_type cardholder
total_amount tax_amounts
@@
-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;
@@
-283,7
+284,7
@@
sub parse_response {
cvv2_response => 'CVV2ResponseCode',
receipt_number => 'ReceiptNumber',
cvv2_response => 'CVV2ResponseCode',
receipt_number => 'ReceiptNumber',
-
sales
_number => 'SalesOrderNumber',
+
order
_number => 'SalesOrderNumber',
uuid => 'GUID',
guid => 'GUID',
uuid => 'GUID',
guid => 'GUID',
@@
-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.)
@@
-522,7
+525,7
@@
B<is_success>() instead.)
Receipt number (a string, actually) of this transaction, unique to all
InternetSecure transactions.
Receipt number (a string, actually) of this transaction, unique to all
InternetSecure transactions.
-=item
sales
_number()
+=item
order
_number()
Sales order number of this transaction. This is a number, unique to each
merchant, which is incremented by 1 each time.
Sales order number of this transaction. This is a number, unique to each
merchant, which is incremented by 1 each time.