sub getById
{
     my ($table, $column, $id) = @_;
     my $dbh = sqlConnect();
     my $sth = $dbh->prepare("SELECT * FROM $table WHERE $column=?");
     $sth->execute($id);
     my $result = $sth->fetchrow_hashref();
     $sth->finish();
     return $result;
}

##</code><code>##

sub getCustomerById
{
     my ($id) = @_;
     return getById("customers", "cust_id", $id);
}