/**
* print a family descendancy
*
* @param WT_Individual $person
* @param WT_Family $family
* @param int $depth the descendancy depth to show
*
* @return void
*/
function print_family_descendancy(WT_Individual $person, WT_Family $family, $depth)
{
global $WT_IMAGES, $Dindent, $personcount;
// print marriage info
echo '<li>';
echo '<img src="', $WT_IMAGES['spacer'], '" height="2" width="', $Dindent + 4, '" alt="">';
echo '<span class="details1" style="white-space:nowrap;">';
echo "<a href=\"#\" onclick=\"expand_layer('" . $family->getXref() . $personcount . "'); return false;\" class=\"top\"><i id=\"" . $family->getXref() . $personcount . "_img\" class=\"icon-minus\" title=\"" . WT_I18N::translate('View family') . "\"></i></a>";
if ($family->canShow()) {
foreach ($family->getFacts(WT_EVENTS_MARR) as $fact) {
echo ' <a href="', $family->getHtmlUrl(), '" class="details1">', $fact->summary(), '</a>';
}
}
echo '</span>';
// print spouse
$spouse = $family->getSpouse($person);
echo '<ul style="list-style:none; display:block;" id="' . $family->getXref() . $personcount . '">';
echo '<li>';
echo '<table border="0" cellpadding="0" cellspacing="0"><tr><td>';
print_pedigree_person($spouse, 1, 0, $personcount);
echo '</td>';
// check if spouse has parents and add an arrow
echo '<td> </td>';
echo '<td>';
if ($spouse) {
foreach ($spouse->getChildFamilies() as $cfamily) {
foreach ($cfamily->getSpouses() as $parent) {
print_url_arrow($parent->getXref() . $personcount . $person->getXref(), '?rootid=' . $parent->getXref() . '&generations=' . $this->generations . '&chart_style=' . $this->chart_style . '&show_full=' . $this->show_full . '&box_width=' . $this->box_width . '&ged=' . WT_GEDURL, WT_I18N::translate('Start at parents'), 2);
$personcount++;
// only show the arrow for one of the parents
break;
}
}
}
if ($this->show_full) {
echo '<br><br> ';
}
echo '</td></tr>';
// children
$children = $family->getChildren();
echo '<tr><td colspan="3" class="details1" > ';
if ($children) {
echo WT_Gedcom_Tag::getLabel('NCHI') . ': ' . count($children);
} else {
// Distinguish between no children (NCHI 0) and no recorded
// children (no CHIL records)
if (strpos($family->getGedcom(), '\\n1 NCHI 0')) {
echo WT_Gedcom_Tag::getLabel('NCHI') . ': ' . count($children);
} else {
echo WT_I18N::translate('No children');
}
}
echo '</td></tr></table>';
echo '</li>';
if ($depth > 1) {
foreach ($children as $child) {
$personcount++;
$this->print_child_descendancy($child, $depth - 1);
}
}
echo '</ul>';
echo '</li>';
}
/**
* print the children table for a family
*
* @param WT_Family $family family
* @param string $childid child ID
* @param int $sosa child sosa number
* @param string $label indi label (descendancy booklet)
* @param int $personcount
*/
function print_family_children(WT_Family $family, $childid = '', $sosa = 0, $label = '', $personcount = 1)
{
global $bheight, $pbheight, $cbheight, $show_cousins, $WT_IMAGES, $TEXT_DIRECTION;
$children = $family->getChildren();
$numchil = count($children);
echo "<table border=\"0\" cellpadding=\"0\" cellspacing=\"2\"><tr>";
if ($sosa > 0) {
echo "<td></td>";
}
echo "<td><span class=\"subheaders\">";
if ($numchil == 0) {
echo WT_I18N::translate('No children');
} else {
echo WT_I18N::plural('%s child', '%s children', $numchil, $numchil);
}
echo '</span>';
if ($sosa == 0 && WT_USER_CAN_EDIT) {
echo '<br>';
echo "<a href=\"#\" onclick=\"return add_child_to_family('", $family->getXref(), "', 'U');\">" . WT_I18N::translate('Add a child to this family') . "</a>";
echo ' <a class="icon-sex_m_15x15" href="#" onclick="return add_child_to_family(\'', $family->getXref(), '\', \'M\');" title="', WT_I18N::translate('son'), '"></a>';
echo ' <a class="icon-sex_f_15x15" href="#" onclick="return add_child_to_family(\'', $family->getXref(), '\', \'F\');" title="', WT_I18N::translate('daughter'), '"></a>';
echo '<br><br>';
}
echo '</td>';
if ($sosa > 0) {
echo '<td></td><td></td>';
}
echo '</tr>';
$nchi = 1;
if ($children) {
foreach ($children as $child) {
echo '<tr>';
if ($sosa != 0) {
if ($child->getXref() == $childid) {
print_sosa_number($sosa, $childid);
} elseif (empty($label)) {
print_sosa_number("");
} else {
print_sosa_number($label . $nchi++ . ".");
}
}
if ($child->isNew()) {
echo '<td valign="middle" class="new">';
} elseif ($child->isOld()) {
echo '<td valign="middle" class="old">';
} else {
echo '<td valign="middle">';
}
print_pedigree_person($child, 1, 8, $personcount++);
echo "</td>";
if ($sosa != 0) {
// loop for all families where current child is a spouse
$famids = $child->getSpouseFamilies();
$maxfam = count($famids) - 1;
for ($f = 0; $f <= $maxfam; $f++) {
$famid_child = $famids[$f]->getXref();
// multiple marriages
if ($f > 0) {
echo "</tr><tr><td> </td>";
echo "<td valign=\"top\"";
if ($TEXT_DIRECTION == "rtl") {
echo " align=\"left\">";
} else {
echo " align=\"right\">";
}
//if ($f==$maxfam) echo "<img height=\"50%\"";
//else echo "<img height=\"100%\"";
//find out how many cousins there are to establish vertical line on second families
$fchildren = $famids[$f]->getChildren();
$kids = count($fchildren);
$Pheader = $cbheight * $kids - $bheight;
$PBadj = 6;
// default
if ($show_cousins > 0) {
if ($cbheight * $kids > $bheight) {
$PBadj = $Pheader / 2 + $kids * 4.5;
}
}
if ($PBadj < 0) {
$PBadj = 0;
}
if ($f == $maxfam) {
echo "<img height=\"" . ($bheight / 2 + $PBadj) . "px\"";
} else {
echo "<img height=\"" . $pbheight . "px\"";
}
echo " width=\"3\" src=\"" . $WT_IMAGES["vline"] . "\" alt=\"\">";
echo "</td>";
}
echo "<td class=\"details1\" valign=\"middle\" align=\"center\">";
$spouse = $famids[$f]->getSpouse($child);
$marr = $famids[$f]->getFirstFact('MARR');
$div = $famids[$f]->getFirstFact('DIV');
if ($marr) {
// marriage date
echo $marr->getDate()->minDate()->format('%Y');
// divorce date
if ($div) {
echo '–', $div->getDate()->minDate()->format('%Y');
}
}
echo "<br><img width=\"100%\" class=\"line5\" height=\"3\" src=\"" . $WT_IMAGES["hline"] . "\" alt=\"\">";
echo "</td>";
// spouse information
echo "<td style=\"vertical-align: center;";
if (!empty($divrec)) {
echo " filter:alpha(opacity=40);opacity:0.4;\">";
} else {
echo "\">";
}
print_pedigree_person($spouse, 1, 9, $personcount++);
echo "</td>";
// cousins
if ($show_cousins) {
print_cousins($famid_child, $personcount++);
}
}
}
echo "</tr>";
}
} elseif ($sosa < 1) {
// message 'no children' except for sosa
if (preg_match('/\\n1 NCHI (\\d+)/', $family->getGedcom(), $match) && $match[1] == 0) {
echo '<tr><td><i class="icon-childless"></i> ' . WT_I18N::translate('This family remained childless') . '</td></tr>';
}
} else {
echo "<tr>";
print_sosa_number($sosa, $child);
echo "<td valign=\"top\">";
print_pedigree_person(WT_Individual::getInstance($childid), 1, 0, $personcount);
echo "</td></tr>";
}
echo "</table><br>";
}
function print_indi_form($nextaction, WT_Individual $person = null, WT_Family $family = null, WT_Fact $name_fact = null, $famtag = 'CHIL', $gender = 'U')
{
global $WORD_WRAPPED_NOTES, $NPFX_accept, $SHOW_GEDCOM_RECORD, $bdm, $STANDARD_NAME_FACTS, $ADVANCED_NAME_FACTS;
global $QUICK_REQUIRED_FACTS, $QUICK_REQUIRED_FAMFACTS, $controller;
$SURNAME_TRADITION = get_gedcom_setting(WT_GED_ID, 'SURNAME_TRADITION');
if ($person) {
$xref = $person->getXref();
} elseif ($family) {
$xref = $family->getXref();
} else {
$xref = 'new';
}
$name_fields = array();
if ($name_fact) {
$name_fact_id = $name_fact->getFactId();
$name_type = $name_fact->getAttribute('TYPE');
$namerec = $name_fact->getGedcom();
// Populate the standard NAME field and subfields
foreach ($STANDARD_NAME_FACTS as $tag) {
if ($tag == 'NAME') {
$name_fields[$tag] = $name_fact->getValue();
} else {
$name_fields[$tag] = $name_fact->getAttribute($tag);
}
}
} else {
$name_fact_id = null;
$name_type = null;
$namerec = null;
// Populate the standard NAME field and subfields
foreach ($STANDARD_NAME_FACTS as $tag) {
$name_fields[$tag] = '';
}
}
$bdm = '';
// used to copy '1 SOUR' to '2 SOUR' for BIRT DEAT MARR
echo '<div id="edit_interface-page">';
echo '<h4>', $controller->getPageTitle(), '</h4>';
init_calendar_popup();
echo '<form method="post" name="addchildform" onsubmit="return checkform();">';
echo '<input type="hidden" name="ged" value="', WT_Filter::escapeHtml(WT_GEDCOM), '">';
echo '<input type="hidden" name="action" value="', $nextaction, '">';
echo '<input type="hidden" name="fact_id" value="', $name_fact_id, '">';
echo '<input type="hidden" name="xref" value="', $xref, '">';
echo '<input type="hidden" name="famtag" value="', $famtag, '">';
echo '<input type="hidden" name="gender" value="', $gender, '">';
echo '<input type="hidden" name="goto" value="">';
// set by javascript
echo WT_Filter::getCsrf();
echo '<table class="facts_table">';
switch ($nextaction) {
case 'add_child_to_family_action':
case 'add_child_to_individual_action':
// When adding a new child, specify the pedigree
add_simple_tag('0 PEDI');
break;
case 'update':
// When adding/editing a name, specify the type
add_simple_tag('0 TYPE ' . $name_type, '', '', null, $person);
break;
}
$new_marnm = '';
// Inherit surname from parents, spouse or child
if (!$namerec) {
// We’ll need the parent’s name to set the child’s surname
if ($family) {
$father = $family->getHusband();
if ($father && $father->getFirstFact('NAME')) {
$father_name = $father->getFirstFact('NAME')->getValue();
} else {
$father_name = '';
}
$mother = $family->getWife();
if ($mother && $mother->getFirstFact('NAME')) {
$mother_name = $mother->getFirstFact('NAME')->getValue();
} else {
$mother_name = '';
}
} else {
$father_name = '';
$mother_name = '';
}
// We’ll need the spouse/child’s name to set the spouse/parent’s surname
if ($person && $person->getFirstFact('NAME')) {
$indi_name = $person->getFirstFact('NAME')->getValue();
} else {
$indi_name = '';
}
// Different cultures do surnames differently
switch ($SURNAME_TRADITION) {
case 'spanish':
//Mother: Maria /AAAA BBBB/
//Father: Jose /CCCC DDDD/
//Child: Pablo /CCCC AAAA/
switch ($nextaction) {
case 'add_child_to_family_action':
if (preg_match('/\\/(\\S+) \\S+\\//', $mother_name, $matchm) && preg_match('/\\/(\\S+) \\S+\\//', $father_name, $matchf)) {
$name_fields['SURN'] = $matchf[1] . ' ' . $matchm[1];
$name_fields['NAME'] = '/' . $name_fields['SURN'] . '/';
}
break;
case 'add_parent_to_individual_action':
if ($famtag == 'HUSB' && preg_match('/\\/(\\S+) \\S+\\//', $indi_name, $match)) {
$name_fields['SURN'] = $match[1];
$name_fields['NAME'] = '/' . $name_fields['SURN'] . '/';
}
if ($famtag == 'WIFE' && preg_match('/\\/\\S+ (\\S+)\\//', $indi_name, $match)) {
$name_fields['SURN'] = $match[1];
$name_fields['NAME'] = '/' . $name_fields['SURN'] . '/';
}
break;
case 'add_child_to_individual_action':
case 'add_spouse_to_individual_action':
case 'add_spouse_to_family_action':
break;
}
break;
case 'portuguese':
//Mother: Maria /AAAA BBBB/
//Father: Jose /CCCC DDDD/
//Child: Pablo /BBBB DDDD/
switch ($nextaction) {
case 'add_child_to_family_action':
if (preg_match('/\\/\\S+\\s+(\\S+)\\//', $mother_name, $matchm) && preg_match('/\\/\\S+\\s+(\\S+)\\//', $father_name, $matchf)) {
$name_fields['SURN'] = $matchf[1] . ' ' . $matchm[1];
$name_fields['NAME'] = '/' . $name_fields['SURN'] . '/';
}
break;
case 'add_parent_to_individual_action':
if ($famtag == 'HUSB' && preg_match('/\\/\\S+\\s+(\\S+)\\//', $indi_name, $match)) {
$name_fields['SURN'] = $match[1];
$name_fields['NAME'] = '/' . $name_fields['SURN'] . '/';
}
if ($famtag == 'WIFE' && preg_match('/\\/(\\S+)\\s+\\S+\\//', $indi_name, $match)) {
$name_fields['SURN'] = $match[1];
$name_fields['NAME'] = '/' . $name_fields['SURN'] . '/';
}
break;
case 'add_child_to_individual_action':
case 'add_spouse_to_individual_action':
case 'add_spouse_to_family_action':
break;
}
break;
case 'icelandic':
// Sons get their father’s given name plus “sson”
// Daughters get their father’s given name plus “sdottir”
switch ($nextaction) {
case 'add_child_to_family_action':
if ($gender == 'M' && preg_match('/(\\S+)\\s+\\/.*\\//', $father_name, $match)) {
$name_fields['SURN'] = preg_replace('/s$/', '', $match[1]) . 'sson';
$name_fields['NAME'] = '/' . $name_fields['SURN'] . '/';
}
if ($gender == 'F' && preg_match('/(\\S+)\\s+\\/.*\\//', $father_name, $match)) {
$name_fields['SURN'] = preg_replace('/s$/', '', $match[1]) . 'sdottir';
$name_fields['NAME'] = '/' . $name_fields['SURN'] . '/';
}
break;
case 'add_parent_to_individual_action':
if ($famtag == 'HUSB' && preg_match('/(\\S+)sson\\s+\\/.*\\//i', $indi_name, $match)) {
$name_fields['GIVN'] = $match[1];
$name_fields['NAME'] = $name_fields['GIVN'] . ' //';
}
if ($famtag == 'WIFE' && preg_match('/(\\S+)sdottir\\s+\\/.*\\//i', $indi_name, $match)) {
$name_fields['GIVN'] = $match[1];
$name_fields['NAME'] = $name_fields['GIVN'] . ' //';
}
break;
case 'add_child_to_individual_action':
case 'add_spouse_to_individual_action':
case 'add_spouse_to_family_action':
break;
}
break;
case 'patrilineal':
// Father gives his surname to his children
switch ($nextaction) {
case 'add_child_to_family_action':
if (preg_match('/\\/((?:[a-z]{2,3} )*)(.*)\\//i', $father_name, $match)) {
$name_fields['SURN'] = $match[2];
$name_fields['SPFX'] = trim($match[1]);
$name_fields['NAME'] = "/{$match[1]}{$match[2]}/";
}
break;
case 'add_parent_to_individual_action':
if ($famtag == 'HUSB' && preg_match('/\\/((?:[a-z]{2,3} )*)(.*)\\//i', $indi_name, $match)) {
$name_fields['SURN'] = $match[2];
$name_fields['SPFX'] = trim($match[1]);
$name_fields['NAME'] = "/{$match[1]}{$match[2]}/";
}
break;
case 'add_child_to_individual_action':
case 'add_spouse_to_individual_action':
case 'add_spouse_to_family_action':
break;
}
break;
case 'matrilineal':
// Mother gives her surname to her children
switch ($nextaction) {
case 'add_child_to_family_action':
if (preg_match('/\\/((?:[a-z]{2,3} )*)(.*)\\//i', $mother, $match)) {
$name_fields['SURN'] = $match[2];
$name_fields['SPFX'] = trim($match[1]);
$name_fields['NAME'] = "/{$match[1]}{$match[2]}/";
}
break;
case 'add_parent_to_individual_action':
if ($famtag == 'WIFE' && preg_match('/\\/((?:[a-z]{2,3} )*)(.*)\\//i', $indi_name, $match)) {
$name_fields['SURN'] = $match[2];
$name_fields['SPFX'] = trim($match[1]);
$name_fields['NAME'] = "/{$match[1]}{$match[2]}/";
}
break;
case 'add_child_to_individual_action':
case 'add_spouse_to_individual_action':
case 'add_spouse_to_family_action':
break;
}
break;
case 'paternal':
case 'polish':
case 'lithuanian':
// Father gives his surname to his wife and children
switch ($nextaction) {
case 'add_spouse_to_individual_action':
if ($famtag == 'WIFE' && preg_match('/\\/(.*)\\//', $indi_name, $match)) {
if ($SURNAME_TRADITION == 'polish') {
$match[1] = preg_replace(array('/ski$/', '/cki$/', '/dzki$/', '/żki$/'), array('ska', 'cka', 'dzka', 'żka'), $match[1]);
} elseif ($SURNAME_TRADITION == 'lithuanian') {
$match[1] = preg_replace(array('/as$/', '/is$/', '/ys$/', '/us$/'), array('ienė', 'ienė', 'ienė', 'ienė'), $match[1]);
}
$new_marnm = $match[1];
}
break;
case 'add_child_to_family_action':
if (preg_match('/\\/((?:[a-z]{2,3} )*)(.*)\\//i', $father_name, $match)) {
$name_fields['SURN'] = $match[2];
if ($SURNAME_TRADITION == 'polish' && $gender == 'F') {
$match[2] = preg_replace(array('/ski$/', '/cki$/', '/dzki$/', '/żki$/'), array('ska', 'cka', 'dzka', 'żka'), $match[2]);
} elseif ($SURNAME_TRADITION == 'lithuanian' && $gender == 'F') {
$match[2] = preg_replace(array('/as$/', '/a$/', '/is$/', '/ys$/', '/ius$/', '/us$/'), array('aitė', 'aitė', 'ytė', 'ytė', 'iūtė', 'utė'), $match[2]);
}
$name_fields['SPFX'] = trim($match[1]);
$name_fields['NAME'] = "/{$match[1]}{$match[2]}/";
}
break;
case 'add_child_to_individual_action':
if ($person->getSex() == 'M' && preg_match('/\\/((?:[a-z]{2,3} )*)(.*)\\//i', $indi_name, $match)) {
$name_fields['SURN'] = $match[2];
if ($SURNAME_TRADITION == 'polish' && $gender == 'F') {
$match[2] = preg_replace(array('/ski$/', '/cki$/', '/dzki$/', '/żki$/'), array('ska', 'cka', 'dzka', 'żka'), $match[2]);
} elseif ($SURNAME_TRADITION == 'lithuanian' && $gender == 'F') {
$match[2] = preg_replace(array('/as$/', '/a$/', '/is$/', '/ys$/', '/ius$/', '/us$/'), array('aitė', 'aitė', 'ytė', 'ytė', 'iūtė', 'utė'), $match[2]);
}
$name_fields['SPFX'] = trim($match[1]);
$name_fields['NAME'] = "/{$match[1]}{$match[2]}/";
}
break;
case 'add_parent_to_individual_action':
if ($famtag == 'HUSB' && preg_match('/\\/((?:[a-z]{2,3} )*)(.*)\\//i', $indi_name, $match)) {
if ($SURNAME_TRADITION == 'polish' && $gender == 'M') {
$match[2] = preg_replace(array('/ska$/', '/cka$/', '/dzka$/', '/żka$/'), array('ski', 'cki', 'dzki', 'żki'), $match[2]);
} elseif ($SURNAME_TRADITION == 'lithuanian') {
// not a complete list as the rules are somewhat complicated but will do 95% correctly
$match[2] = preg_replace(array('/aitė$/', '/ytė$/', '/iūtė$/', '/utė$/'), array('as', 'is', 'ius', 'us'), $match[2]);
}
$name_fields['SPFX'] = trim($match[1]);
$name_fields['SURN'] = $match[2];
$name_fields['NAME'] = "/{$match[1]}{$match[2]}/";
}
if ($famtag == 'WIFE' && preg_match('/\\/((?:[a-z]{2,3} )*)(.*)\\//i', $indi_name, $match)) {
if ($SURNAME_TRADITION == 'lithuanian') {
$match[2] = preg_replace(array('/as$/', '/is$/', '/ys$/', '/us$/'), array('ienė', 'ienė', 'ienė', 'ienė'), $match[2]);
$match[2] = preg_replace(array('/aitė$/', '/ytė$/', '/iūtė$/', '/utė$/'), array('ienė', 'ienė', 'ienė', 'ienė'), $match[2]);
}
$new_marnm = $match[2];
}
break;
case 'add_spouse_to_family_action':
break;
}
break;
}
}
// Initialise an empty name field
if (empty($name_fields['NAME'])) {
$name_fields['NAME'] = '//';
}
// Populate any missing 2 XXXX fields from the 1 NAME field
$npfx_accept = implode('|', $NPFX_accept);
if (preg_match("/((({$npfx_accept})\\.? +)*)([^\n\\/\"]*)(\"(.*)\")? *\\/(([a-z]{2,3} +)*)(.*)\\/ *(.*)/i", $name_fields['NAME'], $name_bits)) {
if (empty($name_fields['NPFX'])) {
$name_fields['NPFX'] = $name_bits[1];
}
if (empty($name_fields['SPFX']) && empty($name_fields['SURN'])) {
$name_fields['SPFX'] = trim($name_bits[7]);
// For names with two surnames, there will be four slashes.
// Turn them into a list
$name_fields['SURN'] = preg_replace('~/[^/]*/~', ',', $name_bits[9]);
}
if (empty($name_fields['GIVN'])) {
$name_fields['GIVN'] = $name_bits[4];
}
// Don’t automatically create an empty NICK - it is an “advanced” field.
if (empty($name_fields['NICK']) && !empty($name_bits[6]) && !preg_match('/^2 NICK/m', $namerec)) {
$name_fields['NICK'] = $name_bits[6];
}
}
// Edit the standard name fields
foreach ($name_fields as $tag => $value) {
add_simple_tag("0 {$tag} {$value}");
}
// Get the advanced name fields
$adv_name_fields = array();
if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $ADVANCED_NAME_FACTS, $match)) {
foreach ($match[1] as $tag) {
$adv_name_fields[$tag] = '';
}
}
// This is a custom tag, but webtrees uses it extensively.
if ($SURNAME_TRADITION == 'paternal' || $SURNAME_TRADITION == 'polish' || $SURNAME_TRADITION == 'lithuanian' || strpos($namerec, '2 _MARNM') !== false) {
$adv_name_fields['_MARNM'] = '';
}
if (isset($adv_name_fields['TYPE'])) {
unset($adv_name_fields['TYPE']);
}
foreach ($adv_name_fields as $tag => $dummy) {
// Edit existing tags
if (preg_match_all("/2 {$tag} (.+)/", $namerec, $match)) {
foreach ($match[1] as $value) {
if ($tag == '_MARNM') {
$mnsct = preg_match('/\\/(.+)\\//', $value, $match2);
$marnm_surn = '';
if ($mnsct > 0) {
$marnm_surn = $match2[1];
}
add_simple_tag("2 _MARNM " . $value);
add_simple_tag("2 _MARNM_SURN " . $marnm_surn);
} else {
add_simple_tag("2 {$tag} {$value}", '', WT_Gedcom_Tag::getLabel("NAME:{$tag}", $person));
}
}
}
// Allow a new row to be entered if there was no row provided
if (count($match[1]) == 0 && empty($name_fields[$tag]) || $tag != '_HEB' && $tag != 'NICK') {
if ($tag == '_MARNM') {
if (strstr($ADVANCED_NAME_FACTS, '_MARNM') == false) {
add_simple_tag("0 _MARNM");
add_simple_tag("0 _MARNM_SURN {$new_marnm}");
}
} else {
add_simple_tag("0 {$tag}", '', WT_Gedcom_Tag::getLabel("NAME:{$tag}", $person));
}
}
}
// Handle any other NAME subfields that aren’t included above (SOUR, NOTE, _CUSTOM, etc)
if ($namerec) {
$gedlines = explode("\n", $namerec);
// -- find the number of lines in the record
$fields = explode(' ', $gedlines[0]);
$glevel = $fields[0];
$level = $glevel;
$type = trim($fields[1]);
$tags = array();
$i = 0;
do {
if ($type != 'TYPE' && !isset($name_fields[$type]) && !isset($adv_name_fields[$type])) {
$text = '';
for ($j = 2; $j < count($fields); $j++) {
if ($j > 2) {
$text .= ' ';
}
$text .= $fields[$j];
}
while ($i + 1 < count($gedlines) && preg_match("/" . ($level + 1) . " (CON[CT]) ?(.*)/", $gedlines[$i + 1], $cmatch) > 0) {
if ($cmatch[1] == "CONT") {
$text .= "\n";
}
if ($WORD_WRAPPED_NOTES) {
$text .= ' ';
}
$text .= $cmatch[2];
$i++;
}
add_simple_tag($level . ' ' . $type . ' ' . $text);
}
$tags[] = $type;
$i++;
if (isset($gedlines[$i])) {
$fields = explode(' ', $gedlines[$i]);
$level = $fields[0];
if (isset($fields[1])) {
$type = $fields[1];
}
}
} while ($level > $glevel && $i < count($gedlines));
}
// If we are adding a new individual, add the basic details
if ($nextaction != 'update') {
echo '</table><br><table class="facts_table">';
// 1 SEX
if ($famtag == "HUSB" || $gender == "M") {
add_simple_tag("0 SEX M");
} elseif ($famtag == "WIFE" || $gender == "F") {
add_simple_tag("0 SEX F");
} else {
add_simple_tag("0 SEX");
}
$bdm = "BD";
if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $QUICK_REQUIRED_FACTS, $matches)) {
foreach ($matches[1] as $match) {
if (!in_array($match, explode('|', WT_EVENTS_DEAT))) {
addSimpleTags($match);
}
}
}
//-- if adding a spouse add the option to add a marriage fact to the new family
if ($nextaction == 'add_spouse_to_individual_action' || $nextaction == 'add_spouse_to_family_action') {
$bdm .= "M";
if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $QUICK_REQUIRED_FAMFACTS, $matches)) {
foreach ($matches[1] as $match) {
addSimpleTags($match);
}
}
}
if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $QUICK_REQUIRED_FACTS, $matches)) {
foreach ($matches[1] as $match) {
if (in_array($match, explode('|', WT_EVENTS_DEAT))) {
addSimpleTags($match);
}
}
}
}
echo keep_chan($person);
echo "</table>";
if ($nextaction == 'update') {
// GEDCOM 5.5.1 spec says NAME doesn’t get a OBJE
print_add_layer('SOUR');
print_add_layer('NOTE');
print_add_layer('SHARED_NOTE');
} else {
print_add_layer('SOUR', 1);
print_add_layer('OBJE', 1);
print_add_layer('NOTE', 1);
print_add_layer('SHARED_NOTE', 1);
}
// If we are editing an existing name, allow raw GEDCOM editing
if ($name_fact && (Auth::isAdmin() || $SHOW_GEDCOM_RECORD)) {
echo '<br><br><a href="edit_interface.php?action=editrawfact&xref=', $xref, '&fact_id=', $name_fact->getFactId(), '&ged=', WT_GEDURL, '">', WT_I18N::translate('Edit raw GEDCOM'), '</a>';
}
echo '<p id="save-cancel">';
echo '<input type="submit" class="save" value="', WT_I18N::translate('save'), '">';
if (preg_match('/^add_(child|spouse|parent|unlinked_indi)/', $nextaction)) {
echo '<input type="submit" class="save" value="', WT_I18N::translate('go to new individual'), '" onclick="document.addchildform.goto.value=\'new\';">';
}
echo '<input type="button" class="cancel" value="', WT_I18N::translate('close'), '" onclick="window.close();">';
echo '</p>';
echo '</form>';
$controller->addInlineJavascript('
SURNAME_TRADITION="' . $SURNAME_TRADITION . '";
gender="' . $gender . '";
famtag="' . $famtag . '";
function trim(str) {
str=str.replace(/\\s\\s+/g, " ");
return str.replace(/(^\\s+)|(\\s+$)/g, "");
}
function lang_class(str) {
if (str.match(/[\\u0370-\\u03FF]/)) return "greek";
if (str.match(/[\\u0400-\\u04FF]/)) return "cyrillic";
if (str.match(/[\\u0590-\\u05FF]/)) return "hebrew";
if (str.match(/[\\u0600-\\u06FF]/)) return "arabic";
return "latin"; // No matched text implies latin :-)
}
// Generate a full name from the name components
function generate_name() {
var frm =document.forms[0];
var npfx=frm.NPFX.value;
var givn=frm.GIVN.value;
var spfx=frm.SPFX.value;
var surn=frm.SURN.value;
var nsfx=frm.NSFX.value;
if (SURNAME_TRADITION=="polish" && (gender=="F" || famtag=="WIFE")) {
surn=surn.replace(/ski$/, "ska");
surn=surn.replace(/cki$/, "cka");
surn=surn.replace(/dzki$/, "dzka");
surn=surn.replace(/żki$/, "żka");
}
// Commas are used in the GIVN and SURN field to separate lists of surnames.
// For example, to differentiate the two Spanish surnames from an English
// double-barred name.
// Commas *may* be used in other fields, and will form part of the NAME.
if (WT_LOCALE=="vi" || WT_LOCALE=="hu") {
// Default format: /SURN/ GIVN
return trim(npfx+" /"+trim(spfx+" "+surn).replace(/ *, */g, " ")+"/ "+givn.replace(/ *, */g, " ")+" "+nsfx);
} else if (WT_LOCALE=="zh") {
// Default format: /SURN/GIVN
return trim(npfx+" /"+trim(spfx+" "+surn).replace(/ *, */g, " ")+"/"+givn.replace(/ *, */g, " ")+" "+nsfx);
} else {
// Default format: GIVN /SURN/
return trim(npfx+" "+givn.replace(/ *, */g, " ")+" /"+trim(spfx+" "+surn).replace(/ *, */g, " ")+"/ "+nsfx);
}
}
// Update the NAME and _MARNM fields from the name components
// and also display the value in read-only "gedcom" format.
function updatewholename() {
// don’t update the name if the user manually changed it
if (manualChange) return;
// Update NAME field from components and display it
var frm =document.forms[0];
var npfx=frm.NPFX.value;
var givn=frm.GIVN.value;
var spfx=frm.SPFX.value;
var surn=frm.SURN.value;
var nsfx=frm.NSFX.value;
document.getElementById("NAME").value=generate_name();
document.getElementById("NAME_display").innerText=frm.NAME.value;
// Married names inherit some NSFX values, but not these
nsfx=nsfx.replace(/^(I|II|III|IV|V|VI|Junior|Jr\\.?|Senior|Sr\\.?)$/i, "");
// Update _MARNM field from _MARNM_SURN field and display it
// Be careful of mixing latin/hebrew/etc. character sets.
var ip=document.getElementsByTagName("input");
var marnm_id="";
var romn="";
var heb="";
for (var i=0; i<ip.length; i++) {
var val=ip[i].value;
if (ip[i].id.indexOf("_HEB")==0)
heb=val;
if (ip[i].id.indexOf("ROMN")==0)
romn=val;
if (ip[i].id.indexOf("_MARNM")==0) {
if (ip[i].id.indexOf("_MARNM_SURN")==0) {
var msurn="";
if (val!="") {
var lc=lang_class(document.getElementById(ip[i].id).value);
if (lang_class(frm.NAME.value)==lc)
msurn=trim(npfx+" "+givn+" /"+val+"/ "+nsfx);
else if (lc=="hebrew")
msurn=heb.replace(/\\/.*\\//, "/"+val+"/");
else if (lang_class(romn)==lc)
msurn=romn.replace(/\\/.*\\//, "/"+val+"/");
}
document.getElementById(marnm_id).value=msurn;
document.getElementById(marnm_id+"_display").innerHTML=msurn;
} else {
marnm_id=ip[i].id;
}
}
}
}
// Toggle the name editor fields between
// <input type="hidden"> <span style="display:inline">
// <input type="text"> <span style="display:hidden">
var oldName = "";
var manualChange = false;
function convertHidden(eid) {
var input1 = jQuery("#" + eid);
var input2 = jQuery("#" + eid + "_display");
// Note that IE does not allow us to change the type of an input, so we must create a new one.
if (input1.attr("type")=="hidden") {
input1.replaceWith(input1.clone().attr("type", "text"));
input2.hide();
} else {
input1.replaceWith(input1.clone().attr("type", "hidden"));
input2.show();
}
}
/**
* if the user manually changed the NAME field, then update the textual
* HTML representation of it
* If the value changed set manualChange to true so that changing
* the other fields doesn’t change the NAME line
*/
function updateTextName(eid) {
var element = document.getElementById(eid);
if (element) {
if (element.value!=oldName) manualChange = true;
var delement = document.getElementById(eid+"_display");
if (delement) {
delement.innerHTML = element.value;
}
}
}
function checkform() {
var ip=document.getElementsByTagName("input");
for (var i=0; i<ip.length; i++) {
// ADD slashes to _HEB and _AKA names
if (ip[i].id.indexOf("_AKA")==0 || ip[i].id.indexOf("_HEB")==0 || ip[i].id.indexOf("ROMN")==0)
if (ip[i].value.indexOf("/")<0 && ip[i].value!="")
ip[i].value=ip[i].value.replace(/([^\\s]+)\\s*$/, "/$1/");
// Blank out temporary _MARNM_SURN
if (ip[i].id.indexOf("_MARNM_SURN")==0)
ip[i].value="";
// Convert "xxx yyy" and "xxx y yyy" surnames to "xxx,yyy"
if ((SURNAME_TRADITION=="spanish" || "SURNAME_TRADITION"=="portuguese") && ip[i].id.indexOf("SURN")==0) {
ip[i].value=document.forms[0].SURN.value.replace(/^\\s*([^\\s,]{2,})\\s+([iIyY] +)?([^\\s,]{2,})\\s*$/, "$1,$3");
}
}
return true;
}
// If the name isn’t initially formed from the components in a standard way,
// then don’t automatically update it.
if (document.getElementById("NAME").value!=generate_name() && document.getElementById("NAME").value!="//") {
convertHidden("NAME");
}
');
echo '</div>';
}
function getChildFamilyLabel(WT_Family $family)
{
if (preg_match('/\\n1 FAMC @' . $family->getXref() . '@(?:\\n[2-9].*)*\\n2 PEDI (.+)/', $this->getGedcom(), $match)) {
// A specified pedigree
return WT_Gedcom_Code_Pedi::getChildFamilyLabel($match[1]);
} else {
// Default (birth) pedigree
return WT_Gedcom_Code_Pedi::getChildFamilyLabel('');
}
}
function printFamily(WT_Family $family, $type, $label)
{
global $controller;
global $personcount;
// TODO: use a unique id instead?
global $SHOW_PRIVATE_RELATIONSHIPS;
if ($SHOW_PRIVATE_RELATIONSHIPS) {
$access_level = WT_PRIV_HIDE;
} else {
$access_level = WT_USER_ACCESS_LEVEL;
}
?>
<table>
<tr>
<td>
<i class="icon-cfamily"></i>
</td>
<td>
<span class="subheaders"> <?php
echo $label;
?>
</span> -
<a href="<?php
echo $family->getHtmlUrl();
?>
"><?php
echo WT_I18N::translate('View family');
?>
</a>
</td>
</tr>
</table>
<table class="facts_table">
<?php
///// HUSB /////
$found = false;
foreach ($family->getFacts('HUSB', false, $access_level) as $fact) {
$found |= !$fact->isOld();
$person = $fact->getTarget();
if ($person instanceof WT_Individual) {
if ($fact->isNew()) {
$class = 'facts_label new';
} elseif ($fact->isOld()) {
$class = 'facts_label old';
} else {
$class = 'facts_label';
}
?>
<tr>
<td class="<?php
echo $class;
?>
">
<?php
echo get_close_relationship_name($controller->record, $person);
?>
</td>
<td class="<?php
echo $controller->getPersonStyle($person);
?>
">
<?php
print_pedigree_person($person, 2, 0, $personcount++);
?>
</td>
</tr>
<?php
}
}
if (!$found && $family->canEdit()) {
?>
<tr>
<td class="facts_label"> </td>
<td class="facts_value"><a href="#" onclick="return add_spouse_to_family('<?php
echo $family->getXref();
?>
', 'HUSB');"><?php
echo WT_I18N::translate('Add a husband to this family');
?>
</a></td>
</tr>
<?php
}
///// WIFE /////
$found = false;
foreach ($family->getFacts('WIFE', false, $access_level) as $fact) {
$person = $fact->getTarget();
if ($person instanceof WT_Individual) {
$found |= !$fact->isOld();
if ($fact->isNew()) {
$class = 'facts_label new';
} elseif ($fact->isOld()) {
$class = 'facts_label old';
} else {
$class = 'facts_label';
}
?>
<tr>
<td class="<?php
echo $class;
?>
">
<?php
echo get_close_relationship_name($controller->record, $person);
?>
</td>
<td class="<?php
echo $controller->getPersonStyle($person);
?>
">
<?php
print_pedigree_person($person, 2, 0, $personcount++);
?>
</td>
</tr>
<?php
}
}
if (!$found && $family->canEdit()) {
?>
<tr>
<td class="facts_label"> </td>
<td class="facts_value"><a href="#" onclick="return add_spouse_to_family('<?php
echo $family->getXref();
?>
', 'WIFE');"><?php
echo WT_I18N::translate('Add a wife to this family');
?>
</a></td>
</tr>
<?php
}
///// MARR /////
$found = false;
$prev = new WT_Date('');
foreach ($family->getFacts(WT_EVENTS_MARR) as $fact) {
$found |= !$fact->isOld();
if ($fact->isNew()) {
$class = ' new';
} elseif ($fact->isOld()) {
$class = ' old';
} else {
$class = '';
}
?>
<tr>
<td class="facts_label">
</td>
<td class="facts_value<?php
echo $class;
?>
">
<?php
echo WT_Gedcom_Tag::getLabelValue($fact->getTag(), $fact->getDate()->Display(false) . ' — ' . $fact->getPlace()->getFullName());
?>
</td>
</tr>
<?php
if (!$prev->isOK() && $fact->getDate()->isOK()) {
$prev = $fact->getDate();
}
}
if (!$found && $family->canShow() && $family->canEdit()) {
// Add a new marriage
?>
<tr>
<td class="facts_label">
</td>
<td class="facts_value">
<a href="#" onclick="return add_new_record('<?php
echo $family->getXref();
?>
', 'MARR');">
<?php
echo WT_I18N::translate('Add marriage details');
?>
</a>
</td>
</tr>
<?php
}
///// CHIL /////
$child_number = 0;
foreach ($family->getFacts('CHIL', false, $access_level) as $fact) {
$person = $fact->getTarget();
if ($person instanceof WT_Individual) {
if ($fact->isNew()) {
$child_number++;
$class = 'facts_label new';
} elseif ($fact->isOld()) {
$class = 'facts_label old';
} else {
$child_number++;
$class = 'facts_label';
}
$next = new WT_Date('');
foreach ($person->getFacts(WT_EVENTS_BIRT) as $bfact) {
if ($bfact->getDate()->isOK()) {
$next = $bfact->getDate();
break;
}
}
?>
<tr>
<td class="<?php
echo $class;
?>
">
<?php
echo self::ageDifference($prev, $next, $child_number);
?>
<?php
echo get_close_relationship_name($controller->record, $person);
?>
</td>
<td class="<?php
echo $controller->getPersonStyle($person);
?>
">
<?php
print_pedigree_person($person, 2, 0, $personcount++);
?>
</td>
</tr>
<?php
$prev = $next;
}
}
// Re-order children / add a new child
if ($family->canEdit()) {
if ($type == 'FAMS') {
$child_u = WT_I18N::translate('Add a new son or daughter');
$child_m = WT_I18N::translate('son');
$child_f = WT_I18N::translate('daughter');
} else {
$child_u = WT_I18N::translate('Add a new brother or sister');
$child_m = WT_I18N::translate('brother');
$child_f = WT_I18N::translate('sister');
}
?>
<tr>
<td class="facts_label">
<?php
if (count($family->getChildren()) > 1) {
?>
<a href="#" onclick="reorder_children('<?php
echo $family->getXref();
?>
');tabswitch(5);"><i class="icon-media-shuffle"></i> <?php
echo WT_I18N::translate('Re-order children');
?>
</a>
<?php
}
?>
</td>
<td class="facts_value">
<a href="#" onclick="return add_child_to_family('<?php
echo $family->getXref();
?>
');"><?php
echo $child_u;
?>
</a>
<span style='white-space:nowrap;'>
<a href="#" class="icon-sex_m_15x15" onclick="return add_child_to_family('<?php
echo $family->getXref();
?>
','M');"></a>
<a href="#" class="icon-sex_f_15x15" onclick="return add_child_to_family('<?php
echo $family->getXref();
?>
','F');"></a>
</span>
</td>
</tr>
<?php
}
echo '</table>';
return;
}
