Search for People to add:

"; print "" ; print "  Find"; print ''; ?>

indi->getChildFamilies(); foreach($families as $famid=>$family) { $label = $this->indi->getChildFamilyLabel($family); $people = $this->buildFamilyList($family, "parents"); $marrdate = $family->getMarriageDate(); //-- Get Parents Children's Name, DOB, DOD -------------------------- if (isset($people["children"])) { $chBLDarray = Array(); foreach ($people["children"] as $key=>$child) { $chnam = $child->getAllNames(); $chfulln = rtrim($chnam[0]['givn'],'*')." ".$chnam[0]['surname']; $chfulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = addslashes($chfulln); // Child's Full Name $chdob = ($child->getBirthDate()->minJD()+$child->getBirthDate()->maxJD())/2; // Child's Date of Birth (Julian) $chdod = ($child->getDeathDate()->minJD()+$child->getDeathDate()->maxJD())/2; // Child's Date of Death (Julian) $chBLD = ($chfulln.", ".$chdob.", ".$chdod); array_push($chBLDarray, $chBLD); } } //-- Parents Husband ------------------- $styleadd = ""; if (isset($people["husb"])) { //-- Parents Husbands Parents -------------------------------------- $gparent=Person::getInstance($people["husb"]->getXref()); $fams = $gparent->getChildFamilies(); foreach($fams as $famid=>$family) { if (!is_null($family)) { $phusb = $family->getHusband($gparent); $pwife = $family->getWife($gparent); } if ($phusb) { $HusbFBP = $phusb->getBirthPlace(); } if ($pwife) { $HusbMBP = $pwife->getBirthPlace(); } } //-- Parents Husbands Details -------------------------------------- $married = GedcomDate::Compare($censdate, $marrdate); $nam = $people["husb"]->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; if (isset($nam[1])) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$nam[1]['surname']; $marn = $nam[1]['surname']; } $menu = new Menu($people["husb"]->getLabel()."\n"); $slabel = print_pedigree_person_nav2($people["husb"]->getXref(), 2, !$this->isPrintPreview(), 0, $personcount++, $people["husb"]->getLabel(), $censdate); $slabel .= $parentlinks; $submenu = new Menu($slabel); $menu->addSubMenu($submenu); ?> getXref()); $fams = $gparent->getChildFamilies(); foreach($fams as $famid=>$family) { if (!is_null($family)) { $phusb = $family->getHusband($gparent); $pwife = $family->getWife($gparent); } if ($phusb) { $WifeFBP = $phusb->getBirthPlace(); } if ($pwife) { $WifeMBP = $pwife->getBirthPlace(); } } //-- Wifes Details -------------------------------------- $married = GedcomDate::Compare($censdate, $marrdate); $nam = $people["wife"]->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; // Get wifes married name if available if (isset($people["husb"])) { $husbnams = $people["husb"]->getAllNames(); if ($husbnams[0]['surname']=="@N.N." || $husbnams[0]['surname']=="") { // Husband or his name is not known } else { $husbnam = $people["husb"]->getAllNames(); } } if (isset($nam[1]) && isset($husbnam)) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$husbnam[0]['surname']; }else{ $fulmn = $fulln; } $menu = new Menu($people["wife"]->getLabel()."\n"); $slabel = print_pedigree_person_nav2($people["wife"]->getXref(), 2, !$this->isPrintPreview(), 0, $personcount++, $people["wife"]->getLabel(), $censyear); $slabel .= $parentlinks; $submenu = new Menu($slabel); $menu->addSubMenu($submenu); ?> getMarriageDate(); foreach($people["children"] as $key=>$child) { // Get Child's Children's Name DOB DOD ---- $chBLDarray=Array(); foreach ($child->getSpouseFamilies() as $childfamily) { $chchildren = $childfamily->getChildren(); foreach ($chchildren as $key=>$chchild) { $chnam = $chchild->getAllNames(); $chfulln = rtrim($chnam[0]['givn'],'*')." ".$chnam[0]['surname']; $chfulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = addslashes($chfulln); // Child's Full Name// Child's Full Name $chdob = ($chchild->getBirthDate()->minJD()+$chchild->getBirthDate()->maxJD())/2; // Child's Date of Birth (Julian) $chdod = ($chchild->getDeathDate()->minJD()+$chchild->getDeathDate()->maxJD())/2; // Child's Date of Death (Julian) $chBLD = ($chfulln.", ".$chdob.", ".$chdod); array_push($chBLDarray, $chBLD); } } // Get child's marriage status ---- $married=""; $marrdate=""; foreach ($child->getSpouseFamilies() as $childfamily) { $marrdate=$childfamily->getMarriageDate(); $married = GedcomDate::Compare($censdate, $marrdate); } $nam = $child->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; if (isset($nam[1])) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$nam[1]['surname']; $marn = $nam[1]['surname']; } $menu = new Menu($child->getLabel()."\n"); $slabel = print_pedigree_person_nav2($child->getXref(), 2, !$this->isPrintPreview(), 0, $personcount++, $child->getLabel(), $censyear); $slabel .= $spouselinks; $submenu = new Menu($slabel); $menu->addSubMenu($submenu); if ($child->getXref()==$pid) { //Only print Head of Family in Immediate Family Block } else { ?> getBirthDate(false); } } //-- Step families --------------------------------------------------------- //-- Build step families --------------------------------------------------- foreach($this->indi->getStepFamilies() as $famid=>$family) { $label = $this->indi->getStepFamilyLabel($family); $people = $this->buildFamilyList($family, "step"); if ($people){ echo ""; } $marrdate = $family->getMarriageDate(); //-- Get Children's Name, DOB, DOD -------------------------- if (isset($people["children"])) { $chBLDarray = Array(); foreach ($people["children"] as $key=>$child) { $chnam = $child->getAllNames(); $chfulln = rtrim($chnam[0]['givn'],'*')." ".$chnam[0]['surname']; $chfulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = addslashes($chfulln); // Child's Full Name $chdob = ($child->getBirthDate()->minJD()+$child->getBirthDate()->maxJD())/2; // Child's Date of Birth (Julian) $chdod = ($child->getDeathDate()->minJD()+$child->getDeathDate()->maxJD())/2; // Child's Date of Death (Julian) $chBLD = ($chfulln.", ".$chdob.", ".$chdod); array_push($chBLDarray, $chBLD); } } // Step Husband ----------------------------- $styleadd = ""; $elderdate = ""; if (isset($people["husb"])) { //-- Step Husbands Parent Family -------------------------------------- $gparent=Person::getInstance($people["husb"]->getXref()); $fams = $gparent->getChildFamilies(); foreach($fams as $famid=>$family) { if (!is_null($family)) { $phusb = $family->getHusband($gparent); $pwife = $family->getWife($gparent); } if ($phusb) { $HusbFBP = $phusb->getBirthPlace(); } if ($pwife) { $HusbMBP = $pwife->getBirthPlace(); } } //-- Step Husbands Details -------------------------------------- $married = GedcomDate::Compare($censdate, $marrdate); $nam = $people["husb"]->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; if (isset($nam[1])) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$nam[1]['surname']; $marn = $nam[1]['surname']; } $menu = new Menu(); if ($people["husb"]->getLabel() == ".") { $menu->addLabel(i18n::translate('Step-Father')."\n"); }else{ $menu->addLabel($people["husb"]->getLabel()."\n"); } $slabel = print_pedigree_person_nav2($people["husb"]->getXref(), 2, !$this->isPrintPreview(), 0, $personcount++, $people["husb"]->getLabel(), $censyear); $slabel .= $parentlinks; $submenu = new Menu($slabel); $menu->addSubMenu($submenu); if (PrintReady($people["husb"]->getDeathYear()) == 0) { $DeathYr = ""; }else{ $DeathYr = PrintReady($people["husb"]->getDeathYear()); } if (PrintReady($people["husb"]->getBirthYear()) == 0) { $BirthYr = ""; }else{ $BirthYr = PrintReady($people["husb"]->getBirthYear()); } ?> getBirthDate(false); } // Step Wife ------------------- $styleadd = ""; if (isset($people["wife"])) { //-- Step Wifes Parent Family -------------------------------------- $gparent=Person::getInstance($people["wife"]->getXref()); $fams = $gparent->getChildFamilies(); foreach($fams as $famid=>$family) { if (!is_null($family)) { $phusb = $family->getHusband($gparent); $pwife = $family->getWife($gparent); } if ($phusb) { $WifeFBP = $phusb->getBirthPlace(); } if ($pwife) { $WifeMBP = $pwife->getBirthPlace(); } } //-- Step Wifes Details -------------------------------------- $married = GedcomDate::Compare($censdate, $marrdate); $nam = $people["wife"]->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; // Get wifes married name if available if (isset($people["husb"])){ $husbnams = $people["husb"]->getAllNames(); if ($husbnams[0]['surname']=="@N.N." || $husbnams[0]['surname']=="") { // Husband or his name is not known } else { $husbnam = $people["husb"]->getAllNames(); } } if (isset($nam[1]) && isset($husbnam)) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$husbnam[0]['surname']; }else{ $fulmn = $fulln; } $menu = new Menu(); if ($people["wife"]->getLabel() == ".") { $menu->addLabel(i18n::translate('Step-Mother')."\n"); }else{ $menu->addLabel($people["wife"]->getLabel()."\n"); } $slabel = print_pedigree_person_nav2($people["wife"]->getXref(), 2, !$this->isPrintPreview(), 0, $personcount++, $people["wife"]->getLabel(), $censyear); $slabel .= $parentlinks; $submenu = new Menu($slabel); $menu->addSubMenu($submenu); if (PrintReady($people["wife"]->getDeathYear()) == 0) { $DeathYr = ""; }else{ $DeathYr = PrintReady($people["wife"]->getDeathYear()); } if (PrintReady($people["wife"]->getBirthYear()) == 0) { $BirthYr = ""; }else{ $BirthYr = PrintReady($people["wife"]->getBirthYear()); } ?> getMarriageDate(); foreach($people["children"] as $key=>$child) { // Get Child's Children $chBLDarray=Array(); foreach ($child->getSpouseFamilies() as $childfamily) { $chchildren = $childfamily->getChildren(); foreach ($chchildren as $key=>$chchild) { $chnam = $chchild->getAllNames(); $chfulln = rtrim($chnam[0]['givn'],'*')." ".$chnam[0]['surname']; $chfulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = addslashes($chfulln); // Child's Full Name $chdob = ($chchild->getBirthDate()->minJD()+$chchild->getBirthDate()->maxJD())/2; // Child's Date of Birth (Julian) $chdod = ($chchild->getDeathDate()->minJD()+$chchild->getDeathDate()->maxJD())/2; // Child's Date of Death (Julian) $chBLD = ($chfulln.", ".$chdob.", ".$chdod); array_push($chBLDarray, $chBLD); } } $nam = $child->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; if (isset($nam[1])) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$nam[1]['surname']; $marn = $nam[1]['surname']; } $menu = new Menu($child->getLabel()."\n"); $slabel = print_pedigree_person_nav2($child->getXref(), 2, !$this->isPrintPreview(), 0, $personcount++, $child->getLabel(), $censyear); $slabel .= $spouselinks; $submenu = new Menu($slabel); $menu->addSubMenu($submenu); if (PrintReady($child->getDeathYear()) == 0) { $DeathYr = ""; }else{ $DeathYr = PrintReady($child->getDeathYear()); } if (PrintReady($child->getBirthYear()) == 0) { $BirthYr = ""; }else{ $BirthYr = PrintReady($child->getBirthYear()); } ?> getBirthDate(false); } } } print ""; //-- Build Spouse Family --------------------------------------------------- $families = $this->indi->getSpouseFamilies(); //$personcount = 0; foreach($families as $famid=>$family) { $people = $this->buildFamilyList($family, "spouse"); if ($this->indi->equals($people["husb"])) { $spousetag = 'WIFE'; }else{ $spousetag = 'HUSB'; } $marrdate = $family->getMarriageDate(); //-- Get Children's Name, DOB, DOD -------------------------- if (isset($people["children"])) { $chBLDarray = Array(); foreach ($people["children"] as $key=>$child) { $chnam = $child->getAllNames(); $chfulln = rtrim($chnam[0]['givn'],'*')." ".$chnam[0]['surname']; $chfulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = addslashes($chfulln); // Child's Full Name $chdob = ($child->getBirthDate()->minJD()+$child->getBirthDate()->maxJD())/2; // Child's Date of Birth (Julian) $chdod = ($child->getDeathDate()->minJD()+$child->getDeathDate()->maxJD())/2; // Child's Date of Death (Julian) $chBLD = ($chfulln.", ".$chdob.", ".$chdod); array_push($chBLDarray, $chBLD); } } //-- Spouse Husband --------------------------------------------------- if ( isset($people["husb"])) { //-- Spouse Husbands Parents -------------------------------------- $gparent=Person::getInstance($people["husb"]->getXref()); $fams = $gparent->getChildFamilies(); foreach($fams as $famid=>$family) { if (!is_null($family)) { $phusb = $family->getHusband($gparent); $pwife = $family->getWife($gparent); } if ($phusb) { $HusbFBP = $phusb->getBirthPlace(); } if ($pwife) { $HusbMBP = $pwife->getBirthPlace(); } } //-- Spouse Husbands Details -------------------------------------- $married = GedcomDate::Compare($censdate, $marrdate); $nam = $people["husb"]->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; if (isset($nam[1])) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$nam[1]['surname']; $marn = $nam[1]['surname']; } $menu = new Menu($people["husb"]->getLabel()."\n"); $slabel = print_pedigree_person_nav2($people["husb"]->getXref(), 2, !$this->isPrintPreview(), 0, $personcount++, $people["husb"]->getLabel(), $censyear); $slabel .= $parentlinks; $submenu = new Menu($slabel); $menu->addSubMenu($submenu); if (PrintReady($people["husb"]->getDeathYear()) == 0) { $DeathYr = ""; }else{ $DeathYr = PrintReady($people["husb"]->getDeathYear()); } if (PrintReady($people["husb"]->getBirthYear()) == 0) { $BirthYr = ""; }else{ $BirthYr = PrintReady($people["husb"]->getBirthYear()); } ?> getXref()); $fams = $gparent->getChildFamilies(); foreach($fams as $famid=>$family) { if (!is_null($family)) { $husb = $family->getHusband($gparent); $wife = $family->getWife($gparent); } if ($husb) { $WifeFBP = $husb->getBirthPlace(); } if ($wife) { $WifeMBP = $wife->getBirthPlace(); } } //-- Spouse Wifes Details -------------------------------------- $married = GedcomDate::Compare($censdate, $marrdate); $nam = $people["wife"]->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; //$fulln = str_replace('"', '\"', $fulln); $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; // Get wifes married name if available if (isset($people["husb"])){ $husbnams = $people["husb"]->getAllNames(); if ($husbnams[0]['surname']=="@N.N." || $husbnams[0]['surname']=="") { // Husband or his name is not known } else { $husbnam = $people["husb"]->getAllNames(); } } if (isset($nam[1]) && isset($husbnam)) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$husbnam[0]['surname']; //$fulmn = str_replace('"', '\"', $fulmn); }else{ $fulmn = $fulln; //$fulmn = str_replace('"', '\"', $fulmn); } $menu = new Menu($people["wife"]->getLabel()."\n"); $slabel = print_pedigree_person_nav2($people["wife"]->getXref(), 2, !$this->isPrintPreview(), 0, $personcount++, $people["wife"]->getLabel(), $censyear); $slabel .= $parentlinks; $submenu = new Menu($slabel); $menu->addSubMenu($submenu); if (PrintReady($people["wife"]->getDeathYear()) == 0) { $DeathYr = ""; }else{ $DeathYr = PrintReady($people["wife"]->getDeathYear()); } if (PrintReady($people["wife"]->getBirthYear()) == 0) { $BirthYr = ""; }else{ $BirthYr = PrintReady($people["wife"]->getBirthYear()); } ?> $child) { // Get Spouse child's marriage status $married=""; $marrdate=""; foreach ($child->getSpouseFamilies() as $childfamily) { $marrdate=$childfamily->getMarriageDate(); $married = GedcomDate::Compare($censdate, $marrdate); } // Get Child's Children $chBLDarray=Array(); foreach ($child->getSpouseFamilies() as $childfamily) { $chchildren = $childfamily->getChildren(); foreach ($chchildren as $key=>$chchild) { $chnam = $chchild->getAllNames(); $chfulln = rtrim($chnam[0]['givn'],'*')." ".$chnam[0]['surname']; $chfulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = addslashes($chfulln); // Child's Full Name// Child's Full Name $chdob = ($chchild->getBirthDate()->minJD()+$chchild->getBirthDate()->maxJD())/2; // Child's Date of Birth (Julian) $chdod = ($chchild->getDeathDate()->minJD()+$chchild->getDeathDate()->maxJD())/2; // Child's Date of Death (Julian) $chBLD = ($chfulln.", ".$chdob.", ".$chdod); array_push($chBLDarray, $chBLD); } } // Get Spouse child's details $nam = $child->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; if (isset($nam[1])) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$nam[1]['surname']; $marn = $nam[1]['surname']; }else{ $fulmn = $fulln; $marn = $surn; } $menu = new Menu($child->getLabel()."\n"); $slabel = print_pedigree_person_nav2($child->getXref(), 2, !$this->isPrintPreview(), 0, $personcount++, $child->getLabel(), $censyear); $slabel .= $spouselinks; $submenu = new Menu($slabel); $menu->addSubmenu($submenu); ?> "; } ?> "; $headImg2 = ""; } else { $headImg = ""; $headImg2 = ""; } global $tempStringHead; $tempStringHead = PrintReady($headImg); echo i18n::translate('Click %s to choose person as Head of family.', $tempStringHead); ?> getLabel(); $menu->printMenu(); ?> getXref()."&gedcom={$GEDCOM}")."\">"; echo $headImg2; print ""; ?> canDisplayDetails()) ) { ?> ", "", "getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); echo PrintReady($chBLDarray); // Array of Children (name, birthdate, deathdate) } else { echo PrintReady(''); } ?>");'> getFullName()); // Full Name (Link) ?> getLabel(); $menu->printMenu(); ?> getXref()."&gedcom={$GEDCOM}")."\">"; print $headImg2; print ""; ?> canDisplayDetails()) ) { ?> ", "", "getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); echo PrintReady($chBLDarray); // Array of Children (name, birthdate, deathdate) } else { echo PrintReady(''); } ?>");'> getFullName()); // Full Name (Link) ?> getXref()==$pid) { print $child->getLabel(); }else{ $menu->printMenu(); } ?> getXref()."&gedcom={$GEDCOM}")."\">"; print $headImg2; print ""; ?> canDisplayDetails()) ) { ?> ", "getBirthPlace()); // mbirthpl = Child Mother's Place of Birth } else { print PrintReady('UNK, UNK, UNK, UNK'); // mbirthpl = Child Mother's Place of Birth Not known } ?>", "getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); echo PrintReady($chBLDarray); // Array of Children (name, birthdate, deathdate) } else { echo PrintReady(''); } ?>");'> getFullName()); // Full Name (Link) ?> printMenu(); ?> getXref()."&gedcom={$GEDCOM}")."\">"; print $headImg2; print ""; ?> canDisplayDetails()) ) { ?> getLabel()); // label = Relationship } ?>", "getSex()); // gend = Gender ?>", "=0){ echo "M"; // cond = Condition (Married) }else{ echo "S"; // cond = Condition (Single) } ?>", "minJD()+$marrdate->maxJD())/2; // dom = Date of Marriage (Julian) } ?>", "getBirthDate()->minJD()+$people["husb"]->getBirthDate()->maxJD())/2; // dob = Date of Birth (Julian) ?>", "getbirthyear()); // age = Census Date minus YOB ?>", "getDeathDate()->minJD()+$people["husb"]->getDeathDate()->maxJD())/2; // dod = Date of Death (Julian) ?>", "", "getBirthPlace()); // birthpl = Step Husband Place of Birth ?>", "", "", "getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); echo PrintReady($chBLDarray); // Array of Children (name, birthdate, deathdate) } else { echo PrintReady(''); } ?>");'> getFullName()); // Full Name (Link) ?> printMenu(); ?> getXref()."&gedcom={$GEDCOM}")."\">"; print $headImg2; print ""; ?> canDisplayDetails()) ) { ?> getLabel()); // label = Relationship } ?>", "getSex()); // gend = Gender ?>", "=0 && isset($nam[1])){ echo "M"; // cond = Condition (Married) }else{ echo "S"; // cond = Condition (Single) } ?>", "minJD()+$marrdate->maxJD())/2; // dom = Date of Marriage (Julian) } ?>", "getBirthDate()->minJD()+$people["wife"]->getBirthDate()->maxJD())/2; // dob = Date of Birth (Julian) ?>", "getbirthyear()); // age = Census Date minus YOB ?>", "getDeathDate()->minJD()+$people["wife"]->getDeathDate()->maxJD())/2; // dod = Date of Death (Julian) ?>", "", "getBirthPlace()); // birthpl = Step Wife Place of Birth ?>", "", "", "getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); echo PrintReady($chBLDarray); // Array of Children (name, birthdate, deathdate) } else { echo PrintReady(''); } ?>");'> getFullName()); // Full Name (Link) ?> printMenu(); ?> getXref()."&gedcom={$GEDCOM}")."\">"; print $headImg2; print ""; ?> canDisplayDetails()) ) { ?> ", "getBirthPlace()); // mbirthpl = Child Mother's Place of Birth } else { print PrintReady('UNK, UNK, UNK, UNK'); // mbirthpl = Child Mother's Place of Birth Not known } ?>", "getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); echo PrintReady($chBLDarray); // Array of Children (name, birthdate, deathdate) } else { echo PrintReady(''); } ?>");'> getFullName()); // Full Name (Link) ?> getXref()==$pid) { print " " .($people["husb"]->getLabel()); }else{ $menu->printMenu(); } ?> getXref()."&gedcom={$GEDCOM}")."\">"; print $headImg2; print ""; ?> canDisplayDetails()) ) { ?> ", "", "getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); echo PrintReady($chBLDarray); // Array of Children (name, birthdate, deathdate) } else { echo PrintReady(''); } ?>");'> getFullName()); // Full Name (Link) ?> getXref()==$pid) { print " " .($people["wife"]->getLabel()); }else{ $menu->printMenu(); } ?> getXref()."&gedcom={$GEDCOM}")."\">"; print $headImg2; print ""; ?> canDisplayDetails()) ) { ?> ", "", "getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); echo PrintReady($chBLDarray); // Array of Children (name, birthdate, deathdate) } else { echo PrintReady(''); } ?>");'> getFullName()); // Full Name (Link) ?> \n"; $menu->printMenu(); if ($WT_MENUS_AS_LISTS) echo "\n"; ?> getXref()."&gedcom={$GEDCOM}")."\">"; print $headImg2; print ""; ?> canDisplayDetails()) ) { ?> ", "getBirthPlace()); // mbirthpl = Child Mother's Place of Birth } else { print PrintReady('UNK, UNK, UNK, UNK'); // mbirthpl = Child Mother's Place of Birth Not known } ?>", "getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); echo PrintReady($chBLDarray); // Array of Children (name, birthdate, deathdate) } else { echo PrintReady(''); } ?>");'> getFullName()); // Full Name (Link) ?>

'','F'=>'F', 'U'=>'NN'); $isF=$tmp[$person->getSex()]; $spouselinks = ""; $parentlinks = ""; $step_parentlinks = ""; $disp=$person->canDisplayDetails(); if ($person->canDisplayName()) { if ($show_famlink && (empty($SEARCH_SPIDER))) { if ($LINK_ICONS!="disabled") { //-- draw a box for the family popup if ($TEXT_DIRECTION=="rtl") { $spouselinks .= "\n\t\t\t

"; $spouselinks .= "" . i18n::translate('Family') . " (" .$person->getFullName(). ") "; $parentlinks .= "\n\t\t\t "; $parentlinks .= "" . i18n::translate('Parents') . " (" .$person->getFullName(). ") "; $step_parentlinks .= "\n\t\t\t "; $step_parentlinks .= "" . i18n::translate('Parents') . " (" .$person->getFullName(). ") "; }else{ $spouselinks .= "\n\t\t\t "; $spouselinks .= "" . i18n::translate('Family') . " (" .$person->getFullName(). ") "; $parentlinks .= "\n\t\t\t "; $parentlinks .= "" . i18n::translate('Parents') . " (" .$person->getFullName(). ") "; $step_parentlinks .= "\n\t\t\t "; $step_parentlinks .= "" . i18n::translate('Parents') . " (" .$person->getFullName(). ") "; } $persons = ""; $person_parent = ""; $person_step = ""; //-- Parent families -------------------------------------- $fams = $person->getChildFamilies(); foreach($fams as $famid=>$family) { $marrdate = $family->getMarriageDate(); $married = GedcomDate::Compare($censdate, $marrdate); if (!is_null($family)) { $husb = $family->getHusband($person); $wife = $family->getWife($person); $children = $family->getChildren(); $num = count($children); $marrdate = $family->getMarriageDate(); //-- Get Parent Children's Name, DOB, DOD -------------------------- if (isset($children)) { $chBLDarray = Array(); foreach ($children as $key=>$child) { $chnam = $child->getAllNames(); $chfulln = rtrim($chnam[0]['givn'],'*')." ".$chnam[0]['surname']; $chfulln = str_replace('"', "", $chfulln); // Must remove quotes completely here $chfulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $chfulln); // Child's Full Name $chdob = ($child->getBirthDate()->minJD()+$child->getBirthDate()->maxJD())/2; // Child's Date of Birth (Julian) $chdod = ($child->getDeathDate()->minJD()+$child->getDeathDate()->maxJD())/2; // Child's Date of Death (Julian) $chBLD = ($chfulln.", ".$chdob.", ".$chdod); array_push($chBLDarray, $chBLD); } } //-- Parent Husband ------------------------------ if ($husb || $num>0) { if ($TEXT_DIRECTION=="ltr") { $title = i18n::translate('Family book chart').": ".$famid; }else{ $title = $famid." :".i18n::translate('Family book chart'); } if ($husb) { //-- Parent Husbands Parents ---------------------- $gparent=Person::getInstance($husb->getXref()); $parfams = $gparent->getChildFamilies(); foreach($parfams as $famid=>$pfamily) { if (!is_null($pfamily)) { $phusb = $pfamily->getHusband($gparent); $pwife = $pfamily->getWife($gparent); } if ($phusb) { $pHusbFBP = $phusb->getBirthPlace(); } if ($pwife) { $pHusbMBP = $pwife->getBirthPlace(); } } //-- Parent Husbands Details ---------------------- $person_parent="Yes"; if ($TEXT_DIRECTION=="ltr") { $title = i18n::translate('Individual information').": ".$husb->getXref(); }else{ $title = $husb->getXref()." :".i18n::translate('Individual information'); } $tmp=$husb->getXref(); if ($husb->canDisplayName()) { $nam = $husb->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surn']; if (isset($nam[1]) ) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$nam[1]['surn']; $marn = $nam[1]['surn']; } $parentlinks .= "getXref())."',"; // pid = PID $parentlinks .= "'".addslashes(strip_tags($fulln))."',"; // nam = Name if (isset($nam[1])){ $parentlinks .= "'".addslashes(strip_tags($fulmn))."',"; // mnam = Full Married Name } else { $parentlinks .= "'".addslashes(strip_tags($fulln))."',"; // mnam = Full Name } if ($currpid=="Wife" || $currpid=="Husband") { $parentlinks .= "'Father in Law',"; // label = 1st Gen Male Relationship }else{ $parentlinks .= "'Grand-Father',"; // label = 2st Gen Male Relationship } $parentlinks .= "'".PrintReady($husb->getSex())."',"; // sex = Gender $parentlinks .= "''".","; // cond = Condition (Married etc) if ($marrdate) { $parentlinks .= "'".(($marrdate->minJD()+$marrdate->maxJD())/2)."',"; // dom = Date of Marriage (Julian) } $parentlinks .= "'".(($husb->getBirthDate()->minJD()+$husb->getBirthDate()->maxJD())/2)."',"; // dob = Date of Birth if ($husb->getbirthyear()>=1) { $parentlinks .= "'".PrintReady($censyear-$husb->getbirthyear())."',"; // age = Census Year - Year of Birth } else { $parentlinks .= "''".","; // age = Undefined } $parentlinks .= "'".(($husb->getDeathDate()->minJD()+$husb->getDeathDate()->maxJD())/2)."',"; // dod = Date of Death $parentlinks .= "''".","; // occu = Occupation $parentlinks .= "'".PrintReady($husb->getBirthPlace())."'".","; // birthpl = Individuals Birthplace if (isset($pHusbFBP)) { $parentlinks .= "'".$pHusbFBP."'".","; // fbirthpl = Fathers Birthplace } else { $parentlinks .= "'UNK, UNK, UNK, UNK'".","; // fbirthpl = Fathers Birthplace } if (isset($pHusbMBP)) { $parentlinks .= "'".$pHusbMBP."'".","; // mbirthpl = Mothers Birthplace } else { $parentlinks .= "'UNK, UNK, UNK, UNK'".","; // mbirthpl = Mothers Birthplace } if (isset($chBLDarray) && $husb->getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); $parentlinks .= "'".$chBLDarray."'"; // Array of Children (name, birthdate, deathdate) } else { $parentlinks .= "''"; } $parentlinks .= ");\">"; $parentlinks .= PrintReady($husb->getFullName()); // Full Name (Link) $parentlinks .= ""; }else{ $parentlinks .= i18n::translate('Private'); } $parentlinks .= "\n"; $natdad = "yes"; } } //-- Parent Wife ------------------------------ if ($wife || $num>0) { if ($TEXT_DIRECTION=="ltr") { $title = i18n::translate('Family book chart').": ".$famid; }else{ $title = $famid." :".i18n::translate('Family book chart'); } if ($wife) { //-- Parent Wifes Parents ---------------------- $gparent=Person::getInstance($wife->getXref()); $parfams = $gparent->getChildFamilies(); foreach($parfams as $famid=>$pfamily) { if (!is_null($pfamily)) { $pwhusb = $pfamily->getHusband($gparent); $pwwife = $pfamily->getWife($gparent); } if ($pwhusb) { $pWifeFBP = $pwhusb->getBirthPlace(); } if ($pwwife) { $pWifeMBP = $pwwife->getBirthPlace(); } } //-- Parent Wifes Details ---------------------- $person_parent="Yes"; if ($TEXT_DIRECTION=="ltr") { $title = i18n::translate('Individual information').": ".$wife->getXref(); } else { $title = $wife->getXref()." :".i18n::translate('Individual information'); } $tmp=$wife->getXref(); if ($wife->canDisplayName()) { $married = GedcomDate::Compare($censdate, $marrdate); $nam = $wife->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; // Get wifes married name if available if (isset($husb)){ $husbnams = $husb->getAllNames(); if ($husbnams[0]['surname']=="@N.N." || $husbnams[0]['surname']=="") { // Husband or his name is not known } else { $husbnam = $husb->getAllNames(); } } if (isset($nam[1]) && isset($husbnam)) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$husbnam[0]['surname']; }else{ $fulmn = $fulln; } $parentlinks .= "getXref())."',"; // pid = PID $parentlinks .= "'".addslashes(strip_tags($fulln))."',"; // nam = Name if (isset($nam[1])){ $parentlinks .= "'".addslashes(strip_tags($fulmn))."',"; // mnam = Full Married Name } else { $parentlinks .= "'".addslashes(strip_tags($fulln))."',"; // mnam = Full Name } if ($currpid=="Wife" || $currpid=="Husband") { $parentlinks .= "'Mother in Law',"; // label = 1st Gen Female Relationship } else { $parentlinks .= "'Grand-Mother',"; // label = 2st Gen Female Relationship } $parentlinks .= "'".PrintReady($wife->getSex())."',"; // sex = Gender $parentlinks .= "''".","; // cond = Condition (Married etc) if ($marrdate) { $parentlinks .= "'".(($marrdate->minJD()+$marrdate->maxJD())/2)."',"; // dom = Date of Marriage (Julian) } $parentlinks .= "'".(($wife->getBirthDate()->minJD()+$wife->getBirthDate()->maxJD())/2)."',"; // dob = Date of Birth if ($wife->getbirthyear()>=1) { $parentlinks .= "'".PrintReady($censyear-$wife->getbirthyear())."',"; // age = Census Year - Year of Birth } else { $parentlinks .= "''".","; // age = Undefined } $parentlinks .= "'".(($wife->getDeathDate()->minJD()+$wife->getDeathDate()->maxJD())/2)."',"; // dod = Date of Death $parentlinks .= "''".","; // occu = Occupation $parentlinks .= "'".PrintReady($wife->getBirthPlace())."'".","; // birthpl = Individuals Birthplace if (isset($pWifeFBP)) { $parentlinks .= "'".$pWifeFBP."'".","; // fbirthpl = Fathers Birthplace } else { $parentlinks .= "'UNK, UNK, UNK, UNK'".","; // fbirthpl = Fathers Birthplace Not Known } if (isset($pWifeMBP)) { $parentlinks .= "'".$pWifeMBP."'".","; // mbirthpl = Mothers Birthplace } else { $parentlinks .= "'UNK, UNK, UNK, UNK'".","; // mbirthpl = Mothers Birthplace Not Known } if (isset($chBLDarray) && $wife->getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); $parentlinks .= "'".$chBLDarray."'"; // Array of Children (name, birthdate, deathdate) } else { $parentlinks .= "''"; } $parentlinks .= ");\">"; $parentlinks .= PrintReady($wife->getFullName()); // Full Name (Link) $parentlinks .= ""; }else{ $parentlinks .= i18n::translate('Private'); } $parentlinks .= "\n"; $natmom = "yes"; } } } } //-- Step families ----------------------------------------- $fams = $person->getStepFamilies(); foreach($fams as $famid=>$family) { $marrdate = $family->getMarriageDate(); $married = GedcomDate::Compare($censdate, $marrdate); if (!is_null($family)) { $husb = $family->getHusband($person); $wife = $family->getWife($person); $children = $family->getChildren(); $num = count($children); $marrdate = $family->getMarriageDate(); //-- Get StepParent's Children's Name, DOB, DOD -------------------------- if (isset($children)) { $chBLDarray = Array(); foreach ($children as $key=>$child) { $chnam = $child->getAllNames(); $chfulln = rtrim($chnam[0]['givn'],'*')." ".$chnam[0]['surname']; $chfulln = str_replace('"', "", $chfulln); // Must remove quotes completely here $chfulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $chfulln); // Child's Full Name $chdob = ($child->getBirthDate()->minJD()+$child->getBirthDate()->maxJD())/2; // Child's Date of Birth (Julian) $chdod = ($child->getDeathDate()->minJD()+$child->getDeathDate()->maxJD())/2; // Child's Date of Death (Julian) $chBLD = ($chfulln.", ".$chdob.", ".$chdod); array_push($chBLDarray, $chBLD); } } //-- Step Husband -------------------------------------- if ($natdad == "yes") { }else{ if ( ($husb || $num>0) && $husb->getLabel() != "." ) { if ($TEXT_DIRECTION=="ltr") { $title = i18n::translate('Family book chart').": ".$famid; }else{ $title = $famid." :".i18n::translate('Family book chart'); } if ($husb) { //-- Step Husbands Parents ----------------------------- $gparent=Person::getInstance($husb->getXref()); $parfams = $gparent->getChildFamilies(); foreach($parfams as $famid=>$pfamily) { if (!is_null($pfamily)) { $phusb = $pfamily->getHusband($gparent); $pwife = $pfamily->getWife($gparent); } if ($phusb) { $pHusbFBP = $phusb->getBirthPlace(); } if ($pwife) { $pHusbMBP = $pwife->getBirthPlace(); } } //-- Step Husband Details ------------------------------ $person_step="Yes"; if ($TEXT_DIRECTION=="ltr") { $title = i18n::translate('Individual information').": ".$husb->getXref(); }else{ $title = $husb->getXref()." :".i18n::translate('Individual information'); } $tmp=$husb->getXref(); if ($husb->canDisplayName()) { $nam = $husb->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); //$fulln = strip_tags($husb->getFullName()); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; if (isset($nam[1])) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$nam[1]['surname']; $marn = $nam[1]['surname']; } $parentlinks .= "getXref())."',"; // pid = PID $parentlinks .= "'".addslashes(strip_tags($fulln))."',"; // nam = Name if (isset($nam[1])){ $parentlinks .= "'".addslashes(strip_tags($fulmn))."',"; // mnam = Full Married Name } else { $parentlinks .= "'".addslashes(strip_tags($fulln))."',"; // mnam = Full Name } if ($currpid=="Wife" || $currpid=="Husband") { $parentlinks .= "'Step Father-in-Law',"; // label = 1st Gen Male Relationship }else{ $parentlinks .= "'Step Grand-Father',"; // label = 2st Gen Male Relationship } $parentlinks .= "'".PrintReady($husb->getSex())."',"; // sex = Gender $parentlinks .= "''".","; // cond = Condition (Married etc) if ($marrdate) { $parentlinks .= "'".(($marrdate->minJD()+$marrdate->maxJD())/2)."',"; // dom = Date of Marriage (Julian) } $parentlinks .= "'".(($husb->getBirthDate()->minJD()+$husb->getBirthDate()->maxJD())/2)."',"; // dob = Date of Birth if ($husb->getbirthyear()>=1) { $parentlinks .= "'".PrintReady($censyear-$husb->getbirthyear())."',"; // age = Census Year - Year of Birth } else { $parentlinks .= "''".","; // age = Undefined } $parentlinks .= "'".(($husb->getDeathDate()->minJD()+$husb->getDeathDate()->maxJD())/2)."',"; // dod = Date of Death $parentlinks .= "''".","; // occu = Occupation $parentlinks .= "'".PrintReady($husb->getBirthPlace())."'".","; // birthpl = Individuals Birthplace if (isset($pHusbFBP)) { $parentlinks .= "'".$pHusbFBP."'".","; // fbirthpl = Fathers Birthplace } else { $parentlinks .= "'UNK, UNK, UNK, UNK'".","; // fbirthpl = Fathers Birthplace } if (isset($pHusbMBP)) { $parentlinks .= "'".$pHusbMBP."'".","; // mbirthpl = Mothers Birthplace } else { $parentlinks .= "'UNK, UNK, UNK, UNK'".","; // mbirthpl = Mothers Birthplace } if (isset($chBLDarray) && $husb->getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); $parentlinks .= "'".$chBLDarray."'"; // Array of Children (name, birthdate, deathdate) } else { $parentlinks .= "''"; } $parentlinks .= ");\">"; $parentlinks .= PrintReady($husb->getFullName()); // Full Name (Link) $parentlinks .= ""; }else{ $parentlinks .= i18n::translate('Private'); } $parentlinks .= "\n"; } } } //-- Step Wife ---------------------------------------- if ($natmom == "yes") { }else{ if ($wife || $num>0) { if ($TEXT_DIRECTION=="ltr") { $title = i18n::translate('Family book chart').": ".$famid; }else{ $title = $famid." :".i18n::translate('Family book chart'); } if ($wife) { //-- Step Wifes Parents --------------------------- $gparent=Person::getInstance($wife->getXref()); $parfams = $gparent->getChildFamilies(); foreach($parfams as $famid=>$pfamily) { if (!is_null($pfamily)) { $pwhusb = $pfamily->getHusband($gparent); $pwwife = $pfamily->getWife($gparent); } if ($pwhusb) { $pWifeFBP = $pwhusb->getBirthPlace(); } if ($pwwife) { $pWifeMBP = $pwwife->getBirthPlace(); } } //-- Step Wife Details ------------------------------ $person_step="Yes"; if ($TEXT_DIRECTION=="ltr") { $title = i18n::translate('Individual information').": ".$wife->getXref(); }else{ $title = $wife->getXref()." :".i18n::translate('Individual information'); } $tmp=$wife->getXref(); if ($wife->canDisplayName()) { $married = GedcomDate::Compare($censdate, $marrdate); $nam = $wife->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); //$fulln = strip_tags($wife->getFullName()); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; // Get wifes married name if available if (isset($husb)){ $husbnams = $husb->getAllNames(); if ($husbnams[0]['surname']=="@N.N." || $husbnams[0]['surname']=="") { // Husband or his name is not known } else { $husbnam = $husb->getAllNames(); } } if (isset($nam[1]) && isset($husbnam)) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$husbnam[0]['surname']; }else{ $fulmn = $fulln; } $parentlinks .= "getXref())."',"; // pid = PID $parentlinks .= "'".addslashes(strip_tags($fulln))."',"; // nam = Name if (isset($nam[1])){ $parentlinks .= "'".addslashes(strip_tags($fulmn))."',"; // mnam = Full Married Name } else { $parentlinks .= "'".addslashes(strip_tags($fulln))."',"; // mnam = Full Name } if ($currpid=="Wife" || $currpid=="Husband") { $parentlinks .= "'Step Mother-in-Law',"; // label = 1st Gen Female Relationship } else { $parentlinks .= "'Step Grand-Mother',"; // label = 2st Gen Female Relationship } $parentlinks .= "'".PrintReady($wife->getSex())."',"; // sex = Gender $parentlinks .= "''".","; // cond = Condition (Married etc) if ($marrdate) { $parentlinks .= "'".(($marrdate->minJD()+$marrdate->maxJD())/2)."',"; // dom = Date of Marriage (Julian) } $parentlinks .= "'".(($wife->getBirthDate()->minJD()+$wife->getBirthDate()->maxJD())/2)."',"; // dob = Date of Birth if ($wife->getbirthyear()>=1) { $parentlinks .= "'".PrintReady($censyear-$wife->getbirthyear())."',"; // age = Census Year - Year of Birth } else { $parentlinks .= "''".","; // age = Undefined } $parentlinks .= "'".(($wife->getDeathDate()->minJD()+$wife->getDeathDate()->maxJD())/2)."',"; // dod = Date of Death $parentlinks .= "''".","; // occu = Occupation $parentlinks .= "'".PrintReady($wife->getBirthPlace())."'".","; // birthpl = Individuals Birthplace if (isset($pWifeFBP)) { $parentlinks .= "'".$pWifeFBP."'".","; // fbirthpl = Fathers Birthplace } else { $parentlinks .= "'UNK, UNK, UNK, UNK'".","; // fbirthpl = Fathers Birthplace Not Known } if (isset($pWifeMBP)) { $parentlinks .= "'".$pWifeMBP."'".","; // mbirthpl = Mothers Birthplace } else { $parentlinks .= "'UNK, UNK, UNK, UNK'".","; // mbirthpl = Mothers Birthplace Not Known } if (isset($chBLDarray) && $wife->getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); $parentlinks .= "'".$chBLDarray."'"; // Array of Children (name, birthdate, deathdate) } else { $parentlinks .= "''"; } $parentlinks .= ");\">"; $parentlinks .= PrintReady($wife->getFullName()); // Full Name (Link) $parentlinks .= ""; }else{ $parentlinks .= i18n::translate('Private'); } $parentlinks .= "\n"; } } } } } // Spouse Families ------------------------------------------ $fams = $person->getSpouseFamilies(); foreach($fams as $famid=>$family) { if (!is_null($family)) { $spouse = $family->getSpouse($person); $children = $family->getChildren(); $num = count($children); $marrdate = $family->getMarriageDate(); $married = GedcomDate::Compare($censdate, $marrdate); //-- Get Spouse's Children's Name, DOB, DOD -------------------------- if (isset($children)) { $chBLDarray = Array(); foreach ($children as $key=>$child) { $chnam = $child->getAllNames(); $chfulln = rtrim($chnam[0]['givn'],'*')." ".$chnam[0]['surname']; $chfulln = str_replace('"', "", $chfulln); // Must remove quotes completely here $chfulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $chfulln); // Child's Full Name $chdob = ($child->getBirthDate()->minJD()+$child->getBirthDate()->maxJD())/2; // Child's Date of Birth (Julian) $chdod = ($child->getDeathDate()->minJD()+$child->getDeathDate()->maxJD())/2; // Child's Date of Death (Julian) $chBLD = ($chfulln.", ".$chdob.", ".$chdod); array_push($chBLDarray, $chBLD); } } //-- Spouse ----------------------------------------- if ($spouse || $num>0) { if ($TEXT_DIRECTION=="ltr") { $title = i18n::translate('Family book chart').": ".$famid; }else{ $title = $famid." :".i18n::translate('Family book chart'); } if ($spouse) { //-- Spouse Parents ----------------------------- $gparent=Person::getInstance($spouse->getXref()); $spousefams = $gparent->getChildFamilies(); foreach($spousefams as $famid=>$pfamily) { if (!is_null($pfamily)) { $phusb = $pfamily->getHusband($gparent); $pwife = $pfamily->getWife($gparent); } if ($phusb) { $pSpouseFBP = $phusb->getBirthPlace(); } if ($pwife) { $pSpouseMBP = $pwife->getBirthPlace(); } } //-- Spouse Details ----------------------------- if ($TEXT_DIRECTION=="ltr") { $title = i18n::translate('Individual information').": ".$spouse->getXref(); }else{ $title = $spouse->getXref()." :".i18n::translate('Individual information'); } $tmp=$spouse->getXref(); if ($spouse->canDisplayName()) { $married = GedcomDate::Compare($censdate, $marrdate); $nam = $spouse->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; if (isset($nam[1])) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$nam[1]['surname']; $marn = $nam[1]['surname']; } $spouselinks .= "getXref())."',"; // pid = PID $spouselinks .= "'".addslashes(strip_tags($fulln))."',"; // nam = Name if (isset($nam[1])){ $spouselinks .= "'".addslashes(strip_tags($fulmn))."',"; // mnam = Full Married Name } else { $spouselinks .= "'".addslashes(strip_tags($fulln))."',"; // mnam = Full Name } if ($currpid=="Son" || $currpid=="Daughter") { if ($spouse->getSex()=="M") { $spouselinks .= "'Son in Law',"; // label = Male Relationship }else{ $spouselinks .= "'Daughter in Law',"; // label = Female Relationship } } else { if ($spouse->getSex()=="M") { $spouselinks .= "'Brother in Law',"; // label = Male Relationship } else { $spouselinks .= "'Sister in Law',"; // label = Female Relationship } } $spouselinks .= "'".PrintReady($spouse->getSex())."',"; // sex = Gender $spouselinks .= "''".","; // cond = Condition (Married etc) if ($marrdate) { $spouselinks .= "'".(($marrdate->minJD()+$marrdate->maxJD())/2)."',"; // dom = Date of Marriage (Julian) } $spouselinks .= "'".(($spouse->getBirthDate()->minJD()+$spouse->getBirthDate()->maxJD())/2)."',"; // dob = Date of Birth if ($spouse->getbirthyear()>=1) { $spouselinks .= "'".PrintReady($censyear-$spouse->getbirthyear())."',"; // age = Census Year - Year of Birth } else { $spouselinks .= "''".","; // age = Undefined } $spouselinks .= "'".(($spouse->getDeathDate()->minJD()+$spouse->getDeathDate()->maxJD())/2)."',"; // dod = Date of Death $spouselinks .= "''".","; // occu = Occupation $spouselinks .= "'".PrintReady($spouse->getBirthPlace())."'".","; // birthpl = Individuals Birthplace if (isset($pSpouseFBP)) { $spouselinks .= "'".$pSpouseFBP."'".","; // fbirthpl = Fathers Birthplace } else { $spouselinks .= "'UNK, UNK, UNK, UNK'".","; // fbirthpl = Fathers Birthplace Not Known } if (isset($pSpouseMBP)) { $spouselinks .= "'".$pSpouseMBP."'".","; // mbirthpl = Mothers Birthplace } else { $spouselinks .= "'UNK, UNK, UNK, UNK'".","; // mbirthpl = Mothers Birthplace Not Known } if (isset($chBLDarray) && $spouse->getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); $spouselinks .= "'".$chBLDarray."'"; // Array of Children (name, birthdate, deathdate) } else { $spouselinks .= "''"; } $spouselinks .= ");\">"; $spouselinks .= PrintReady($spouse->getFullName()); // Full Name (Link) $spouselinks .= ""; }else{ $spouselinks .= i18n::translate('Private'); } $spouselinks .= "\n"; if ($spouse->getFullName() != "") { $persons = "Yes"; } } } // Children ------------------------------------- $spouselinks .= " \n"; foreach($children as $c=>$child) { $cpid = $child->getXref(); if ($child) { $persons="Yes"; //-- Childs Parents --------------------- $gparent=Person::getInstance($child->getXref()); $fams = $gparent->getChildFamilies(); $chfams = $gparent->getSpouseFamilies(); foreach($fams as $famid=>$family) { if (!is_null($family)) { $husb = $family->getHusband($gparent); $wife = $family->getWife($gparent); } if ($husb) { $ChildFBP = $husb->getBirthPlace(); } if ($wife) { $ChildMBP = $wife->getBirthPlace(); } } // Get Child's Children $chBLDarray=Array(); foreach ($child->getSpouseFamilies() as $childfamily) { $chchildren = $childfamily->getChildren(); foreach ($chchildren as $key=>$chchild) { $chnam = $chchild->getAllNames(); $chfulln = rtrim($chnam[0]['givn'],'*')." ".$chnam[0]['surname']; $chfulln = str_replace('"', "", $chfulln); // Must remove quotes completely here $chfulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $chfulln); $chfulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $chfulln); // Child's Full Name $chdob = ($chchild->getBirthDate()->minJD()+$chchild->getBirthDate()->maxJD())/2; // Child's Date of Birth (Julian) $chdod = ($chchild->getDeathDate()->minJD()+$chchild->getDeathDate()->maxJD())/2; // Child's Date of Death (Julian) $chBLD = ($chfulln.", ".$chdob.", ".$chdod); array_push($chBLDarray, $chBLD); } } // Get Childs marriage status ------------ $married=""; $marrdate=""; foreach ($child->getSpouseFamilies() as $childfamily) { $marrdate=$childfamily->getMarriageDate(); $married = GedcomDate::Compare($censdate, $marrdate); if ($childfamily->getHusband()) { $chhusbnam = $childfamily->getHusband()->getAllNames(); $ChHusbName = $chhusbnam[0]['surname']; } } // Childs Details ------------------------- $title = i18n::translate('Individual information').": ".$cpid; // $spouselinks .= "\n\t\t\t\to  "; $spouselinks .= " \n"; if ($child->canDisplayName()) { $nam = $child->getAllNames(); $fulln = rtrim($nam[0]['givn'],'*')." ".$nam[0]['surname']; $fulln = str_replace("@N.N.", "(".i18n::translate('unknown').")", $fulln); $fulln = str_replace("@P.N.", "(".i18n::translate('unknown').")", $fulln); $givn = rtrim($nam[0]['givn'],'*'); $surn = $nam[0]['surname']; if (isset($nam[1]) && isset($ChHusbName)) { $fulmn = rtrim($nam[1]['givn'],'*')." ".$ChHusbName; } $spouselinks .= "getXref())."',"; // pid = PID $spouselinks .= "'".addslashes(strip_tags($fulln))."',"; // nam = Name if (isset($nam[1])){ $spouselinks .= "'".addslashes(strip_tags($fulmn))."',"; // mnam = Full Married Name } else { $spouselinks .= "'".addslashes(strip_tags($fulln))."',"; // mnam = Full Name } if ($currpid=="Son" || $currpid=="Daughter") { if ($child->getSex()=="M") { $spouselinks .= "'Grand-Son',"; // label = Male Relationship }else{ $spouselinks .= "'Grand-Daughter',"; // label = Female Relationship } }else{ if ($child->getSex()=="M") { $spouselinks .= "'Nephew',"; // label = Male Relationship }else{ $spouselinks .= "'Niece',"; // label = Female Relationship } } $spouselinks .= "'".PrintReady($child->getSex())."',"; // sex = Gender $spouselinks .= "''".","; // cond = Condition (Married etc) if ($marrdate) { $spouselinks .= "'".(($marrdate->minJD()+$marrdate->maxJD())/2)."',"; // dom = Date of Marriage (Julian) } else { $spouselinks .= "'nm'".","; } $spouselinks .= "'".(($child->getBirthDate()->minJD()+$child->getBirthDate()->maxJD())/2)."',"; // dob = Date of Birth if ($child->getbirthyear()>=1) { $spouselinks .= "'".PrintReady($censyear-$child->getbirthyear())."',"; // age = Census Year - Year of Birth }else{ $spouselinks .= "''".","; // age = Undefined } $spouselinks .= "'".(($child->getDeathDate()->minJD()+$child->getDeathDate()->maxJD())/2)."',"; // dod = Date of Death $spouselinks .= "''".","; // occu = Occupation $spouselinks .= "'".PrintReady($child->getBirthPlace())."'".","; // birthpl = Individuals Birthplace if (isset($ChildFBP)) { $spouselinks .= "'".$ChildFBP."'".","; // fbirthpl = Fathers Birthplace } else { $spouselinks .= "'UNK, UNK, UNK, UNK'".","; // fbirthpl = Fathers Birthplace Not Known } if (isset($ChildMBP)) { $spouselinks .= "'".$ChildMBP."'".","; // mbirthpl = Mothers Birthplace } else { $spouselinks .= "'UNK, UNK, UNK, UNK'".","; // mbirthpl = Mothers Birthplace Not Known } if (isset($chBLDarray) && $child->getSex()=="F") { $chBLDarray = implode("::", $chBLDarray); $spouselinks .= "'".$chBLDarray."'"; // Array of Children (name, birthdate, deathdate) } else { $spouselinks .= "''"; } $spouselinks .= ");\">"; $spouselinks .= PrintReady($child->getFullName()); // Full Name (Link) $spouselinks .= ""; $spouselinks .= " \n"; }else{ $spouselinks .= i18n::translate('Private'); } } } $spouselinks .= " \n"; } } if ($persons != "Yes") { $spouselinks .= "(" . i18n::translate('None') . ") \n\t\t"; }else{ $spouselinks .= " \n\t\t"; } if ($person_parent != "Yes") { $parentlinks .= "(" . i18n::translate('unknown') . ") \n\t\t"; }else{ $parentlinks .= " \n\t\t"; } if ($person_step != "Yes") { $step_parentlinks .= "(" . i18n::translate('unknown') . ") \n\t\t"; }else{ $step_parentlinks .= "

\n\t\t"; } } } } } // ============================================================== ?>