projects
/
Business-OnlinePayment-InternetSecure.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
009f448
)
Added date()
author
fbriere
<fbriere>
Fri, 17 Feb 2006 01:13:58 +0000
(
01:13
+0000)
committer
fbriere
<fbriere>
Fri, 17 Feb 2006 01:13:58 +0000
(
01:13
+0000)
InternetSecure.pm
patch
|
blob
|
history
t/30parse.t
patch
|
blob
|
history
diff --git
a/InternetSecure.pm
b/InternetSecure.pm
index
85bb05e
..
0dd4d2a
100755
(executable)
--- a/
InternetSecure.pm
+++ b/
InternetSecure.pm
@@
-38,6
+38,7
@@
sub set_defaults {
$self->build_subs(qw(
receipt_number sales_number
$self->build_subs(qw(
receipt_number sales_number
+ date
card_type
total_amount
avs_response cvv2_response
card_type
total_amount
avs_response cvv2_response
@@
-251,6
+252,7
@@
sub parse_response {
$self->infuse($response, qw(
ReceiptNumber receipt_number
SalesOrderNumber sales_number
$self->infuse($response, qw(
ReceiptNumber receipt_number
SalesOrderNumber sales_number
+ Date date
CardType card_type
Page result_code
ApprovalCode authorization
CardType card_type
Page result_code
ApprovalCode authorization
@@
-470,6
+472,10
@@
InternetSecure transactions.
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.
+=item date()
+
+Date and time of the transaction. Format is C<YYYY/MM/DD hh:mm:ss>.
+
=item total_amount()
Total amount billed for this order, including taxes.
=item total_amount()
Total amount billed for this order, including taxes.
diff --git
a/t/30parse.t
b/t/30parse.t
index
dbdeec0
..
cfc2b55
100755
(executable)
--- a/
t/30parse.t
+++ b/
t/30parse.t
@@
-1,6
+1,7
@@
use constant FIELDS => qw(
result_code authorization error_message
receipt_number sales_number
use constant FIELDS => qw(
result_code authorization error_message
receipt_number sales_number
+ date
card_type
avs_response cvv2_response
total_amount
card_type
avs_response cvv2_response
total_amount
@@
-14,6
+15,7
@@
use constant RESULTS => (
error_message => 'Test Approved',
receipt_number => '1096019995.5012',
sales_number => 0,
error_message => 'Test Approved',
receipt_number => '1096019995.5012',
sales_number => 0,
+ date => '2003/12/17 09:59:58',
card_type => undef,
avs_response => undef,
cvv2_response => undef,
card_type => undef,
avs_response => undef,
cvv2_response => undef,
@@
-26,6
+28,7
@@
use constant RESULTS => (
error_message => 'Real error message',
receipt_number => '1096021915.5853',
sales_number => 729,
error_message => 'Real error message',
receipt_number => '1096021915.5853',
sales_number => 729,
+ date => '2003/12/17 10:31:58',
card_type => 'Visa',
avs_response => undef,
cvv2_response => undef,
card_type => 'Visa',
avs_response => undef,
cvv2_response => undef,