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:
45300d9
)
change SOR flag from Y to N to allow Jettis to scrub transactions
author
ivan
<ivan>
Sun, 25 Jan 2009 10:46:32 +0000
(10:46 +0000)
committer
ivan
<ivan>
Sun, 25 Jan 2009 10:46:32 +0000
(10:46 +0000)
Changes
patch
|
blob
|
history
Jettis.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
191736b
..
03aadf9
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,8
@@
Revision history for Perl extension Business::OnlinePayment::Jettis.
Revision history for Perl extension Business::OnlinePayment::Jettis.
+0.02 Sun Jan 25 02:43:21 PST 2009
+ -change SOR flag from Y to N to allow Jettis to scrub transactions
+
0.01 Sat Nov 9 13:39:46 PST 2002
-original version; created by ivan 1.0
0.01 Sat Nov 9 13:39:46 PST 2002
-original version; created by ivan 1.0
diff --git
a/Jettis.pm
b/Jettis.pm
index
673bf67
..
1eb295c
100644
(file)
--- a/
Jettis.pm
+++ b/
Jettis.pm
@@
-13,7
+13,7
@@
require Exporter;
@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '0.0
1
';
+$VERSION = '0.0
2
';
$DEBUG = 0;
$DEBUG = 0;
@@
-204,7
+204,7
@@
sub submit {
PRODUCT_ID => \($self->product_id()),
MERCHANT_ID => 'login',
VERSION => \'1.0',
PRODUCT_ID => \($self->product_id()),
MERCHANT_ID => 'login',
VERSION => \'1.0',
- SOR => \'
Y
',
+ SOR => \'
N
',
REMOTE_ADDR => \'10.0.0.1',
TERMS_AGREE => \'Y',
CHECK_AGE => \'Y',
REMOTE_ADDR => \'10.0.0.1',
TERMS_AGREE => \'Y',
CHECK_AGE => \'Y',