From 1c47f743f9ad624575139ce626acfcc20c2ad114 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 5 Sep 2002 16:25:19 +0000
Subject: [PATCH] fix local_transaciton_{date,time}

---
 VirtualNet.pm | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/VirtualNet.pm b/VirtualNet.pm
index d164e05..016a525 100644
--- a/VirtualNet.pm
+++ b/VirtualNet.pm
@@ -163,7 +163,8 @@ sub submit {
        for my $field ( qw( is_success result_code error_message authorization
                            authorization_source_code returned_ACI
                            transaction_identifier validation_code
-                           transaction_sequence_num ) ) {
+                           transaction_sequence_num local_transaction_date
+                           local_transaction_time AVS_result_code ) ) {
          $self->$field($response{$field});
        }
 
@@ -529,12 +530,21 @@ sub eis1081_request {
   $detail .= $param->{authorization};
 
   # 51-54 4 NUM Local Transaction Date MMDD (4.113)
-  $detail .= $param->{local_transaction_date};
+  die "missing local_transaction_date"
+    unless $param->{local_transaction_date};
+  $detail .= substr($param->{local_transaction_date}, 0, 4);
 
   # 55-60 6 NUM Local Transaction Time HHMMSS (4.114)
+  die "missing local_transaction_time"
+    unless $param->{local_transaction_time};
+  #die "length of local_transaction_time ". $param->{local_transaction_time}.
+  #    " != 6"
+  #  unless length($param->{local_transaction_time}) == 6;
   $detail .= $param->{local_transaction_time};
   
   #(from auth) 61 1 A/N AVS Result Code 4.3
+  die "missing AVS_result_code"
+    unless $param->{AVS_result_code};
   $detail .= $param->{AVS_result_code};
 
   # 62-76 15 A/N Transaction Identifier Left-Justified/Space-Filled 4.206
-- 
2.20.1