| Section Units of Litho Unit: [+$unit+]
|
[# "$proc $args" #]
[#+ "$proc0 $args" +#]
[#- Execute('../../htmltable_code.html', $dat0, $names0)-#]
[#- Execute('../../htmltable_clip.html', $dat0, $names0)-#]
[$ if $well_hole =~ /^5018/ $]
[- $maxrow = 1; -]
| Hole Number |
Site |
Altitude (masl) |
Latitude |
Longitude |
Spud In |
| [+$dat0->[$row]{well_hole}+] |
[+$dat0->[$row]{LOCATION}+] |
[+$dat0->[$row]{ELEVATION}+] |
[+ sprintf("%.4f", $dat0->[$row]{LATITUDE_DEC}) +] |
[+ sprintf("%.4f", $dat0->[$row]{LONGITUDE_DEC}) +] |
[+$dat0->[$row]{START_DATE}+] |
[- $spud_date = $dat0->[$row]{START_DATE} -]
[$ endif $]
[- $maxrow = 1000;
$args = qq('$well_hole','$unit');
$proc2 = "dw_fardeep..dw_SectionAndLithoUnits";
($dat2 , $names2) = ICDP::dmzdb::executeSPX("$proc2 $args", "SHORT");
ICDP::dmzdb::replaceNULL ($dat2, "");
$asciifile = basename(ICDP::dmzdb::exportAsASCII($dat2, "sites/far-deep/tmp", "\t"));
$csvfile = basename(ICDP::dmzdb::exportAsXLS($dat2, "sites/far-deep/tmp"));
$lensum = 0;
$recsum = 0;
$recprocsum = 0;
-]
[#+ "$proc2 $args" +#]
[# Execute('../../htmltable_code.html', $dat2, $names2) #]
[# Execute('../../htmltable_clip.html', $dat2, $names2) #]
[$ if @$dat2 > 1 $]
Click on a 'Section Unit #' to get the corresponding core and box images !
[$ endif $]
[$ if $row == 0 $]
| Litho Unit # |
Top Depth (m) |
Section Unit #
'core'_'section'_'unit' |
Distance from
Top of Section (cm) |
Rock Class |
Rock Type |
Description |
[$ endif $]
| [+$dat2->[$row]{litho_unit}+] |
[+$dat2->[$row]{starting_depth}+] |
[- @fields = split(/_/, $dat2->[$row]{well_section}); -]
[+$dat2->[$row]{well_section}+] |
[+$dat2->[$row]{interval}+] |
[+$dat2->[$row]{UNIT_CLASS}+] |
[+$dat2->[$row]{UNIT_TYPE}+] |
[-
$where = index($dat2->[$row]{UNIT_DESC},"Colour");
# $where = $dat2->[$row]{UNIT_DESC};
# $where =~ /(.*?)^�(.*)/;
-]
[#+ $where +#]
[$ if $where > 0 $]
[- $desc = substr($dat2->[$row]{UNIT_DESC},$where,255); -]
[$ if substr($dat2->[$row]{UNIT_DESC},21,$where-23) ne "" $]
[- $desc .= ", ";
$desc .= substr($dat2->[$row]{UNIT_DESC},21,$where-23); -]
[$ endif $]
[$ else $]
[- $desc = ""; -]
[$ endif $]
[+
do { local $Text::Wrap::columns = 30; local $escmode = 0;
$desc=~ s/§/\n/g; Text::Wrap::wrap("", "", ($desc));}+] |
|