Change the default behavior of this script to display query form instead
of generating full list of all open PRs in GNATS. I hope this change will at least a bit decrease the load of GNATS. Reviewed by: www@ Approved by: keramida (mentor)
This commit is contained in:
parent
c1b9e42051
commit
6f856aa7f2
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=28699
1 changed files with 5 additions and 3 deletions
|
@ -1,5 +1,5 @@
|
|||
#!/usr/bin/perl -T
|
||||
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.54 2005/12/01 03:19:22 jcamou Exp $
|
||||
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.55 2006/09/12 21:53:18 danger Exp $
|
||||
|
||||
$html_mode = 1 if $ENV{'DOCUMENT_ROOT'};
|
||||
$self_ref = $ENV{'SCRIPT_NAME'};
|
||||
|
@ -17,7 +17,7 @@ require './cgi-lib.pl';
|
|||
require './cgi-style.pl';
|
||||
require 'getopts.pl';
|
||||
|
||||
if ($ENV{'QUERY_STRING'} eq 'query') {
|
||||
if (!$ENV{'QUERY_STRING'} or $ENV{'QUERY_STRING'} eq 'query') {
|
||||
print &html_header("Query $project problem reports");
|
||||
&displayform;
|
||||
print &html_footer;
|
||||
|
@ -591,7 +591,9 @@ sub displayform {
|
|||
print qq`
|
||||
<p>
|
||||
Please select the items you wish to search for. Multiple items are AND'ed
|
||||
together.
|
||||
together.<br />
|
||||
To generate current list of all open PRs in GNATS database, just press
|
||||
the "Query PRs" button.
|
||||
</p>
|
||||
<form method='get' action='$self_ref'>
|
||||
|
||||
|
|
Loading…
Reference in a new issue