cvs commit: apache-site bugdb.cgi

[coar]

coar        98/08/01 02:45:58

  Modified:    .        bugdb.cgi
  Log:
        For large summaries, the rendering of the page needed to wait until
        the entire page was received; for slow links this was a pain.  So,
        as Paul suggested, the output is now broken up into 100-row tables.
        I also added a note about 'don't send attachments, twit!' to the
        how-to-reply section; attachments don't mix so well with non-MIME
        tools like GNATS..
  
  Revision  Changes    Path
  1.33      +35 -16    apache-site/bugdb.cgi
  
  Index: bugdb.cgi
  ===================================================================
  RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
  retrieving revision 1.32
  retrieving revision 1.33
  diff -u -r1.32 -r1.33
  --- bugdb.cgi 1998/07/27 22:39:25     1.32
  +++ bugdb.cgi 1998/08/01 09:45:57     1.33
  @@ -19,6 +19,10 @@
   [you need to include <[EMAIL PROTECTED]> in the Cc line ]
   [and leave the subject line UNCHANGED.  This is not done]
   [automatically because of the potential for mail loops. ]
  +[If you do not include this Cc, your reply may be ig-   ]
  +[nored unless you are responding to an explicit request ]
  +[from a developer.                                      ]
  +[Reply only with text; DO NOT SEND ATTACHMENTS!         ]
   EOT
   
   #
  @@ -127,6 +131,9 @@
   #  05/28/1998 Ken Coar - Change the 'still alive?' standard response to 
include
   #    a request for retesting under the latest sotware.
   #  07/27/1998 Ken Coar - Change the default search state from "open" to 
"any".
  +#  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.
   #
   ### End Modification log
   
  @@ -264,7 +271,7 @@
   ### Main menu
   } elsif ($PATH_INFO eq "") {
       &main_menu();
  -    print "<HR><SMALL>Version: 28 May 1998<BR>Authors: ",
  +    print "<HR><SMALL>Version: 01 August 1998<BR>Authors: ",
        "<A HREF=\"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
        "and Huy Le</A>, <BR> ",
        "with revamp work by ",
  @@ -1258,21 +1265,8 @@
        print "<h3>No bugs match your query.</h3>\n";
        return;
       }
  -    print "<TABLE BORDER=1>\n<TR>\n";
  -    # Print field headers.
  -    local($QUICKFMT, $WIDTH, $fstring, $str);
  -    $fstring = "<TH>PR#</TH>";
  -    foreach (@field) {
  -     ($QUICKFMT, $WIDTH)=split(/:/,$field{$_});
  -     if ($QUICKFMT <= $quickfmt) {
  -#        $fstring .= &truncstr($_, $WIDTH) . " ";
  -         $fstring .= "<TH>$_</TH> ";
  -     }
  -    }
  -    if ($#field > 4) {
  -     $fstring .= "<TH>PR#</TH>";
  -    }
  -    print "$fstring</TR>\n"; 
  +    &qf_tabletop (%field);
  +    local ($nrows) = 0;
       # Print each PR in result as link to full text 
       foreach (@prs) {
        s/\s*\|\s*/|/go;
  @@ -1307,6 +1301,11 @@
                $fstring .= "<TD>" . &html_escape($str) . "</TD>";
            }
        }
  +     if (($nrows % 100) == 0) {
  +         print "</TABLE>\n<P>\n</P>\n" if ($nrows != 0);
  +         &qf_tabletop (%field);
  +     }
  +     $nrows++;
        print "<TR>\n";
        print " <TD><a href=http:$SCRIPT_NAME/full/$NUMBER>$NUMBER</a></TD> ";
        print "$fstring\n";
  @@ -1316,6 +1315,26 @@
        print "\n</TR>\n";
       } 
       print "</table>\n";
  +}
  +
  +sub qf_tabletop {
  +    local (%field) = @_;
  +    local ($QUICKFMT, $WIDTH, $fstring, $str);
  +
  +    print "<TABLE BORDER=1>\n<TR>\n";
  +    # Print field headers.
  +    $fstring = "<TH>PR#</TH>";
  +    foreach (@field) {
  +     ($QUICKFMT, $WIDTH) = split(/:/, $field{$_});
  +     if ($QUICKFMT <= $quickfmt) {
  +#        $fstring .= &truncstr($_, $WIDTH) . " ";
  +         $fstring .= "<TH>$_</TH> ";
  +     }
  +    }
  +    if ($#field > 4) {
  +     $fstring .= "<TH>PR#</TH>";
  +    }
  +    print "$fstring</TR>\n";
   }
   
   sub query_summary {