projects
/
Business-BatchPayment-Paymentech.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
513c2cf
)
truncate state to 2 characters
author
Ivan Kohler
<ivan@freeside.biz>
Tue, 15 Jan 2013 03:23:56 +0000
(19:23 -0800)
committer
Ivan Kohler
<ivan@freeside.biz>
Tue, 15 Jan 2013 03:23:56 +0000
(19:23 -0800)
Changes
patch
|
blob
|
history
Paymentech.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
0ea0bd8
..
1221a72
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,8
@@
Revision history for Business-BatchPayment-Paymentech
Revision history for Business-BatchPayment-Paymentech
+0.03 unreleased
+ - truncate state to 2 characters
+
0.02 unreleased
- fix avsCountryCode to not pass non-Paymentech countries
0.02 unreleased
- fix avsCountryCode to not pass non-Paymentech countries
diff --git
a/Paymentech.pm
b/Paymentech.pm
index
09b5672
..
fd3f4ae
100644
(file)
--- a/
Paymentech.pm
+++ b/
Paymentech.pm
@@
-3,16
+3,12
@@
package Business::BatchPayment::Paymentech;
use 5.006;
use strict;
use warnings;
use 5.006;
use strict;
use warnings;
-our $VERSION = '0.0
2
';
+our $VERSION = '0.0
3
';
=head1 NAME
Business::BatchPayment::Paymentech - Chase Paymentech XML batch format.
=head1 NAME
Business::BatchPayment::Paymentech - Chase Paymentech XML batch format.
-=head1 VERSION
-
-Version 0.01
-
=head1 USAGE
See L<Business::BatchPayment> for general usage notes.
=head1 USAGE
See L<Business::BatchPayment> for general usage notes.
@@
-71,14
+67,14
@@
with 'Business::BatchPayment::TestMode';
# could have some validation on all of these
has [ qw(merchantID terminalID bin industryType login password) ] => (
# could have some validation on all of these
has [ qw(merchantID terminalID bin industryType login password) ] => (
- is => 'ro',
- isa => 'Str',
+ is
=> 'ro',
+ isa
=> 'Str',
required => 1,
);
has 'fileDateTime' => (
required => 1,
);
has 'fileDateTime' => (
- is => 'ro',
- isa => 'Str',
+ is
=> 'ro',
+ isa
=> 'Str',
default => sub {
DateTime->now->strftime('%Y%m%d%H%M%S')
},
default => sub {
DateTime->now->strftime('%Y%m%d%H%M%S')
},
@@
-110,8
+106,8
@@
sub format_request {
my $output;
my $xml = XML::Writer->new(
my $output;
my $xml = XML::Writer->new(
- OUTPUT => \$output,
- DATA_MODE => 1,
+ OUTPUT
=> \$output,
+ DATA_MODE
=> 1,
DATA_INDENT => 2,
);
$self->format_header($batch, $xml);
DATA_INDENT => 2,
);
$self->format_header($batch, $xml);
@@
-145,25
+141,25
@@
sub format_item {
if ( $item->action eq 'payment' ) {
$xml->startTag('newOrder', BatchRequestNo => $count);
my @order = (
if ( $item->action eq 'payment' ) {
$xml->startTag('newOrder', BatchRequestNo => $count);
my @order = (
- industryType
=> $self->industryType,
- transType
=> 'AC',
- bin
=> $self->bin,
- merchantID
=> $self->merchantID,
- terminalID
=> $self->terminalID,
+ industryType => $self->industryType,
+ transType => 'AC',
+ bin => $self->bin,
+ merchantID => $self->merchantID,
+ terminalID => $self->terminalID,
);
if ($item->payment_type eq 'CC') {
push @order, (
);
if ($item->payment_type eq 'CC') {
push @order, (
- ccAccountNum
=> $item->card_number,
- ccExp
=> $item->expiration,
+ ccAccountNum => $item->card_number,
+ ccExp => $item->expiration,
);
}
elsif ( $item->payment_type eq 'ECHECK' ) {
push @order, (
);
}
elsif ( $item->payment_type eq 'ECHECK' ) {
push @order, (
- cardBrand => 'EC',
- ecpCheckRT => $item->routing_code,
- ecpCheckDDA => $item->account_number,
+ cardBrand
=> 'EC',
+ ecpCheckRT
=> $item->routing_code,
+ ecpCheckDDA
=> $item->account_number,
ecpBankAcctType => $BankAcctType{ $item->account_type },
ecpBankAcctType => $BankAcctType{ $item->account_type },
- ecpDelvMethod => 'A',
+ ecpDelvMethod
=> 'A',
);
}
else {
);
}
else {
@@
-174,8
+170,8
@@
sub format_item {
avsAddress1 => substr($item->address, 0, 30),
avsAddress2 => substr($item->address2, 0, 30),
avsCity => substr($item->city, 0, 20),
avsAddress1 => substr($item->address, 0, 30),
avsAddress2 => substr($item->address2, 0, 30),
avsCity => substr($item->city, 0, 20),
- avsState =>
$item->state
,
- avsName => substr($item->first_name
.
' '. $item->last_name, 0, 30),
+ avsState =>
substr($item->state, 0, 2)
,
+ avsName => substr($item->first_name
.
' '. $item->last_name, 0, 30),
avsCountryCode => ( $paymentech_countries{ $item->country }
? $_->country
: ''
avsCountryCode => ( $paymentech_countries{ $item->country }
? $_->country
: ''