[# # $Id: tpl_dis_requests_sum_rep.htm 3105 2014-08-07 12:56:05Z knb $ # $HeadURL: http://svn.gfz-potsdam.de/icdp/websites/trunk/dev-sites/far-deep/internal/tpl_dis_requests_sum_rep.htm $ #] Sample Requests Report of FAR-DEEP
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;
$request = $fdat{request} || '%';
$proc = "dw_fardeep..dw_Requests";

# SQL vorbereiten

$request = ($fdat{request} or "MSP%");

$args = qq('$request');
($dat , $names) = ICDP::dmzdb::executeSPX("$proc $args", "DMY4_YYYY");
ICDP::dmzdb::replaceNULL ($dat, "");
ICDP::dmzdb::roundAll ($dat, 3);
$asciifile = basename(ICDP::dmzdb::exportAsASCII($dat, "sites/far-deep/tmp", "\t"));
$csvfile = basename(ICDP::dmzdb::exportAsXLS($dat, "sites/far-deep/tmp"));

@_ = localtime;

-]


Summary Sample Requests Report


[#+ "$proc $args" +#] [#- Execute('../../htmltable_code.html', $dat, $names); -#] [#- Execute('../../htmltable_clip.html', $dat, $names); -#]  [$ if @$dat > 0 $]
Show all  |   download data in ASCII-Format or Excel-Format 
[$ if $row ==0 $] [$ endif $]
 EXPEDITION   REQUEST #   REQUEST_TYPE   REQUEST_DATE   SCIENTISTS   PURPOSE   REMARKS 
 [+$dat->[$row]{EXPEDITION}+]   [+$dat->[$row]{REQUEST}+]   [+$dat->[$row]{REQUEST_PART}+]   [+$dat->[$row]{REQUEST_TYPE}+]   [+ do{$dat->[$row]{REQUEST_DATE} =~ s/ .+$//; $dat->[$row]{REQUEST_DATE}; } +]   [+$dat->[$row]{FNAME}+] [+$dat->[$row]{LNAME}+]   [+$dat->[$row]{PURPOSE}+]   [+$dat->[$row]{REMARKS}+] 

[$ else $]

No data to display. Please select a well hole.

[$ endif $]