projects
/
Business-OnlinePayment-Jettis.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ecb1da0
)
state_id / state_id_state vs license_num / license_dob
author
ivan
<ivan>
Sun, 10 May 2009 06:30:12 +0000
(06:30 +0000)
committer
ivan
<ivan>
Sun, 10 May 2009 06:30:12 +0000
(06:30 +0000)
Changes
patch
|
blob
|
history
Jettis.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
4491b37
..
13be3a3
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-9,7
+9,7
@@
Revision history for Perl extension Business::OnlinePayment::Jettis.
type still, so as not to break existing applications)
-pass PS_TXN_TYPE field type to jettis
-pass customer_ssn as SSN4
type still, so as not to break existing applications)
-pass PS_TXN_TYPE field type to jettis
-pass customer_ssn as SSN4
- -pass bogus DL_NUM and DL_STATE info
(XXX wtf?)
+ -pass bogus DL_NUM and DL_STATE info
to pass validation test
0.02 Sun Jan 25 02:43:21 PST 2009
-change SOR flag from Y to N to allow Jettis to scrub transactions
0.02 Sun Jan 25 02:43:21 PST 2009
-change SOR flag from Y to N to allow Jettis to scrub transactions
diff --git
a/Jettis.pm
b/Jettis.pm
index
dae6bd2
..
8201be9
100644
(file)
--- a/
Jettis.pm
+++ b/
Jettis.pm
@@
-242,8
+242,8
@@
sub submit {
ADDR_COUNTRY => \'840', # US
MERCH_TEXT_AREA => 'description',
BILL_ITEM_ID => 'order_number',
ADDR_COUNTRY => \'840', # US
MERCH_TEXT_AREA => 'description',
BILL_ITEM_ID => 'order_number',
- DL_NUM => \'B01111111111', #XXX
- DL_STATE => 'state', #XXX
+ DL_NUM => \'B01111111111', #XXX
state_id (license_num?)
+ DL_STATE => 'state', #XXX
state_id_state
);
my %post_data = $self->get_fields(qw(
);
my %post_data = $self->get_fields(qw(