Allow querying of bug creation times.

CHANGES

@@ -10,6 +10,12 @@ query the CVS tree.  For example,
 will tell you what has been changed in the last week.
 
 
+5/5/99 Added the ability to search by creation date.  To make this perform
+well, you ought to do the following:
+
+	alter table bugs change column creation_ts creation_ts datetime not null, add index (creation_ts);
+
+
 4/30/99 Added a new severity, "blocker".  To get this into your running
 Bugzilla, do the following:
 

buglist.cgi

@@ -359,7 +359,23 @@ sub SqlifyDate {
 }
 
 
-        
+if (defined $ref) {
+    my $which = lsearch($ref, "[Bug creation]");
+    if ($which >= 0) {
+        splice(@$ref, $which, 1);
+        $query .= "and bugs.creation_ts >= " .
+            SqlifyDate($::FORM{'chfieldfrom'}) . "\n";
+        my $to = $::FORM{'chfieldto'};
+        if (defined $to) {
+            $to = trim($to);
+            if ($to ne "" && $to !~ /^now$/i) {
+                $query .= "and bugs.creation_ts <= " .
+                    SqlifyDate($to) . "\n";
+            }
+        }
+    }
+}        
+
 
 
 if (defined $ref && 0 < @$ref) {

makebugtable.sh

@@ -34,7 +34,7 @@ assigned_to mediumint not null, # This is a comment.
 bug_file_loc text,
 bug_severity enum("blocker", "critical", "major", "normal", "minor", "trivial", "enhancement") not null,
 bug_status enum("NEW", "ASSIGNED", "REOPENED", "RESOLVED", "VERIFIED", "CLOSED") not null,
-creation_ts datetime,
+creation_ts datetime not null,
 delta_ts timestamp,
 short_desc mediumtext,
 long_desc mediumtext,
@@ -52,6 +52,7 @@ qa_contact mediumint not null,
 status_whiteboard mediumtext not null,
 
 index (assigned_to),
+index (creation_ts),
 index (delta_ts),
 index (bug_severity),
 index (bug_status),

query.cgi

@@ -345,6 +345,8 @@ push @::legal_target_milestone, "---"; # Oy, what a hack.
 
 print $jscript;
 
+my @logfields = ("[Bug creation]", @::log_columns);
+
 print "
 <FORM NAME=queryForm METHOD=GET ACTION=\"buglist.cgi\">
 
@@ -403,7 +405,7 @@ Changed in the <NOBR>last <INPUT NAME=changedin SIZE=2 VALUE=\"$default{'changed
 <td rowspan=2 align=right>Where the field(s)
 </td><td rowspan=2>
 <SELECT NAME=\"chfield\" MULTIPLE SIZE=4>
-@{[make_options(\@::log_columns, $default{'chfield'}, $type{'chfield'})]}
+@{[make_options(\@logfields, $default{'chfield'}, $type{'chfield'})]}
 </SELECT>
 </td><td rowspan=2>
 changed.