- dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
+ my $sth = prepare_execute_query($form, $dbh, $query, @_);
+ my @result;
+ while (my ($value) = $sth->fetchrow_array()) {
+ push(@result, $value);
+ }
+ $sth->finish();
+
+ $main::lxdebug->leave_sub(2);
+
+ return @result;
+}
+
+sub selectfirst_hashref_query {
+ $main::lxdebug->enter_sub(2);
+
+ my ($form, $dbh, $query) = splice(@_, 0, 3);