cvs commit: apache-site bugdb.cgi

[Rodent of Unusual Size]

coar        97/07/30 10:55:37

  Modified:    .         bugdb.cgi
  Log:
        Added a link to the full PR display as the rightmost column, just
        like the leftmost one, so you don't have to keep scrolling back
        and forth horizontally.  Also added some HTML cleanup (closing
        </TD>s and </TR>s where missing, and changed header cells to
        <TH> from <TD>).
  
  Revision  Changes    Path
  1.9       +19 -7     apache-site/bugdb.cgi
  
  Index: bugdb.cgi
  ===================================================================
  RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- bugdb.cgi 1997/07/12 02:12:59     1.8
  +++ bugdb.cgi 1997/07/30 17:55:36     1.9
  @@ -46,8 +46,11 @@
   #  7/11/1997 Ken Coar - added warning that the submitter had better not
   #    be duplicating an existing PR or FAQ item, or the response he gets
   #    may be unsatisfying.
  +#  7/30/1997 Ken Coar - add PR# link at extreme right if there are more
  +#    than 4 columns - easier to follow link without having to
  +#    horizontally scroll back.
   #
  -### End Modifcation log
  +### End Modification log
   
   ### Environment variables
   $SCRIPT_NAME = $ENV{"SCRIPT_NAME"};
  @@ -185,7 +188,7 @@
   ### Main menu
   } elsif ($PATH_INFO eq "") {
       &main_menu();
  -    print "<HR><SMALL>Version: 11 July 1997<BR>Authors: ",
  +    print "<HR><SMALL>Version: 30 July 1997<BR>Authors: ",
        "<A HREF=\"http://alumni.caltech.edu/~dank\";>Dan Kegel</A> ",
            "[EMAIL PROTECTED] &amp; ",
        "<A HREF=\"http://alumni.caltech.edu/~huyle/\";>Huy Le</A> ",
  @@ -1045,15 +1048,18 @@
       print "<TABLE BORDER=1>\n<TR>\n";
       # Print field headers.
       local($QUICKFMT, $WIDTH, $fstring, $str);
  -    $fstring = "<TD>PR# ";
  +    $fstring = "<TH>PR#</TH>";
       foreach (@field) {
        ($QUICKFMT, $WIDTH)=split(/:/,$field{$_});
        if ($QUICKFMT <= $quickfmt) {
   #        $fstring .= &truncstr($_, $WIDTH) . " ";
  -         $fstring .= "<TD>$_ ";
  +         $fstring .= "<TH>$_</TH> ";
        }
       }
  -    print "$fstring\n"; 
  +    if ($#field > 4) {
  +     $fstring .= "<TH>PR#</TH>";
  +    }
  +    print "$fstring</TR>\n"; 
       # Print each PR in result as link to full text 
       foreach (@prs) {
        s/\s*\|\s*/|/go;
  @@ -1085,10 +1091,16 @@
                $str = eval "\$$_";
                $str =~ s/\s+/&nbsp;/g;
   #            $fstring .= &truncstr($str, $WIDTH) . " ";
  -             $fstring .= "<TD>".&html_escape($str)." ";
  +             $fstring .= "<TD>" . &html_escape($str) . "</TD>";
            }
        }
  -     print "<TR><TD><a href=http:$SCRIPT_NAME/full/$NUMBER>$NUMBER</a> 
$fstring\n"; 
  +     print "<TR>\n";
  +     print " <TD><a href=http:$SCRIPT_NAME/full/$NUMBER>$NUMBER</a></TD> ";
  +     print "$fstring\n";
  +     if ($#field > 4) {
  +         print "<TD><a href=http:$SCRIPT_NAME/full/$NUMBER>$NUMBER</a></TD>";
  +     }
  +     print "\n</TR>\n";
       } 
       print "</table>\n";
   }