$hash->{'error_message'} = $hash->{'procStatusMessage'};
}
},
- 'approved' => sub { my $hash = shift;
- $hash->{'approvalStatus'}
- },
- 'declined' => sub { my $hash = shift;
- ! $hash->{'approvalStatus'}
- },
+ 'approved' => sub { shift->{'approvalStatus'} == 1 },
+ 'declined' => sub { shift->{'approvalStatus'} != 1 },
);
my %paytype = (
ecpDelvMethod => 'A',
),
# truncate_egc will die() on empty string
- avsZip => $_->zip ? truncate_egc($_->zip, 10) : undef,
- avsAddress1 => $_->address1 ? truncate_egc($_->address1, 30) : undef,
- avsAddress2 => $_->address2 ? truncate_egc($_->address2, 30) : undef,
- avsCity => $_->city ? truncate_egc($_->city, 20) : undef,
- avsState => $_->state ? truncate_egc($_->state, 2) : undef,
+ avsZip => $_->zip ? truncate_egc($_->zip, 10, '') : undef,
+ avsAddress1 => $_->address1 ? truncate_egc($_->address1, 30, '') : undef,
+ avsAddress2 => $_->address2 ? truncate_egc($_->address2, 30, '') : undef,
+ avsCity => $_->city ? truncate_egc($_->city, 20, '') : undef,
+ avsState => $_->state ? truncate_egc($_->state, 2, '') : undef,
avsName => ($_->first || $_->last)
- ? truncate_egc($_->first. ' '. $_->last, 30) : undef,
+ ? truncate_egc($_->first. ' '. $_->last, 30, '') : undef,
( $paymentech_countries{ $_->country }
? ( avsCountryCode => $_->country )
: ()