From 8c3f0e1aeaddedd8a9b377ed4ff9a8a31b917600 Mon Sep 17 00:00:00 2001
From: "travis%sedsystems.ca" <>
Date: Wed, 16 Feb 2005 05:51:10 +0000
Subject: Bug 99567 : Allow Milestone to be set on creation of bug as an option
 Patch by Todd Stansell <tjs@tellme.com>  r=kiko,justdave  a=justdave

---
 enter_bug.cgi | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'enter_bug.cgi')

diff --git a/enter_bug.cgi b/enter_bug.cgi
index 8be884768..864487018 100755
--- a/enter_bug.cgi
+++ b/enter_bug.cgi
@@ -53,6 +53,7 @@ use vars qw(
   @legal_keywords
   $userid
   %versions
+  %target_milestone
   $proddesc
   $classdesc
 );
@@ -437,6 +438,19 @@ if ( ($cloned_bug_id) &&
     $default{'version'} = $vars->{'version'}->[$#{$vars->{'version'}}];
 }
 
+# Get list of milestones.
+if ( Param('usetargetmilestone') ) {
+    $vars->{'target_milestone'} = $::target_milestone{$product};
+    if (formvalue('target_milestone')) {
+       $default{'target_milestone'} = formvalue('target_milestone');
+    } else {
+       SendSQL("SELECT defaultmilestone FROM products WHERE " .
+               "name = " . SqlQuote($product));
+       $default{'target_milestone'} = FetchOneColumn();
+    }
+}
+
+
 # List of status values for drop-down.
 my @status;
 
-- 
cgit v1.2.3-24-g4f1b