Remember This Query should give option to add to page footer
patch submitted by st.n@gmx.net (Stephan Niemz)
This commit is contained in:
cyeh%bluemartini.com 2001-02-16 01:22:39 +00:00
Родитель 44ec3de8f3
Коммит ce33ff04b0
2 изменённых файлов: 12 добавлений и 8 удалений

Просмотреть файл

@ -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();

Просмотреть файл

@ -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');