expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2025-01-30 23:22:31 +00:00
Code Issues Packages Projects Releases Wiki Activity

[svn r6777] Edited so as not to produce strange dangling hyphens for caves with multiple entrances and only a provisional number ("2004-19 a b" not " - a b 2004-19")

Browse Source
This commit is contained in:
dave 2005-05-11 18:46:18 +02:00
parent 6ee66dd2a6
commit b3f3eccbc5
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
noinfo/make-indxal4.pl
View File

@ -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) {