}
$::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.");
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();
</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> <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');