ICDP FAR-DEEP Project, Karelia, Russia, 2007+
List of all reports 
[-

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

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

$proc0 = "dw_fardeep..dw_Holes ";
$maxrow = 1000;

# SQL vorbereiten

$well_hole = ($fdat{well_hole} ) ||  "5018_1_A" ;

$args = qq('$well_hole');


($dat0 , $names0) = ICDP::dmzdb::executeSPX("$proc0", "MDY1_YYYY");
ICDP::dmzdb::replaceNULL ($dat0, "");

-]
Sites and Holes Summary Report

[# "$proc $args" #]
          [#+ "$proc0 $args" +#] 
          [#- Execute('../../htmltable_code.html', $dat0,
          $names0)-#]
           [#- Execute('../../htmltable_clip.html', $dat0,
          $names0)-#] 
[$ if $well_hole =~ /^5018/ $] [- $maxrow = 100; -] [$ if $row == 0 $] [$ endif $] [$ if str2time($dat0->[$row]{START_DATE}) > str2time("05/25/2007") $] [$ else $] [$ endif $]
# Hole Number Site Altitude (masl) Latitude Longitude On-Site Core Handling
[+$row + 1 +] [+$dat0->[$row]{well_hole}+] [+$dat0->[$row]{LOCATION}+] [+$dat0->[$row]{ELEVATION}+] [+ sprintf("%.4f", $dat0->[$row]{LATITUDE_DEC}) +] [+ sprintf("%.4f", $dat0->[$row]{LONGITUDE_DEC}) +] [+ do { substr($dat0->[$row]{START_DATE},0, 10);} +] -
[+ do { substr($dat0->[$row]{END_DATE},0, 10);} +] 		 not visited yet  [+$dat0->[$row]{REMARKS}+]
[$ endif $]