httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From c...@hyperreal.org
Subject cvs commit: apache-site bugdb.cgi
Date Tue, 04 Aug 1998 03:48:32 GMT
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>";
  
  
  

Mime
View raw message