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

[svn r4907] *** empty log message ***

Browse Source
This commit is contained in:
mjg54
2003-05-10 19:58:16 +02:00
parent e7da12232b
commit 63c178a568
3 changed files with 358 additions and 308 deletions
Download Patch File Download Diff File Expand all files Collapse all files

653
noinfo/CAVETAB2.CSV
View File

File diff suppressed because one or more lines are too long

BIN
noinfo/CAVETAB2.sxc
View File

Binary file not shown.

13
noinfo/make-indxal2.pl
View File

@@ -66,7 +66,7 @@ while (<>) {
s/"\t"/\t/g;
s/\\"/"/g;
#print "$_\n\n";
my ($dummy, $kat_num, $kat_status, $ents, $other_number, $mult_ents, $file, $name, $unofficial_name, $comment, $area, $no_info, $explorers, $u_description, $references, $u_centre_line, $u_drawn_survey, $survex_file, $length, $depth, $extent, $ent_name, $tag_punkt, $other_punkt, $desc_other_punkt, $exact_punkt, $fix_type, $northing, $easting, $altitude, $bearings, $map, $location, $approach, $ent_desc, $ent_photo, $marking) = split /\t/, $_;
my ($dummy, $kat_num, $kat_status, $ents, $other_number, $mult_ents, $file, $name, $unofficial_name, $comment, $area, $no_info, $explorers, $u_description, $references, $u_centre_line, $u_drawn_survey, $survex_file, $length, $depth, $extent, $header, $notes, $ent_name, $tag_punkt, $other_punkt, $desc_other_punkt, $exact_punkt, $fix_type, $northing, $easting, $altitude, $bearings, $map, $location, $approach, $ent_desc, $ent_photo, $marking) = split /\t/, $_;
my $number = $kat_num;
if ($number eq "") {
$number = $other_number;
@@ -97,7 +97,11 @@ END
</title>
</head>
<body>
<center><table border=0 width=100%>
<center>
END
print FILE "$header\n";
print FILE <<END;
<table border=0 width=100%>
<tr><th align=left><font size=+2>$number $ents</font></th>
<th align=center><font size=+2>$name</font></th>
<th align=right><font size=+2>$kat_status</font></th></tr>
@@ -184,7 +188,7 @@ END
$e =~ s/"\t"/\t/g;
$e =~ s/\\"/"/g;
#print "$_\n\n";
my ($edummy, $ekat_num, $ekat_status, $eents, $eother_number, $emult_ents, $efile, $ename, $eunofficial_name, $ecomment, $earea, $eno_info, $eexplorers, $eu_description, $ereferences, $eu_centre_line, $eu_drawn_survey, $esurvex_file, $elength, $edepth, $eextent, $eent_name, $etag_punkt, $eother_punkt, $edesc_other_punkt, $eexact_punkt, $efix_type, $enorthing, $eeasting, $ealtitude, $ebearings, $emap, $elocation, $eapproach, $eent_desc, $eent_photo, $emarking) = split /\t/, $e;
my ($edummy, $ekat_num, $ekat_status, $eents, $eother_number, $emult_ents, $efile, $ename, $eunofficial_name, $ecomment, $earea, $eno_info, $eexplorers, $eu_description, $ereferences, $eu_centre_line, $eu_drawn_survey, $esurvex_file, $elength, $edepth, $eextent, $eheader, $enotes, $eent_name, $etag_punkt, $eother_punkt, $edesc_other_punkt, $eexact_punkt, $efix_type, $enorthing, $eeasting, $ealtitude, $ebearings, $emap, $elocation, $eapproach, $eent_desc, $eent_photo, $emarking) = split /\t/, $e;
my $enumber = $ekat_num;
if ($enumber eq "") {
$enumber = $eother_number;
@@ -295,6 +299,9 @@ END
if ($u_description ne "") {
print FILE "\n<p><b>Underground Description:</b> $u_description";
}
if ($notes ne "") {
print FILE "\n<p><b>Notes:</b> $notes";
}
if ($explorers ne "") {
print FILE "\n<p><b>Explorers:</b> $explorers";
}