From 0230a614c04af4633fd9cb3d9216b720d474a4b7 Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org" <>
Date: Tue, 25 Jan 2000 15:53:26 +0000
Subject: Reworked preferences UI. Added ability to turn off "My bugs" link at
bottom. Made "My bugs" show bugs you own AND bugs you submitted. Added
ability to display your named queries in the footer. Many random bugfixes.
---
buglist.cgi | 15 ++++++++++++---
1 file changed, 12 insertions(+), 3 deletions(-)
(limited to 'buglist.cgi')
diff --git a/buglist.cgi b/buglist.cgi
index f096bd323..6427180e9 100755
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -141,9 +141,17 @@ individual query.
PutFooter();
exit();
}
- SendSQL("REPLACE INTO namedqueries (userid, name, query) VALUES " .
- "($userid, " . SqlQuote($name) .
- ", " . SqlQuote($::buffer) . ")");
+ $::buffer =~ s/[\&\?]cmdtype=[a-z]+//;
+ my $qname = SqlQuote($name);
+ SendSQL("SELECT query FROM namedqueries " .
+ "WHERE userid = $userid AND name = $qname");
+ if (!FetchOneColumn()) {
+ SendSQL("REPLACE INTO namedqueries (userid, name, query) " .
+ "VALUES ($userid, $qname, " . SqlQuote($::buffer) . ")");
+ } else {
+ SendSQL("UPDATE namedqueries SET query = " . SqlQuote($::buffer) .
+ " WHERE userid = $userid AND name = $qname");
+ }
PutHeader("OK, query saved.");
print qq{
OK, you have a new query named $name
@@ -874,6 +882,7 @@ if ($count == 0) {
print qq{
Query Page\n};
print qq{ Enter New Bug\n};
+ print qq{