- use Device Code Q="Third party software developer"

- In settlement, get "Local Transaction Date" and "Local Transaction Time"
  from auth, not current time
- In settlement, get A/N AVS Result code from auth, don't use arbitrary "0"
- get rid of last, commented-out cruft from BankOfAmerica

2 files changed, 23 insertions, 13 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();
diff --git a/t/credit_card.t b/t/credit_card.t
index b36c247..e766aab 100644
--- a/t/credit_card.t
+++ b/t/credit_card.t
@@ -86,7 +86,10 @@ $tx->content(
   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();