diff --git a/noinfo/make-indxal4.pl b/noinfo/make-indxal4.pl index f2ba00d94..b4488e42b 100755 --- a/noinfo/make-indxal4.pl +++ b/noinfo/make-indxal4.pl @@ -29,7 +29,7 @@ unless ($ARGV[0]) { usage(); } -# One day this may be proofed against this problem, but another command line parameter (location of expoweb) is enevitable, and unappealing +# One day this may be proofed against this problem, but another command line parameter (location of expoweb) is inevitable, and unappealing ($_ = cwd()) =~ s/^.*\///ig; if ($_ ne "noinfo") { print STDERR "This program expects to be run from a CWD of noinfo!\n\n"; @@ -335,16 +335,11 @@ END } print FILE "<table id=\"cavepage\">\n"; - print FILE "<tr><th id=\"kat_no\">$kat_num"; # if no $kat_num, no problem - if ($ents) { - print FILE " - $ents"; - } - if ($other_number) { - if ($kat_num) { - print FILE "<br />"; - } - print FILE " $other_number"; - } + print FILE "<tr><th id=\"kat_no\">"; + if ($kat_num) {print FILE "$kat_num"} else {print FILE "$other_number"} + if ($ents) { print FILE " - $ents" } + if ($other_number && $kat_num) { print FILE "<br />$other_number" } + print FILE "</th><th id=\"name\">$name"; if ($unofficial_name) { if ($name) {