Obituaries published in
Helictite - Journal of Australasian Speleological Research

Helictite Indexes page
Helictite Home page
"; ### Functions ### function EchoObituariesList() { global $cbDebugVars; # Get Set data and section data for obituaries $aObits = $aMetaData = $aSectData = []; $aNoCache = $aNoMeta = null; if( !GetPedata( 'obit', $aNoCache, $aObits, $aNoMeta, $aSectData ) ) { echo "

" . GetPedataError() . "

"; return; } if( $cbDebugVars ) echo "

Debug Variables

aObits = 

" . htmlspecialchars(var_export($aObits,true)) . "

"; # Show obituaries echo " "; foreach($aObits as $r) { $sFullName = str_replace(' ', ' ', $r['fn'] . ', ' . $r['gn']); # Generate links to contents pages for all the Helictite References $sRefsOut = ''; $aHelRefs = $r['hr'] ?? ['?']; # eg. 0=>44:59-66, 1=>4(1):2 $aContentsIds = $r['ci'] ?? ['?']; # Corresponding to aHelRefs array, eg. 0=>044.00.059, 1=>004.01.002" foreach($aHelRefs as $iIdx=>$sRefVal) { # Index is 0, 1, 2 etc. $sIdVal = $aContentsIds[$iIdx]; $sRefsOut .= "
$sRefVal"; } echo " "; } echo "
Name Years lived     Helictite
References		 Published Author(s) Comments
$sFullName " . ($r['yl'] ?? '?') . " " . substr($sRefsOut,4) . " " . ($r['yp'] ?? '?') . " " . ($r['a'] ?? '?') . " " . ($r['c'] ?? '') . "

" . count($aObits) . " obituaries.

"; # Show when data was updated echo "
Copyright © Australian Speleological Federation Inc. 2002, " . date("Y") . "
Last updated using " . ($aSectData['DataSet'] ?? '?') . " of " . ($aSectData['Updated'] ?? '?') . "
"; } # Generate an issue link like contentsN.php#VVV.II from helictite id VVV.II.PPP function MakeIssueLink( $sHelId ) { $sPageSuff = substr($sHelId,0,2); # First 2 digits of VVV Volume number if( $sHelId[0] == '0' ) # Strip leading zero $sPageSuff = $sHelId[1]; return "contents$sPageSuff.php#" . substr($sHelId,0,6); # label VVV.II }