Allow querying of URL.

diff --git a/buglist.cgi b/buglist.cgi
index 22960537f55774a395334883f4a41643c9930be3..179e2d0dcbbab5c3766ee95e70c8e65590e36f1f 100755 (executable)
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -211,7 +211,7 @@ if (defined $::FORM{'sql'}) {
 } else {
   my @legal_fields = ("bug_id", "product", "version", "rep_platform", "op_sys",
                       "bug_status", "resolution", "priority", "bug_severity",
-                      "assigned_to", "reporter", "bug_file_loc", "component");
+                      "assigned_to", "reporter", "component");
 
   foreach my $field (keys %::FORM) {
       my $or = "";
@@ -259,7 +259,7 @@ Click the <B>Back</B> button and try again.";
     }
 }
 
-foreach my $f ("short_desc", "long_desc") {
+foreach my $f ("short_desc", "long_desc", "bug_file_loc") {
     if (defined $::FORM{$f}) {
         my $s = SqlQuote(trim($::FORM{$f}));
         if ($s ne "") {

diff --git a/query.cgi b/query.cgi
index 0637cb9415b45c264a386749ab1369ba5d82fed0..7c601721e334f2633aae180e492f18059dae1521 100755 (executable)
--- a/query.cgi
+++ b/query.cgi
@@ -210,6 +210,11 @@ print "
 <td><input type=radio name=long_desc_type value=substr checked>Substring</td>
 <td><input type=radio name=long_desc_type value=regexp>Regexp</td>
 </tr>
+<td align=right>URL:</td>
+<td><input name=bug_file_loc size=30></td>
+<td><input type=radio name=bug_file_loc_type value=substr checked>Substring</td>
+<td><input type=radio name=long_desc_type value=regexp>Regexp</td>
+</tr>
 </table>
 <p>