WHERE $where
ORDER BY $sortorder|;
}
-print STDERR "asdfasdf-$query\n";
$sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
#
sub get_pricegroup {
$main::lxdebug->enter_sub();
-print STDERR "PE.pm-get_pricegroup\n";
+
my ($self, $myconfig, $form) = @_;
# connect to database
$sth->finish;
$dbh->disconnect;
-#print (STDERR " ", Dumper($form));
+
$main::lxdebug->leave_sub();
}