From 23c63e06693b324f5ea61555fd150ac4a158679a Mon Sep 17 00:00:00 2001
From: "lpsolit%gmail.com" <>
Date: Thu, 12 Jul 2007 07:40:02 +0000
Subject: Bug 387831: Deleting products does not clean up the component_cc
 table - Patch by Frédéric Buclin <LpSolit@gmail.com> r/a=mkanat
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 editproducts.cgi | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'editproducts.cgi')

diff --git a/editproducts.cgi b/editproducts.cgi
index b458f60bf..dac5799ad 100755
--- a/editproducts.cgi
+++ b/editproducts.cgi
@@ -408,9 +408,16 @@ if ($action eq 'delete') {
 
     $dbh->bz_lock_tables('products WRITE', 'components WRITE',
                          'versions WRITE', 'milestones WRITE',
-                         'group_control_map WRITE',
+                         'group_control_map WRITE', 'component_cc WRITE',
                          'flaginclusions WRITE', 'flagexclusions WRITE');
 
+    my $comp_ids = $dbh->selectcol_arrayref('SELECT id FROM components
+                                             WHERE product_id = ?',
+                                             undef, $product->id);
+
+    $dbh->do('DELETE FROM component_cc WHERE component_id IN
+              (' . join(',', @$comp_ids) . ')') if scalar(@$comp_ids);
+
     $dbh->do("DELETE FROM components WHERE product_id = ?",
              undef, $product->id);
 
-- 
cgit v1.2.3-24-g4f1b