diff options
| author |   terry%netscape.com <> | 1998-08-26 13:14:15 +0000 |
|---|---|---|
| committer | terry%netscape.com <> | 1998-08-26 13:14:15 +0000 |
| commit | 482763c95359bd0352878542826693064d9e365e (patch) | |
| tree | af570f3e013f34f28ca7967e4b7dcd7a9f05f854 /show_activity.cgi | |
| download | bugzilla-482763c95359bd0352878542826693064d9e365e.tar.gz bugzilla-482763c95359bd0352878542826693064d9e365e.tar.bz2 bugzilla-482763c95359bd0352878542826693064d9e365e.zip | |
Bugzilla source.
Diffstat (limited to 'show_activity.cgi')
| -rwxr-xr-x | show_activity.cgi | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/show_activity.cgi b/show_activity.cgi new file mode 100755 index 000000000..835b740b6 --- /dev/null +++ b/show_activity.cgi @@ -0,0 +1,58 @@ +#! /usr/bonsaitools/bin/mysqltcl +# -*- Mode: tcl; indent-tabs-mode: nil -*- +# +# The contents of this file are subject to the Mozilla Public License +# Version 1.0 (the "License"); you may not use this file except in +# compliance with the License. You may obtain a copy of the License at +# http://www.mozilla.org/MPL/ +# +# Software distributed under the License is distributed on an "AS IS" +# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the +# License for the specific language governing rights and limitations +# under the License. +# +# The Original Code is the Bugzilla Bug Tracking System. +# +# The Initial Developer of the Original Code is Netscape Communications +# Corporation. Portions created by Netscape are Copyright (C) 1998 +# Netscape Communications Corporation. All Rights Reserved. +# +# Contributor(s): Terry Weissman <terry@mozilla.org> + +source "CGI.tcl" +puts "Content-type: text/html\n" + +puts "<HTML> +<H1>Changes made to bug $FORM(id)</H1> +" +set 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 = $FORM(id) + and profiles.userid = bugs_activity.who + order by bugs_activity.when" + +ConnectToDatabase +SendSQL $query + +puts "<table border cellpadding=4>" +puts "<tr>" +puts " <th>Who</th><th>What</th><th>Old value</th><th>New value</th><th>When</th>" +puts "</tr>" + +while { [MoreSQLData] } { + set value [FetchSQLData] + lassign $value field when old new who + + puts "<tr>" + puts "<td>$who</td>" + puts "<td>$field</td>" + puts "<td>[value_quote $old]</td>" + puts "<td>[value_quote $new]</td>" + puts "<td>$when</td>" + puts "</tr>" +} +puts "</table>" +puts "<hr><a href=show_bug.cgi?id=$FORM(id)>Back to bug $FORM(id)</a>" |