$self->port('443');
$self->path('/gateway/transact.dll');
- $self->build_subs('order_number'); #no idea how it worked for jason w/o this
- $self->build_subs('md5');
+ $self->build_subs(qw(order_number md5 avs_code));
}
sub map_fields {
my @col = $csv->fields();
$self->server_response($page);
+ $self->avs_code($col[5]);
+ $self->order_number($col[6]);
$self->md5($col[37]);
if($col[0] eq "1" ) { # Authorized/Pending/Test
$self->is_success(1);
$self->result_code($col[0]);
$self->authorization($col[4]);
- $self->order_number($col[6]);
} else {
$self->is_success(0);
$self->result_code($col[2]);