sub getByFieldval {
    my ($table, $field, $val) = @_;
    my $dbh = sqlConnect();
    my $sth = $dbh->prepare("SELECT * FROM $table WHERE $field=?");
    $sth->execute($val);
    my $result = $sth->fetchrow_hashref();
    $sth->finish();
    return $result;
}
[download]

--

flounder