From 83dc9dfce70ea2cf28b56538e1daeadd965ccbe8 Mon Sep 17 00:00:00 2001
From: sb476 <devnull@localhost>
Date: Tue, 27 Apr 2004 15:47:29 +0200
Subject: [PATCH] [svn r5857] Nothing much

---
 noinfo/make-indxal4.pl | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/noinfo/make-indxal4.pl b/noinfo/make-indxal4.pl
index 65458f03d..d7420bce7 100755
--- a/noinfo/make-indxal4.pl
+++ b/noinfo/make-indxal4.pl
@@ -4,6 +4,7 @@ use File::Path;
 use Getopt::Long;
 
 # no_info col is currently unused
+# also, header never has any info...
 
 ((my $progname = $0) =~ s/^.*(\/|\\)//ig); # basename $0
 
@@ -31,7 +32,7 @@ open INDXAL, ">..\/indxal.htm" or die $!;
 print INDXAL << "END";
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
 <!-- *** This file is auto-generated by $progname - edit cavetab2.csv instead -->
-<html>
+<html lang="en" xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
 <head>
 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
 <title>Loser Plateau area : Cave description index</title>
@@ -66,7 +67,7 @@ print INDXAL << "END";
 </table>
 
 <!-- LINKS -->
-<hr /><ul id="links">
+<hr /><ul>
 <li>Back to <a href="../index.htm">CUCC Home page</a></li>
 <li>Back to <a href="index.htm">Expedition Intro page</a></li>
 
@@ -203,7 +204,7 @@ sub do_this_line {
 	print FILE << "END";
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
 <!-- *** This file is auto-generated by $progname - edit cavetab2.csv instead -->
-<html>
+<html lang="en" xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
 <head>
 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
 <link rel="stylesheet" type="text/css" href="$toroot/css/main2.css" />
@@ -275,8 +276,8 @@ END
 	unless ($mult_ents eq "yes") {
 		# If there is only one entrance,
 		print FILE "\n\n<p>";
-		unless ($ent_name) {
-			print FILE "<b>Entrance:</b>";
+		if ($tag_punkt || $other_punkt || $exact_punkt || $gpspostsa || $gpspresa || $easting || $northing || $altitude || $fix_type || $desc_other_punkt && !$ent_name) { # basically, if do_ent is going to do anything, print "Entrance:"
+			print FILE "<b>Entrance: </b>";
 		}
 		# Process the location data for the entrance
 		do_ent($tag_punkt,$other_punkt,$exact_punkt,$gpspostsa,$gpspresa,$easting,$northing,$altitude,$ent_name,$fix_type,$desc_other_punkt);
@@ -343,8 +344,11 @@ END
 		print FILE "\n\n<p>$footer</p>";
 	}
 
-	print FILE "\n\n<!-- LINKS -->\n<hr /><ul id=\"links\">\n";
+	print FILE "\n\n<!-- LINKS -->\n<hr /><ul>\n";
 
+	if ($_[1] eq "entrance") {
+		print FILE "<li><a href=\"javascript:history.back(1)\">Go Back (Javascript)</a></li>\n"; # ACCK! ACCK! Evil JavaScript! - this HAS to be done, for things like 78a, where the reader could have got there either via 78 OR 40 (and we have NO way of knowing
+	}
 	# Find the area the cave is in, and add appropriate links
 	if ($area =~ /(1a|1b|1c|1d)/) {
 		print FILE "<li><a href=\"$toroot\/plateau\/index.htm#$linkid\">Plateau area index and description</a></li>\n";
@@ -379,9 +383,6 @@ END
 	if ($area =~ /11/) {
 		print FILE "<li><a href=\"$toroot\/augstb\/index.htm#$linkid\">Augstbach area index and description</a></li>\n";
 	}
-	unless ($area) {
-		print FILE "<li><a href=\"javascript:history.back(1)\">Go Back (Javascript)</a></li>\n"; # ACCK! ACCK! Evil JavaScript!
-	}
 
 	# Finish writing to file
 	print FILE << "END";
