From 15899fb54c7f2118a20078b1d33a0e346551b92a Mon Sep 17 00:00:00 2001
From: "lpsolit%gmail.com" <>
Date: Wed, 11 Jan 2006 21:16:39 +0000
Subject: Bug 243268: Cannot remove several flag inclusions/exclusions at once
 - Patch by Frédéric Buclin <LpSolit@gmail.com> r=timeless a=justdave
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 editflagtypes.cgi | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/editflagtypes.cgi b/editflagtypes.cgi
index c8eb159c2..dfef55647 100755
--- a/editflagtypes.cgi
+++ b/editflagtypes.cgi
@@ -189,10 +189,12 @@ sub processCategoryChange {
         push(@exclusions, $category) unless grep($_ eq $category, @exclusions);
     }
     elsif ($categoryAction eq 'removeInclusion') {
-        @inclusions = map(($_ eq $cgi->param('inclusion_to_remove') ? () : $_), @inclusions);
+        my @inclusion_to_remove = $cgi->param('inclusion_to_remove');
+        @inclusions = map {(lsearch(\@inclusion_to_remove, $_) < 0) ? $_ : ()} @inclusions;
     }
     elsif ($categoryAction eq 'removeExclusion') {
-        @exclusions = map(($_ eq $cgi->param('exclusion_to_remove') ? () : $_), @exclusions);
+        my @exclusion_to_remove = $cgi->param('exclusion_to_remove');
+        @exclusions = map {(lsearch(\@exclusion_to_remove, $_) < 0) ? $_ : ()} @exclusions;
     }
     
     # Convert the array @clusions('prod_ID:comp_ID') back to a hash of
-- 
cgit v1.2.3-24-g4f1b