[tools] testbot/orm: Take the filters into account in DBIBackend::DeleteAll().
Francois Gouget
fgouget at codeweavers.com
Wed Jun 1 07:52:10 CDT 2022
Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
---
testbot/lib/ObjectModel/DBIBackEnd.pm | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
diff --git a/testbot/lib/ObjectModel/DBIBackEnd.pm b/testbot/lib/ObjectModel/DBIBackEnd.pm
index 940d37f65..07b838d74 100644
--- a/testbot/lib/ObjectModel/DBIBackEnd.pm
+++ b/testbot/lib/ObjectModel/DBIBackEnd.pm
@@ -738,6 +738,22 @@ sub DeleteAll($$)
push @Data, @{$MasterColValues};
}
+ my $Filter = $Collection->GetFilter();
+ if ($Filter)
+ {
+ my ($Composite, $FilterWhere, $FilterData) = GetFilterWhere($self, $Collection, $Filter);
+ if ($Where ne "")
+ {
+ $Where .= ($Composite ? " AND ($FilterWhere)" : " AND $FilterWhere");
+ push @Data, @$FilterData;
+ }
+ else
+ {
+ $Where = $FilterWhere;
+ @Data = @$FilterData;
+ }
+ }
+
my $Query = "DELETE FROM " . $Collection->GetTableName();
if ($Where ne "")
{
--
2.30.2
More information about the wine-devel
mailing list