From d56611c283d252af894d27986496b1d36170c2da Mon Sep 17 00:00:00 2001
From: "bbaetz%acm.org" <>
Date: Sun, 27 Apr 2003 14:12:50 +0000
Subject: Byg 202463 - prefill 'assign to' with default component owner patch
 by slamm@yahoo-inc.com (Steve Lamm) r=bbaetz, a=justdave

---
 enter_bug.cgi | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

(limited to 'enter_bug.cgi')

diff --git a/enter_bug.cgi b/enter_bug.cgi
index 9784b81a3..8f736ff03 100755
--- a/enter_bug.cgi
+++ b/enter_bug.cgi
@@ -242,17 +242,19 @@ elsif (1 == @{$::components{$product}}) {
 }
 
 my @components;
-SendSQL("SELECT name, description FROM components " . 
-        "WHERE product_id = $product_id ORDER BY name");
+SendSQL("SELECT name, description, login_name, realname
+             FROM components, profiles
+             WHERE product_id = $product_id
+             AND initialowner=userid
+             ORDER BY name");
 while (MoreSQLData()) {
-    my ($name, $description) = FetchSQLData();
-
-    my %component;
-
-    $component{'name'} = $name;
-    $component{'description'} = $description;
-
-    push @components, \%component;
+    my ($name, $description, $login, $realname) = FetchSQLData();
+    push @components, {
+        name => $name,
+        description => $description,
+        default_login => $login,
+        default_realname => $realname,
+    };
 }
 
 my %default;
-- 
cgit v1.2.3-24-g4f1b