ICDP FAR-DEEP Project, Karelia, Russia, 2007+

[-

use File::Basename;
chdir dirname($req_rec->filename);
use ICDP::dmzdb;
use File::Basename;
use Date::Parse;
use Date::Format;
use Text::Wrap;


$project = $fdat{project} || "FARDEEP";
$proc2 = "dw_fardeep..dw_thinsections ";
$maxrow = 1000;

# SQL vorbereiten

$well_hole = ($fdat{well_hole} ) ||  "5018_1_A" ;
$args = qq('$well_hole');
($dat2 , $names2) = ICDP::dmzdb::executeSPX("$proc2 $args", "MDY1_YYYY");
ICDP::dmzdb::replaceNULL ($dat2, "");
ICDP::dmzdb::roundAll ($dat2);
$asciifile = basename(ICDP::dmzdb::exportAsASCII($dat2, "sites/far-deep/tmp", "\t"));
$csvfile = basename(ICDP::dmzdb::exportAsXLS($dat2, "sites/far-deep/tmp"));

$proc1 = "dw_fardeep..dw_getdistinctholes_thinsec";
($dat1 , $names1) =ICDP::dmzdb::executeSPX("$proc1", "MDY1_YYYY");
$dat1 = ICDP::dmzdb::whsort("well_hole", $dat1);
-]

Thinsection Images (typical area 2x3 cm) Select hole [+ qq($dat1->[$row]{well_hole} - ) . substr($dat1->[$row]{LOCATION}, 0, 50)+]    Current selection: [+ $well_hole +] Only thinsection photographs from these sites and drillholes are available: 10_A, 10_B, 11_A, 3_A, 4_A, 5_A. [#- Execute('../../htmltable_code.html', $dat2, $names2)-#] [#- Execute('../../htmltable_clip.html', $dat2, $names2)-#]  [$ if $well_hole =~ /^5018/ $] download data in ASCII-Format or Excel-Format  [$ if $row == 0 $] [$ endif $] Thinsection Images Thinsection # Corrected Depth (m) Hole Core Section Comments Rock Class Rock Type Rock Description ID [+$dat2->[$row]{THIN_SECTION}+] [+$dat2->[$row]{TOP_DEPTH_MCD_TS}+] [+$dat2->[$row]{well_hole}+] [+$dat2->[$row]{CORE}+] [+$dat2->[$row]{SECTION}+] [+$dat2->[$row]{COMMENTS}+] [+$dat2->[$row]{UNIT_CLASS}+] [+$dat2->[$row]{UNIT_TYPE}+] [+ do { local $Text::Wrap::columns = 30; local $escmode = 0; $desc = $dat2->[$row]{UNIT_DESC}; $desc =~ s/^\s+//g; $desc =~ s/§/\n/g; Text::Wrap::wrap("", "", ($desc));}+] [$ if $dat2->[$row]{ALLOQUOT_ID} =~ /^3.*/ $] [- $label = "Alloquot"; $value = $dat2->[$row]{ALLOQUOT_ID}; -] [$ elsif $dat2->[$row]{SUBSAMPLE_ID} =~ /^3.*/ $] [- $label = "Subsample"; $value = $dat2->[$row]{SUBSAMPLE_ID}; -] [$ elsif $dat2->[$row]{SAMPLE_ID} =~ /^3.*/ $] [- $label = "Sample"; $value = $dat2->[$row]{SAMPLE_ID}; -] [$ elsif $dat2->[$row]{SECTION_ID} =~ /^3.*/ $] [- $label = "Section"; $value = $dat2->[$row]{SECTION_ID}; -] [$ else $] [- $label = "->"; $value = "->"; -] [$ endif $] [+$label+]: [+$value+] [$ endif $]