my $error = "Server error: '$server_response'";
$error .= " / Transaction error: '".
($r->{'ProcStatusMsg'} || $r->{'StatusMsg'}) . "'"
if $r->{'ProcStatus'} != 0;
my $error = "Server error: '$server_response'";
$error .= " / Transaction error: '".
($r->{'ProcStatusMsg'} || $r->{'StatusMsg'}) . "'"
if $r->{'ProcStatus'} != 0;