#-----------------------------------------------------------
# db query
#----------------------------------------------------------

sub query {
	# Do database query
	my $self=shift;
	
	my $dbh=$self->param('dbh');
	my $sth = $dbh->prepare(shift());
	$sth->execute();
	return $sth;
}##END query
############################################################