2 files changed, 12 insertions, 8 deletions

diff --git a/buglist.cgi b/buglist.cgi
index 375296466..00a8040e0 100755
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -730,13 +730,15 @@ individual query.
         }
         $::buffer =~ s/[\&\?]cmdtype=[a-z]+//;
         my $qname = SqlQuote($name);
+       my $tofooter= ( $::FORM{'tofooter'} ? 1 : 0 );
         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) . ")");
+            SendSQL("REPLACE INTO namedqueries (userid, name, query, linkinfooter) " .
+                    "VALUES ($userid, $qname, ". SqlQuote($::buffer) .", ". $tofooter .")");
         } else {
-            SendSQL("UPDATE namedqueries SET query = " . SqlQuote($::buffer) .
+            SendSQL("UPDATE namedqueries SET query = " . SqlQuote($::buffer) . "," .
+                   " linkinfooter = " . $tofooter .
                     " WHERE userid = $userid AND name = $qname");
         }
         PutHeader("OK, query saved.");
@@ -838,7 +840,7 @@ if ($dotweak) {
     confirm_login();
     if (!UserInGroup("editbugs")) {
         print qq{
-Sorry; you do not have sufficient priviledges to edit a bunch of bugs
+Sorry; you do not have sufficient privileges to edit a bunch of bugs
 at once.
 };
         PutFooter();
diff --git a/query.cgi b/query.cgi
index 65a4cb29a..032739d6d 100755
--- a/query.cgi
+++ b/query.cgi
@@ -887,19 +887,21 @@ if (!$userid) {
 </tr></table>};
     }
 
-    print "
+    print qq{
 <INPUT TYPE=radio NAME=cmdtype VALUE=asdefault> Remember this as the default query
 <BR>
 <INPUT TYPE=radio NAME=cmdtype VALUE=asnamed> Remember this query, and name it:
 <INPUT TYPE=text NAME=newqueryname>
+<br>&nbsp;&nbsp;&nbsp;&nbsp;<INPUT TYPE="checkbox" NAME="tofooter" VALUE="1">
+    and put it in my page footer.
 <BR>
-"
+    };
 }
 
-print "
+print qq{
 <NOBR><B>Sort By:</B>
 <SELECT NAME=\"order\">
-";
+};
 
 my $deforder = "'Importance'";
 my @orders = ('Bug Number', $deforder, 'Assignee');