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>) <TD>$phone <BR>$fax <TD>$loc <TD>$comment </TR>\n"; } else { push(@contractors, $_); } } -print "</TR>\n<TR><TH>Contractor (E-mail)</TR>\n"; +print "</TR>\n<TR><TH>Contractor (E-mail)<TH> <TH> <TH> </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 <BR>$fax <TD>$loc <TD>$comment </TR>\n"; } } print "</TR>\n</TABLE>\n";