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

List of all reports

All well holes

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

$project = $fdat{project} || "FARDEEP";
$maxrow = 1000;

$proc = "dw_fardeep..dw_Samples_123";
$na = "";

# SQL vorbereiten

$well_hole = ($fdat{well_hole} ) || $well_hole;
$args = qq('$fdat{well_hole}','$fdat{name}');
($dat , $names) = ICDP::dmzdb::executeSPX("$proc $args", "DMY4_YYYY");
ICDP::dmzdb::replaceNULL ($dat, "");

$asciifile = basename(ICDP::dmzdb::exportAsASCII($dat, "sites/far-deep/tmp", "\t"));
$csvfile = basename(ICDP::dmzdb::exportAsXLS($dat, "sites/far-deep/tmp"));
 
$proc1 = "dw_fardeep..dw_getdistinctholes";
($dat1 , $names1) =ICDP::dmzdb::executeSPX("$proc1", "DMY4_YYYY");
$dat1 = ICDP::dmzdb::whsort("well_hole", $dat1);

$proc2 = "dw_fardeep..dw_getdistinctscientist";
($dat2 , $names2) =ICDP::dmzdb::executeSPX("$proc2", "DMY4_YYYY");

@_ = localtime;

-]