expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2025-12-08 23:04:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

[svn r5857] Nothing much

Browse Source
This commit is contained in:
sb476
2004-04-27 15:47:29 +02:00
parent 90012253b3
commit 83dc9dfce7
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
noinfo/make-indxal4.pl
View File

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