selectall_hashref($sql, 'payid', undef);
$ret .= "Possible fraudulent payments
";
foreach my $row (sort { $a->{dateadd} <=> $b->{dateadd} } values %$data) {
my $added = gmtime($row->{dateadd});
my $reason = $row->{reason};
$reason =~ s#\n#
#mg;
$ret .= <
| Payid: |
$row->{payid} |
Date added: |
$added |
Reason: |
$reason |
EOF
}
return $ret;
_code?>