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";