mjc         98/05/31 03:51:17

  Modified:    info     support.cgi
  Log:
  Fixup commercial support table so that empty table boxes still get borders
  
  Revision  Changes    Path
  1.5       +3 -3      apache-site/info/support.cgi
  
  Index: support.cgi
  ===================================================================
  RCS file: /export/home/cvs/apache-site/info/support.cgi,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- support.cgi       1998/04/20 23:58:46     1.4
  +++ support.cgi       1998/05/31 10:51:17     1.5
  @@ -35,19 +35,19 @@
        next if (/^#/);
        ($type, $who, $url, $email, $phone, $fax, $loc, $comment) = split(/\t/);
        if ($type eq "Comp") {
  -             print "<TR><TD><A HREF=\"$url\">$who</A> (<A 
HREF=\"mailto:$email\";>$email</A>) <TD>$phone<BR> $fax <TD>$loc <TD> $comment 
</TR>\n";
  +             print "<TR><TD><A HREF=\"$url\">$who</A> (<A 
HREF=\"mailto:$email\";>$email</A>)&nbsp;<TD>$phone&nbsp;<BR>$fax&nbsp;<TD>$loc&nbsp;<TD>$comment&nbsp;</TR>\n";
        } else {
                push(@contractors, $_);
        }
   }
   
  -print "</TR>\n<TR><TH>Contractor (E-mail)</TR>\n";
  +print "</TR>\n<TR><TH>Contractor 
(E-mail)<TH>&nbsp;<TH>&nbsp;<TH>&nbsp;</TR>\n";
   
   foreach $_ (sort (@contractors)) {
        next if (/^#/);
        ($type, $who, $url, $email, $phone, $fax, $loc, $comment) = split(/\t/);
        if ($type eq "Cont") {
  -             print "<TR><TD><A HREF=\"$url\">$who</A> (<A 
HREF=\"mailto:$email\";>$email</A>) <TD>$phone<BR> $fax <TD>$loc <TD> $comment 
</TR>\n";
  +             print "<TR><TD><A HREF=\"$url\">$who</A> (<A 
HREF=\"mailto:$email\";>$email</A>) 
<TD>$phone&nbsp;<BR>$fax&nbsp;<TD>$loc&nbsp;<TD>$comment&nbsp;</TR>\n";
        } 
   }
   print "</TR>\n</TABLE>\n";
  
  
  

Reply via email to