diff options
Diffstat (limited to 'VirtualNet.pm')
| -rw-r--r-- | VirtualNet.pm | 14 |
1 files 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 |