expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2026-04-24 19:46:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

[svn r6904] Massive global update. Area index pages now auto-generated. Numerous files moved to more sensible places. Over 400 broken links (most, but not all, created in the above two steps) fixed.

Browse Source
This commit is contained in:
dave
2005-06-12 13:31:07 +02:00
parent 714890fa78
commit 071ecf0eaa
300 changed files with 837 additions and 1347 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
noinfo/make-indxal4.pl
View File

@@ -67,7 +67,7 @@ print INDXAL << "END";
<h1>Kataster Gruppe 1623:<br />Loser Augst-Eck - INDEX</h1>
<p>Note that <a href="1626/index.htm">information on caves in the adjacent area
<p>Note that <a href="1626/index.html">information on caves in the adjacent area
1626 (Rauher - Sch&ouml;nberg)</a> is to be found elsewhere. See also the <a
href="dplong.htm">list of lengths and depths</a> for the caves where we have
survey data.</p>
@@ -114,7 +114,7 @@ print INDXAL << "END";
<h3>Other info:</h3>
<ul><li>Table of <a href="folk/index.htm">members of CUCC expeditions</a> 1976-99</li>
<li><a href="others/index.htm">Other groups</a> who have worked in the area.</li>
<li><a href="1626/index.htm">Adjacent area 1626</a></li></ul>
<li><a href="1626/index.html">Adjacent area 1626</a></li></ul>
</li>
</ul>
<!-- /LINKS -->
@@ -388,7 +388,7 @@ END
print FILE "\n\n<p><b>Nominal area:</b> ";
foreach $_ (split(/ /, $area)) { # deal with caves allocated multiple areas
if (expandarea($_, 0)) { # drop junk words in $area such as "or"
print FILE "$_ - <a href=\"$toroot\/", (expandarea($_, 0))[1], "\/index.htm#$linkid\">", (expandarea($_, 0))[0], "</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"; # this sucketh mightily. How can I get a horizontal tab? FIXME
print FILE "$_ - <a href=\"$toroot\/", (expandarea($_, 0))[1], "\/index.html#$linkid\">", (expandarea($_, 0))[0], "</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"; # this sucketh mightily. How can I get a horizontal tab? FIXME
}
}
print FILE "</p>";
@@ -484,7 +484,7 @@ END
# Find the area the cave is in, and add appropriate links
foreach $_ (split(/ /, $area)) { # deal with caves allocated multiple areas
if (expandarea($_, 1)) { # drop junk words in $area such as "or"
print FILE "<li><a href=\"$toroot\/", (expandarea($_, 1))[1], "\/index.htm#$linkid\">", (expandarea($_, 1))[0], " area index and description</a></li>\n";
print FILE "<li><a href=\"$toroot\/", (expandarea($_, 1))[1], "\/index.html#$linkid\">", (expandarea($_, 1))[0], " area index and description</a></li>\n";
}
}