From 6c926fc14f987a047f1db3a793556f98f271b9f2 Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org" <>
Date: Wed, 26 May 1999 02:22:30 +0000
Subject: Avoid mid-air collisions (implementing a suggestion by
 py8ieh=bugzilla@bath.ac.uk).

---
 CGI.pl | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

(limited to 'CGI.pl')

diff --git a/CGI.pl b/CGI.pl
index 68bb7edca..1b122aa73 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -509,6 +509,52 @@ sub PutHeader {
 }
 
 
+sub DumpBugActivity {
+    my ($id, $starttime) = (@_);
+    my $datepart = "";
+    if (defined $starttime) {
+        $datepart = "and bugs_activity.when >= $starttime";
+    }
+    my $query = "
+        select bugs_activity.field, bugs_activity.when,
+                bugs_activity.oldvalue, bugs_activity.newvalue,
+                profiles.login_name
+        from bugs_activity,profiles
+        where bugs_activity.bug_id = $id $datepart
+        and profiles.userid = bugs_activity.who
+        order by bugs_activity.when";
+
+    SendSQL($query);
+    
+    print "<table border cellpadding=4>\n";
+    print "<tr>\n";
+    print "    <th>Who</th><th>What</th><th>Old value</th><th>New value</th><th>When</th>\n";
+    print "</tr>\n";
+    
+    my @row;
+    while (@row = FetchSQLData()) {
+        my ($field,$when,$old,$new,$who) = (@row);
+        $old = value_quote($old);
+        $new = value_quote($new);
+        if ($old eq "") {
+            $old = "&nbsp;";
+        }
+        if ($new eq "") {
+            $new = "&nbsp;";
+        }
+        print "<tr>\n";
+        print "<td>$who</td>\n";
+        print "<td>$field</td>\n";
+        print "<td>$old</td>\n";
+        print "<td>$new</td>\n";
+        print "<td>$when</td>\n";
+        print "</tr>\n";
+    }
+    print "</table>\n";
+}
+
+
+
 
 
 
-- 
cgit v1.2.3-24-g4f1b