use vars qw($VERSION $DEBUG @ISA $me);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '2.03_02';
+$VERSION = '2.03_03';
$DEBUG = 0;
$me='Business::OnlinePayment::PaymenTech';
); # Content-Type has to be passed separately
tie my %new_order, 'Tie::IxHash', (
- OrbitalConnectionUsername => ':login',
- OrbitalConnectionPassword => ':password',
- IndustryType => 'EC', # Assume industry = Ecommerce
- MessageType => ':message_type',
- BIN => ':bin',
- MerchantID => ':merchant_id',
- TerminalID => ':terminal_id',
- CardBrand => '',
- AccountNum => ':card_number',
- Exp => ':expiration',
- CurrencyCode => ':currency_code',
- CurrencyExponent => ':currency_exp',
- CardSecValInd => ':cvvind',
- CardSecVal => ':cvv2',
- AVSzip => ':zip',
- AVSaddress1 => ':address',
- AVScity => ':city',
- AVSstate => ':state',
- OrderID => ':invoice_number',
- Amount => ':amount',
- Comments => ':email', # as per B:OP:WesternACH
- TxRefNum => ':order_number', # used only for Refund
+ OrbitalConnectionUsername => [ ':login', 32 ],
+ OrbitalConnectionPassword => [ ':password', 32 ],
+ IndustryType => [ 'EC', 2 ],
+ MessageType => [ ':message_type', 2 ],
+ BIN => [ ':bin', 6 ],
+ MerchantID => [ ':merchant_id', 12 ],
+ TerminalID => [ ':terminal_id', 3 ],
+ CardBrand => [ '', 2 ],
+ AccountNum => [ ':card_number', 19 ],
+ Exp => [ ':expiration', 4 ],
+ CurrencyCode => [ ':currency_code', 3 ],
+ CurrencyExponent => [ ':currency_exp', 6 ],
+ CardSecValInd => [ ':cvvind', 1 ],
+ CardSecVal => [ ':cvv2', 4 ],
+ AVSzip => [ ':zip', 10 ],
+ AVSaddress1 => [ ':address', 30 ],
+ AVScity => [ ':city', 20 ],
+ AVSstate => [ ':state', 2 ],
+ OrderID => [ ':invoice_number', 22 ],
+ Amount => [ ':amount', 12 ],
+ Comments => [ ':email', 64 ],
+ TxRefNum => [ ':order_number', 40 ],# used only for Refund
);
tie my %mark_for_capture, 'Tie::IxHash', (
- OrbitalConnectionUsername => ':login',
- OrbitalConnectionPassword => ':password',
- OrderID => ':invoice_number',
- Amount => ':amount',
- BIN => ':bin',
- MerchantID => ':merchant_id',
- TerminalID => ':terminal_id',
- TxRefNum => ':order_number',
+ OrbitalConnectionUsername => [ ':login', 32 ],
+ OrbitalConnectionPassword => [ ':password', 32 ],
+ OrderID => [ ':invoice_number', 22 ],
+ Amount => [ ':amount', 12 ],
+ BIN => [ ':bin', 6 ],
+ MerchantID => [ ':merchant_id', 12 ],
+ TerminalID => [ ':terminal_id', 3 ],
+ TxRefNum => [ ':order_number', 40 ],
);
tie my %reversal, 'Tie::IxHash', (
- OrbitalConnectionUsername => ':login',
- OrbitalConnectionPassword => ':password',
- TxRefNum => ':order_number',
- TxRefIdx => 0,
- OrderID => ':invoice_number',
- BIN => ':bin',
- MerchantID => ':merchant_id',
- TerminalID => ':terminal_id',
+ OrbitalConnectionUsername => [ ':login', 32 ],
+ OrbitalConnectionPassword => [ ':password', 32 ],
+ TxRefNum => [ ':order_number', 40 ],
+ TxRefIdx => [ '0', 4 ],
+ OrderID => [ ':invoice_number', 22 ],
+ BIN => [ ':bin', 6 ],
+ MerchantID => [ ':merchant_id', 12 ],
+ TerminalID => [ ':terminal_id', 3 ],
+ OnlineReversalInd => [ 'Y', 1 ],
# Always attempt to reverse authorization.
- OnlineReversalInd => 'Y',
);
my %defaults = (
ref($skel) eq 'HASH' or die 'Tried to build non-hash';
foreach my $k (keys(%$skel)) {
my $v = $skel->{$k};
- # Not recursive like B:OP:WesternACH; Paymentech requests are only one layer deep.
+ my $l;
+ ($v, $l) = @$v if(ref $v eq 'ARRAY');
if($v =~ /^:(.*)/) {
# Get the content field with that name.
$data{$k} = $content{$1};
else {
$data{$k} = $v;
}
+ # Ruthlessly enforce field length.
+ $data{$k} = substr($data{$k}, 0, $l) if($data{$k} and $l);
}
return \%data;
}
=head1 NOTES
-The only supported transaction types are Normal Authorization and Credit.
-Paymentech supports separate Authorize and Capture actions as well as recurring
-billing, but those are not yet implemented.
-
-Electronic check processing is not yet supported.
+Electronic check processing and recurring billing are not yet supported.
=head1 AUTHOR