getFullName();
function print_descendency($person, $count) {
global $show_spouse, $dgenerations, $bwidth, $bheight, $bhalfheight;
global $TEXT_DIRECTION, $WT_IMAGES, $generations, $box_width, $show_full;
if ($count>=$dgenerations) {
return 0;
}
$pid=$person->getXref();
echo "
";
return $numkids;
}
function print_person_pedigree($pid, $count) {
global $generations, $SHOW_EMPTY_BOXES, $WT_IMAGES, $bheight, $bhalfheight;
if ($count>=$generations) return;
$famids = find_family_ids($pid);
$hheight = ($bhalfheight+3) * pow(2,($generations-$count-1));
foreach ($famids as $indexval => $famid) {
echo "";
$parents = find_parents($famid);
$height="100%";
echo "";
if ($count<$generations-1) {
echo " | ";
echo " | ";
}
echo "";
print_pedigree_person($parents["HUSB"]);
echo " | ";
echo "";
print_person_pedigree($parents["HUSB"], $count+1);
echo " | ";
echo "
 |
";
if ($count<$generations-1) {
echo " | ";
echo " | ";
}
echo "";
print_pedigree_person($parents["WIFE"]);
echo " | ";
echo "";
print_person_pedigree($parents["WIFE"], $count+1);
echo " | ";
echo "
";
if ($count<$generations-1) {
echo " |
";
}
echo "
";
}
}
function print_family_book($person, $descent) {
global $generations, $dgenerations, $firstrun;
if ($descent==0 || !$person->canDisplayName()) {
return;
}
$families=$person->getSpouseFamilies();
if (count($families)>0 || empty($firstrun)) {
$firstrun=true;
echo
'',
/* I18N: A title/heading. %s is a person's name */ i18n::translate('Family of %s', $person->getFullName()),
'
| ';
$dgenerations = $generations;
print_descendency($person, 1);
echo ' | ';
print_person_pedigree($person->getXref(), 1);
echo ' |
';
foreach ($families as $family) {
foreach ($family->getChildren() as $child) {
print_family_book($child, $descent-1);
}
}
}
}
// -- print html header information
print_header(PrintReady($name)." ".i18n::translate('Family book chart'));
if ($ENABLE_AUTOCOMPLETE) require WT_ROOT.'js/autocomplete.js.htm';
// LBox =====================================================================================
if (WT_USE_LIGHTBOX) {
require WT_ROOT.'modules/lightbox/lb_defaultconfig.php';
require WT_ROOT.'modules/lightbox/functions/lb_call_js.php';
}
// ==========================================================================================
echo "";
echo "";
echo "".i18n::translate('Family book chart').": ".PrintReady($name)."";
?>
| |
|
';
print_family_book($person, $descent);
echo '';
print_footer();