$self->build_subs(qw( authorization_source_code returned_ACI
transaction_sequence_num transaction_identifier
- validation_code ));
+ validation_code local_transaction_date
+ local_transaction_time AVS_result_code ));
}
sub revmap_fields {
$content .= $self->merchant_id; # 10-21 12 Merchant Number
$content .= $self->store; # 22-25 4 Store Number
$content .= $self->terminal; # 26-29 4 Terminal Number
- $content .= 'C'; # 30 1 Device Code: C="P.C."
+ $content .= 'Q'; # 30 1 Device Code:
+ # Q="Third party software developer"
+ #$content .= 'C'; # 30 1 Device Code: C="P.C."
#$content .= 'M'; # 30 1 Device Code: M="Main Frame"
$content .= $industry_code; # 31 1 Industry Code
$content .= '840'; # 32-34 3 Currency Code: 840=U.S. Dollars
# 28-39 12 NUM Merchant Number (4.121)
$header .= $self->store; # 40-43 4 NUM Store Number (4.187)
$header .= $self->terminal; # 44-47 4 NUM Terminal Number 9911 (4.195)
- $header .= 'C'; # 48 1 A/N Device Code: C="P.C." (4.62)
+ $header .= 'Q'; # 48 1 A/N Device Code:
+ # Q="Third party software developer" (4.62)
+ #$header .= 'C'; # 48 1 A/N Device Code: C="P.C." (4.62)
#$header .= 'M'; # 48 1 A/N Device Code M="Main Frame" (4.62)
$header .= $industry_code; # 49 1 A/N Industry Code (4.94)
$header .= '840'; # 50-52 3 NUM Currency Code (4.52)
# 45-50 6 A/N Authorization Code Left-Justified/Space-Filled (4.12)
$detail .= $param->{authorization};
- my $time = time;
+ # 51-54 4 NUM Local Transaction Date MMDD (4.113)
+ $detail .= $param->{local_transaction_date};
- my $mmdd = substr(time2str('0%m%d',$time),-4);
- $detail .= $mmdd; # 51-54 4 NUM Local Transaction Date MMDD (4.113)
-
- my $hhmmss = time2str('%H%M%S',$time);
- $detail .= $hhmmss; # 55-60 6 NUM Local Transaction Time HHMMSS (4.114)
+ # 55-60 6 NUM Local Transaction Time HHMMSS (4.114)
+ $detail .= $param->{local_transaction_time};
- $detail .= '0'; #***FIXME (from auth) 61 1 A/N AVS Result Code 4.3
+ #(from auth) 61 1 A/N AVS Result Code 4.3
+ $detail .= $param->{AVS_result_code};
# 62-76 15 A/N Transaction Identifier Left-Justified/Space-Filled 4.206
$detail .= substr($param->{transaction_identifier}. (' 'x15), 0, 15);
transaction_identifier => $tx->transaction_identifier,
validation_code => $tx->validation_code,
transaction_sequence_num => $tx->transaction_sequence_num,
- #description => 'Business::OnlinePayment::BankOfAmerica visa test',
+ local_transaction_date => $tx->local_transaction_date,
+ local_transaction_time => $tx->local_transaction_time,
+ AVS_result_code => $tx->AVS_result_code,
+ #description => 'Business::OnlinePayment::VirtualNet test',
action => 'Post Authorization',
# order_number => $ordernum,
# amount => '0.01',
# authorization => $auth,
- # description => 'Business::OnlinePayment::BankOfAmerica visa test',
+ # description => 'Business::OnlinePayment::VirtualNet test',
);
$capture->submit();
transaction_identifier => $tx->transaction_identifier,
validation_code => $tx->validation_code,
transaction_sequence_num => $tx->transaction_sequence_num,
- #description => 'Business::OnlinePayment::BankOfAmerica visa test',
+ local_transaction_date => $tx->local_transaction_date,
+ local_transaction_time => $tx->local_transaction_time,
+ AVS_result_code => $tx->AVS_result_code,
+ #description => 'Business::OnlinePayment::VirtualNet test',
);
$tx->submit();