[tools] testbot/orm: Take the filters into account in DBIBackend::DeleteAll().

[Francois Gouget]

Signed-off-by: Francois Gouget 
---
 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 "")
   {