diff options
Diffstat (limited to 'VirtualNet.pm')
| -rw-r--r-- | VirtualNet.pm | 31 |
1 files changed, 19 insertions, 12 deletions
diff --git a/VirtualNet.pm b/VirtualNet.pm index 3b5d6dd..d164e05 100644 --- a/VirtualNet.pm +++ b/VirtualNet.pm @@ -39,7 +39,8 @@ sub set_defaults { $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 { @@ -253,7 +254,9 @@ sub eis1080_request { $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 @@ -416,7 +419,9 @@ sub eis1081_request { # 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) @@ -523,15 +528,14 @@ sub eis1081_request { # 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); @@ -767,13 +771,16 @@ Business::OnlinePayment::VirtualNet - Vital VirtualNet backend for Business::Onl 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(); |