coar 98/08/03 20:48:31
Modified: . bugdb.cgi
Log:
Add some more minimal niceties, like PR counts.
Revision Changes Path
1.34 +16 -8 apache-site/bugdb.cgi
Index: bugdb.cgi
===================================================================
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -r1.33 -r1.34
--- bugdb.cgi 1998/08/01 09:45:57 1.33
+++ bugdb.cgi 1998/08/04 03:48:30 1.34
@@ -134,6 +134,8 @@
# 08/01/1998 Ken Coar - Break summary listing into 100-row tables for
# faster rendering and add 'don't send attachments' clause to the
# how-to-reply text.
+# 08/03/1998 Ken Coar - Add counts for matching PRs and position within
+# multi-table reports.
#
### End Modification log
@@ -271,7 +273,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
- print "<HR><SMALL>Version: 01 August 1998<BR>Authors: ",
+ print "<HR><SMALL>Version: 03 August 1998<BR>Authors: ",
"<A HREF=\"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le</A>, <BR> ",
"with revamp work by ",
@@ -525,8 +527,8 @@
&emit_preamble (0);
print <<EOHT;
<HEAD><TITLE>Apache: New Problem Report submission</TITLE></HEAD>
-<H2>New Problem Report form:</H2>
<body>
+<H2>New Problem Report form:</H2>
<BLOCKQUOTE>
<STRONG>
<P>
@@ -1183,9 +1185,9 @@
# Print title
&emit_preamble (0);
- print "<head><title>Quick summary of PR's</title></head>
-<H2>Quick summary of PR's:</H2>
+ print "<head><title>Quick Summary of Problem Reports</title></head>
<body>
+<H1>Quick Summary of Problem Reports</H1>
";
local($opts);
local(@prs);
@@ -1261,11 +1263,13 @@
close(PIPE);
}
@prs = sort numerically (@prs);
- if (@prs == 0) {
+ local ($nprs) = scalar(@prs);
+ if ($nprs == 0) {
print "<h3>No bugs match your query.</h3>\n";
return;
}
- &qf_tabletop (%field);
+ printf ("<H2>Total of %d PR%s found</H2>\n", $nprs,
+ ($nprs == 1) ? "" : "s");
local ($nrows) = 0;
# Print each PR in result as link to full text
foreach (@prs) {
@@ -1303,7 +1307,9 @@
}
if (($nrows % 100) == 0) {
print "</TABLE>\n<P>\n</P>\n" if ($nrows != 0);
- &qf_tabletop (%field);
+ &qf_tabletop ($nrows + 1,
+ (($nrows + 100) < $nprs) ? $nrows + 100 : $nprs,
+ $nprs, %field);
}
$nrows++;
print "<TR>\n";
@@ -1318,9 +1324,11 @@
}
sub qf_tabletop {
- local (%field) = @_;
+ local ($firstnum, $lastnum, $highnum, %field) = @_;
local ($QUICKFMT, $WIDTH, $fstring, $str);
+ printf ("<H3>Reports matching your query: %d through %d of %d</H3>\n",
+ $firstnum, $lastnum, $highnum);
print "<TABLE BORDER=1>\n<TR>\n";
# Print field headers.
$fstring = "<TH>PR#</TH>";
