From 28aebb4c3b82abe10b952e86185c5d31fe809e74 Mon Sep 17 00:00:00 2001
From: "dkl%redhat.com" <>
Date: Wed, 14 May 2008 08:34:24 +0000
Subject: Bug 430398: request.cgi does not filter component select list on
 distinct values - Patch by David Lawrence <dkl@redhat.com> r/a=LpSolit

---
 request.cgi | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'request.cgi')

diff --git a/request.cgi b/request.cgi
index c854a1767..cad1f6f53 100755
--- a/request.cgi
+++ b/request.cgi
@@ -76,6 +76,15 @@ else {
     $vars->{'products'} = $user->get_selectable_products;
     $vars->{'types'} = \@types;
     $vars->{'requests'} = {};
+
+    my %components;
+    foreach my $prod (@{$vars->{'products'}}) {
+        foreach my $comp (@{$prod->components}) {
+            $components{$comp->name} = 1;
+        }
+    }
+    $vars->{'components'} = [ sort { $a cmp $b } keys %components ];
+
     $template->process('request/queue.html.tmpl', $vars)
       || ThrowTemplateError($template->error());
 }
@@ -307,6 +316,14 @@ sub queue {
     $vars->{'requests'} = \@requests;
     $vars->{'types'} = \@types;
 
+    my %components;
+    foreach my $prod (@{$vars->{'products'}}) {
+        foreach my $comp (@{$prod->components}) {
+            $components{$comp->name} = 1;
+        }
+    }
+    $vars->{'components'} = [ sort { $a cmp $b } keys %components ];
+
     # Generate and return the UI (HTML page) from the appropriate template.
     $template->process("request/queue.html.tmpl", $vars)
       || ThrowTemplateError($template->error());
-- 
cgit v1.2.3-24-g4f1b