sub getCustomerById {
    my $id = shift;
	my $dbh = sqlConnect();
	my $sth = $dbh->prepare("SELECT * FROM customers WHERE cust_id=?");
    $sth->execute($id);
	my $result = $sth->fetchrow_hashref();
	$sth->finish();
	return $result;

}

sub getUserByUserId {
    my $id = shift;
	my $dbh = sqlConnect();
	my $sth = $dbh->prepare("SELECT * FROM users WHERE user_id=?");
    $sth->execute($id);
	my $result = $sth->fetchrow_hashref();
	$sth->finish();
	return $result;
}