adding a 'can confirm' radiobutton to 'reassign by component'

diff --git a/bug_form.pl b/bug_form.pl
index 9b459d66cbf1f1d3fe51fe40948f891061f51de0..1402a1a470e42fd581dcb4cd301cf34f4deb3de3 100644 (file)
--- a/bug_form.pl
+++ b/bug_form.pl
@@ -440,6 +440,9 @@ if ($canedit || $::userid == $assignedtoid ||
         $knum++;
         print "<INPUT TYPE=radio NAME=knob VALUE=reassignbycomponent>
           Reassign bug to owner of selected component<br>\n";
+        if ($status eq $::unconfirmedstate && ($canconfirm || $canedit)) {
+            print "&nbsp;&nbsp;&nbsp;&nbsp;<INPUT TYPE=checkbox NAME=compconfirm> and confirm bug (change status to <b>NEW</b>)<BR>";
+        }
         $knum++;
     } else {
         print "<INPUT TYPE=radio NAME=knob VALUE=reopen> Reopen bug<br>\n";

diff --git a/process_bug.cgi b/process_bug.cgi
index 913ff8f18d38c94be0a07efda7416060342804fc..22dff72e9141f64ca1a83f0aead5e85cd41dd486 100755 (executable)
--- a/process_bug.cgi
+++ b/process_bug.cgi
@@ -443,6 +443,9 @@ SWITCH: for ($::FORM{'knob'}) {
             PuntTryAgain("You must specify a component whose owner should " .
                          "get assigned these bugs.");
         }
+        if ($::FORM{'compconfirm'}) {
+            DoConfirm();
+        }
         ChangeStatus('NEW');
         SendSQL("select initialowner from components where program=" .
                 SqlQuote($::FORM{'product'}) . " and value=" .