|
[+$dat2->[$row]{CORE}+]
|
[+ do { $dat2->[$row]{CORE_ONDECK} =~ s/ .+$//;
$dat2->[$row]{CORE_ONDECK};}+]
|
[+$dat2->[$row]{TOP_DEPTH}+]
|
[+$dat2->[$row]{BOTTOM_DEPTH}+]
|
[- $lensum = $lensum + $dat2->[$row]{DRILLED_LENGTH} -]
[+$dat2->[$row]{DRILLED_LENGTH}+] | [+ $lensum +]
|
[- $recsum = $recsum + $dat2->[$row]{CORE_RECOVERY} -]
[+$dat2->[$row]{CORE_RECOVERY}+] | [+ $recsum +]
|
[$ if $dat2->[$row]{DRILLED_LENGTH} > 0 $] [- $recprocsum =
($recsum*100)/$lensum -] [$ endif $]
[+$dat2->[$row]{CORE_REC_PC}+] | [+ sprintf("%.2f",
$recprocsum) +]
|
[+$dat2->[$row]{REMARKS}+] |