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});
}
$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