-my $query = "";
-foreach my $key (keys %params) {
- next if $key =~ /^_/;
- my $val = $params{$key};
- next if $val eq "";
- $query .= " and " if $query ne "";
- $query .= "$key = ($val)";
+my $query;
+if ($params{_query}) {
+ $query = $params{_query};
+} else {
+ $query = "";
+ foreach my $key (keys %params) {
+ next if $key =~ /^_/;
+ my $val = $params{$key};
+ next if $val eq "";
+ $query .= " and " if $query ne "";
+ $query .= "$key = ($val)";
+ }