diff options
Diffstat (limited to 'process_bug.cgi')
-rwxr-xr-x | process_bug.cgi | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/process_bug.cgi b/process_bug.cgi index f68b7e186..fc425a199 100755 --- a/process_bug.cgi +++ b/process_bug.cgi @@ -120,6 +120,22 @@ sub ChangeResolution { } +my $foundbit = 0; +foreach my $b (grep(/^bit-\d*$/, keys %::FORM)) { + if (!$foundbit) { + $foundbit = 1; + DoComma(); + $::query .= "groupset = 0"; + } + if ($::FORM{$b}) { + my $v = substr($b, 4); + $::query .= "+ $v"; # Carefully written so that the math is + # done by MySQL, which can handle 64-bit math, + # and not by Perl, which I *think* can not. + } +} + + foreach my $field ("rep_platform", "priority", "bug_severity", "url", "summary", "component", "bug_file_loc", "short_desc", "product", "version", "component", "op_sys", |