From bd3a5a4f4b9848c41797a4387e7273004ed1fbf2 Mon Sep 17 00:00:00 2001 From: sb476 Date: Wed, 21 Apr 2004 15:18:29 +0200 Subject: [PATCH] [svn r5770] HTML 4.01 compliance fixing --- noinfo/make-indxal4.pl | 113 +++++++++++++++++++++-------------------- 1 file changed, 57 insertions(+), 56 deletions(-) diff --git a/noinfo/make-indxal4.pl b/noinfo/make-indxal4.pl index 091c57b3d..1b9ca2904 100755 --- a/noinfo/make-indxal4.pl +++ b/noinfo/make-indxal4.pl @@ -28,23 +28,23 @@ unless ($ARGV[0]) { open (CSV, "< $ARGV[0]"); # Start writing index file -open IDXALL, ">..\/indxal.htm" or die $!; -print IDXALL << "END"; - +open INDXAL, ">..\/indxal.htm" or die $!; +print INDXAL << "END"; + + Loser Plateau area : Cave description index - +

Kataster Gruppe 1623:
Loser Augst-Eck - INDEX

- - +
END ; # starting to read in csv file, eat header line @@ -64,20 +64,20 @@ while () { } # Finish writing index file -print IDXALL << "END"; +print INDXAL << "END";
- -
+
+

> Back to CUCC Home page
> Back to Expedition Intro page
-> -Main Indices:
+

> Main Indices:

+

---> Index to Expo information pages
---> @@ -85,29 +85,30 @@ Back to Expedition Intro page
---> List of (links to) published reports and logbooks
-> -Pictures:
+

> Pictures:

+

---> Text only Index
---> Index pages (with thumbnails)
-> -Other info:
+

> Other info:

+

---> Table of members of CUCC expeditions 1976-99
---> Other groups who have worked in the area.
---> Adjacent area 1626 + END -close IDXALL; +close INDXAL; print "Information: Done\n"; # Process a line of the CSV file @@ -150,31 +151,31 @@ sub do_this_line { if ($_[1] eq "cave") { my $e = $ents; $e =~ s/ +/ /g; - print IDXALL "$kat_num $other_number"; + print INDXAL "$kat_num $other_number"; if ($e) { - print IDXALL " - $e"; + print INDXAL " - $e"; } - print IDXALL ""; + print INDXAL ""; if ($file) { - print IDXALL ""; + print INDXAL ""; } elsif ($linkfile) { - print IDXALL ""; + print INDXAL ""; } if ($name) { - print IDXALL $name; + print INDXAL $name; } else { - print IDXALL "?"; + print INDXAL "?"; } if ($unofficial_name) { - print IDXALL " ($unofficial_name)"; + print INDXAL " ($unofficial_name)"; } if ($file or $linkfile) { - print IDXALL ""; + print INDXAL ""; } if ($comment) { - print IDXALL " - $comment"; + print INDXAL " - $comment"; } - print IDXALL "\n"; + print INDXAL "\n"; } # If the cave does not have a filename allocated, but does have multiple entrances, keep going through the CSV file until we are at the last entrance, before we return @@ -210,11 +211,12 @@ sub do_this_line { # Open the file and start writing to it open FILE, "> $file" or die $!; print FILE << "END"; - + + END @@ -237,8 +239,8 @@ END print FILE "$header\n"; } - print FILE "\n"; - print FILE "
"; + print FILE "\n"; + print FILE ""; - print FILE ""; if ($kat_status) { - print FILE ""; + print FILE ""; } print FILE "\n
"; if ($kat_num) { print FILE "$kat_num"; } @@ -249,13 +251,13 @@ END print FILE " $other_number"; } print FILE "$name"; + print FILE "$name"; if ($unofficial_name) { print FILE " ($unofficial_name)"; } print FILE "$kat_status$kat_status
\n"; @@ -343,71 +345,70 @@ END print FILE "\n\n

Survex file: $survex_file"; } - print FILE "\n

\n\n"; + print FILE "\n\n\n
\n

"; if ($footer) { - print FILE "\n

$footer"; + print FILE "$footer\n

"; } # Find the area the cave is in, and add appropriate links if ($area =~ /(1a|1b|1c|1d)/) { print FILE "\n\">\""; - print FILE "\nPlateau area index and description
"; + print FILE "Plateau area index and description
"; } if ($area =~ /(2a|2b)/) { # we repeat this each time due to cave 39 print FILE "\n\">\""; - print FILE "\nSchwarzmooskogel ridge area index and description
"; + print FILE "Schwarzmooskogel ridge area index and description
"; } if ($area =~ /3/) { - print FILE "\n\">\""; + print FILE "\">\""; print FILE "\nBräuning Alm area index and description
"; } if ($area =~ /4/) { - print FILE "\n\">\""; + print FILE "\">\""; print FILE "\nKratzer valley index and description
"; } if ($area =~ /5/) { print FILE "\n\">\""; - print FILE "\nSchwarzmoos-Wildensee area index and description
"; + print FILE "Schwarzmoos-Wildensee area index and description
"; } if ($area =~ /6/) { print FILE "\n\">\""; - print FILE "\nFar plateau area index and description
"; + print FILE "Far plateau area index and description
"; } if ($area =~ /7/) { print FILE "\n\">\""; - print FILE "\nEgglgrube area index and description
"; + print FILE "Egglgrube area index and description
"; } if ($area =~ /(8a|8b|8c|8d)/) { print FILE "\n\">\""; - print FILE "\nLoser/Augst See area index and description
"; + print FILE "Loser/Augst See area index and description
"; } if ($area =~ /9/) { print FILE "\n\">\""; - print FILE "\nGschwandt area index and description
"; + print FILE "Gschwandt area index and description
"; } if ($area =~ /10/) { print FILE "\n\">\""; - print FILE "\nN & NE shore of Altauseer See
"; + print FILE "N & NE shore of Altauseer See
"; } if ($area =~ /11/) { print FILE "\n\">\""; - print FILE "\nAugstbach area index and description
"; + print FILE "Augstbach area index and description
"; } unless ($area) { print FILE "\n\">\""; - print FILE "\nGo Back (Javascript)
"; # ACCK! ACCK! Evil JavaScript! + print FILE "Go Back (Javascript)
"; # ACCK! ACCK! Evil JavaScript! } # Finish writing to file print FILE << "END"; -> -Full Index
-> -Other Areas
-> -Back to Expedition Intro page + +>Full Index
+>Other Areas
+>Back to Expedition Intro page + @@ -548,8 +549,8 @@ sub multi_ents { my $other_number_no_brackets = $_[3]; my $toroot = $_[4]; - print FILE "\n\n

"; - print FILE "\n

Entrances:\n
"; + print FILE "\n\n

Entrances:"; + print FILE "\n

"; my $e_mult_ents; # Process each entrance @@ -563,7 +564,7 @@ sub multi_ents { $eother_number = "($eother_number)"; # wrap it in brackets, so it doesn't appear to be official } - print FILE "\n\n
  • "; + print FILE "\n
  • "; if ($elinkfile) { # this is a link to another cave - add link to entrance into cave file but don't generate another file for the entrance print FILE "$eents $eother_number "; @@ -583,7 +584,7 @@ sub multi_ents { $e_mult_ents = $emult_ents; } while ($e_mult_ents ne "last entrance"); - print FILE "\n\n
    • "; + print FILE "\n    "; } # Usage