diff options
Diffstat (limited to 'app/Functions/FunctionsPrint.php')
| -rw-r--r-- | app/Functions/FunctionsPrint.php | 1080 |
1 files changed, 559 insertions, 521 deletions
diff --git a/app/Functions/FunctionsPrint.php b/app/Functions/FunctionsPrint.php index 77024a0eaa..12358d23a1 100644 --- a/app/Functions/FunctionsPrint.php +++ b/app/Functions/FunctionsPrint.php @@ -37,551 +37,589 @@ use Ramsey\Uuid\Uuid; /** * Class FunctionsPrint - common functions */ -class FunctionsPrint { - /** - * print the information for an individual chart box - * - * find and print a given individuals information for a pedigree chart - * - * @param Individual $person The person to print - */ - public static function printPedigreePerson(Individual $person = null) { - if ($person) { - echo Theme::theme()->individualBox($person); - } else { - echo Theme::theme()->individualBoxEmpty(); - } - } +class FunctionsPrint +{ + /** + * print the information for an individual chart box + * + * find and print a given individuals information for a pedigree chart + * + * @param Individual $person The person to print + */ + public static function printPedigreePerson(Individual $person = null) + { + if ($person) { + echo Theme::theme()->individualBox($person); + } else { + echo Theme::theme()->individualBoxEmpty(); + } + } - /** - * print a note record - * - * @param Tree $tree - * @param string $text - * @param int $nlevel the level of the note record - * @param string $nrec the note record to print - * - * @return string - */ - private static function printNoteRecord(Tree $tree, $text, $nlevel, $nrec) { - $text .= Functions::getCont($nlevel, $nrec); + /** + * print a note record + * + * @param Tree $tree + * @param string $text + * @param int $nlevel the level of the note record + * @param string $nrec the note record to print + * + * @return string + */ + private static function printNoteRecord(Tree $tree, $text, $nlevel, $nrec) + { + $text .= Functions::getCont($nlevel, $nrec); - // Check if shared note (we have already checked that it exists) - if (preg_match('/^0 @(' . WT_REGEX_XREF . ')@ NOTE/', $nrec, $match)) { - $note = Note::getInstance($match[1], $tree); - $label = 'SHARED_NOTE'; - $html = Filter::formatText($note->getNote(), $tree); - } else { - $note = null; - $label = 'NOTE'; - $html = Filter::formatText($text, $tree); - } + // Check if shared note (we have already checked that it exists) + if (preg_match('/^0 @(' . WT_REGEX_XREF . ')@ NOTE/', $nrec, $match)) { + $note = Note::getInstance($match[1], $tree); + $label = 'SHARED_NOTE'; + $html = Filter::formatText($note->getNote(), $tree); + } else { + $note = null; + $label = 'NOTE'; + $html = Filter::formatText($text, $tree); + } - if (strpos($text, "\n") === false) { - // A one-line note? strip the block-level tags, so it displays inline - return GedcomTag::getLabelValue($label, strip_tags($html, '<a><strong><em>')); - } elseif ($tree->getPreference('EXPAND_NOTES')) { - // A multi-line note, and we're expanding notes by default - return GedcomTag::getLabelValue($label, $html); - } else { - // A multi-line note, with an expand/collapse option - $element_id = Uuid::uuid4()->toString(); - // NOTE: class "note-details" is (currently) used only by some third-party themes - if ($note) { - $first_line = '<a href="' . e($note->url()) . '">' . $note->getFullName() . '</a>'; - } else { - list($text) = explode("\n", strip_tags($html)); - $first_line = strlen($text) > 100 ? mb_substr($text, 0, 100) . I18N::translate('…') : $text; - } + if (strpos($text, "\n") === false) { + // A one-line note? strip the block-level tags, so it displays inline + return GedcomTag::getLabelValue($label, strip_tags($html, '<a><strong><em>')); + } elseif ($tree->getPreference('EXPAND_NOTES')) { + // A multi-line note, and we're expanding notes by default + return GedcomTag::getLabelValue($label, $html); + } else { + // A multi-line note, with an expand/collapse option + $element_id = Uuid::uuid4()->toString(); + // NOTE: class "note-details" is (currently) used only by some third-party themes + if ($note) { + $first_line = '<a href="' . e($note->url()) . '">' . $note->getFullName() . '</a>'; + } else { + list($text) = explode("\n", strip_tags($html)); + $first_line = strlen($text) > 100 ? mb_substr($text, 0, 100) . I18N::translate('…') : $text; + } - return - '<div class="fact_NOTE"><span class="label">' . - '<a href="#" onclick="expand_layer(\'' . $element_id . '\'); return false;"><i id="' . $element_id . '_img" class="icon-plus"></i></a> ' . GedcomTag::getLabel($label) . ':</span> ' . '<span id="' . $element_id . '-alt">' . $first_line . '</span>' . - '</div>' . - '<div class="note-details" id="' . $element_id . '" style="display:none">' . $html . '</div>'; - } - } + return + '<div class="fact_NOTE"><span class="label">' . + '<a href="#" onclick="expand_layer(\'' . $element_id . '\'); return false;"><i id="' . $element_id . '_img" class="icon-plus"></i></a> ' . GedcomTag::getLabel($label) . ':</span> ' . '<span id="' . $element_id . '-alt">' . $first_line . '</span>' . + '</div>' . + '<div class="note-details" id="' . $element_id . '" style="display:none">' . $html . '</div>'; + } + } - /** - * Print all of the notes in this fact record - * - * @param Tree $tree - * @param string $factrec The factrecord to print the notes from - * @param int $level The level of the factrecord - * - * @return string HTML - */ - public static function printFactNotes(Tree $tree, $factrec, $level) { - $data = ''; - $previous_spos = 0; - $nlevel = $level + 1; - $ct = preg_match_all("/$level NOTE (.*)/", $factrec, $match, PREG_SET_ORDER); - for ($j = 0; $j < $ct; $j++) { - $spos1 = strpos($factrec, $match[$j][0], $previous_spos); - $spos2 = strpos($factrec . "\n$level", "\n$level", $spos1 + 1); - if (!$spos2) { - $spos2 = strlen($factrec); - } - $previous_spos = $spos2; - $nrec = substr($factrec, $spos1, $spos2 - $spos1); - if (!isset($match[$j][1])) { - $match[$j][1] = ''; - } - if (!preg_match('/^@(' . WT_REGEX_XREF . ')@$/', $match[$j][1], $nmatch)) { - $data .= self::printNoteRecord($tree, $match[$j][1], $nlevel, $nrec); - } else { - $note = Note::getInstance($nmatch[1], $tree); - if ($note) { - if ($note->canShow()) { - $noterec = $note->getGedcom(); - $nt = preg_match("/0 @$nmatch[1]@ NOTE (.*)/", $noterec, $n1match); - $data .= self::printNoteRecord($tree, ($nt > 0) ? $n1match[1] : '', 1, $noterec); - } - } else { - $data = '<div class="fact_NOTE"><span class="label">' . I18N::translate('Note') . '</span>: <span class="field error">' . $nmatch[1] . '</span></div>'; - } - } - } + /** + * Print all of the notes in this fact record + * + * @param Tree $tree + * @param string $factrec The factrecord to print the notes from + * @param int $level The level of the factrecord + * + * @return string HTML + */ + public static function printFactNotes(Tree $tree, $factrec, $level) + { + $data = ''; + $previous_spos = 0; + $nlevel = $level + 1; + $ct = preg_match_all("/$level NOTE (.*)/", $factrec, $match, PREG_SET_ORDER); + for ($j = 0; $j < $ct; $j++) { + $spos1 = strpos($factrec, $match[$j][0], $previous_spos); + $spos2 = strpos($factrec . "\n$level", "\n$level", $spos1 + 1); + if (!$spos2) { + $spos2 = strlen($factrec); + } + $previous_spos = $spos2; + $nrec = substr($factrec, $spos1, $spos2 - $spos1); + if (!isset($match[$j][1])) { + $match[$j][1] = ''; + } + if (!preg_match('/^@(' . WT_REGEX_XREF . ')@$/', $match[$j][1], $nmatch)) { + $data .= self::printNoteRecord($tree, $match[$j][1], $nlevel, $nrec); + } else { + $note = Note::getInstance($nmatch[1], $tree); + if ($note) { + if ($note->canShow()) { + $noterec = $note->getGedcom(); + $nt = preg_match("/0 @$nmatch[1]@ NOTE (.*)/", $noterec, $n1match); + $data .= self::printNoteRecord($tree, ($nt > 0) ? $n1match[1] : '', 1, $noterec); + } + } else { + $data = '<div class="fact_NOTE"><span class="label">' . I18N::translate('Note') . '</span>: <span class="field error">' . $nmatch[1] . '</span></div>'; + } + } + } - return $data; - } + return $data; + } - /** - * Print a link for a popup help window. - * - * @param string $topic - * - * @return string - */ - public static function helpLink($topic) { - return - FontAwesome::linkIcon('help', I18N::translate('Help'), ['data-toggle' => 'modal', 'href' => '#', 'data-target' => '#wt-ajax-modal', 'data-href' => route('help-text', ['topic' => $topic])]); - } + /** + * Print a link for a popup help window. + * + * @param string $topic + * + * @return string + */ + public static function helpLink($topic) + { + return + FontAwesome::linkIcon('help', I18N::translate('Help'), [ + 'data-toggle' => 'modal', + 'href' => '#', + 'data-target' => '#wt-ajax-modal', + 'data-href' => route('help-text', ['topic' => $topic]), + ]); + } - /** - * Format age of parents in HTML - * - * @param Individual $person child - * @param Date $birth_date - * - * @return string HTML - */ - public static function formatParentsAges(Individual $person, Date $birth_date) { - $html = ''; - $families = $person->getChildFamilies(); - // Multiple sets of parents (e.g. adoption) cause complications, so ignore. - if ($birth_date->isOK() && count($families) == 1) { - $family = current($families); - foreach ($family->getSpouses() as $parent) { - if ($parent->getBirthDate()->isOK()) { - $sex = $parent->getSexImage(); - $age = Date::getAge($parent->getBirthDate(), $birth_date, 2); - $deatdate = $parent->getDeathDate(); - switch ($parent->getSex()) { - case 'F': - // Highlight mothers who die in childbirth or shortly afterwards - if ($deatdate->isOK() && $deatdate->maximumJulianDay() < $birth_date->minimumJulianDay() + 90) { - $html .= ' <span title="' . GedcomTag::getLabel('_DEAT_PARE', $parent) . '" class="parentdeath">' . $sex . $age . '</span>'; - } else { - $html .= ' <span title="' . I18N::translate('Mother’s age') . '">' . $sex . $age . '</span>'; - } - break; - case 'M': - // Highlight fathers who die before the birth - if ($deatdate->isOK() && $deatdate->maximumJulianDay() < $birth_date->minimumJulianDay()) { - $html .= ' <span title="' . GedcomTag::getLabel('_DEAT_PARE', $parent) . '" class="parentdeath">' . $sex . $age . '</span>'; - } else { - $html .= ' <span title="' . I18N::translate('Father’s age') . '">' . $sex . $age . '</span>'; - } - break; - default: - $html .= ' <span title="' . I18N::translate('Parent’s age') . '">' . $sex . $age . '</span>'; - break; - } - } - } - if ($html) { - $html = '<span class="age">' . $html . '</span>'; - } - } + /** + * Format age of parents in HTML + * + * @param Individual $person child + * @param Date $birth_date + * + * @return string HTML + */ + public static function formatParentsAges(Individual $person, Date $birth_date) + { + $html = ''; + $families = $person->getChildFamilies(); + // Multiple sets of parents (e.g. adoption) cause complications, so ignore. + if ($birth_date->isOK() && count($families) == 1) { + $family = current($families); + foreach ($family->getSpouses() as $parent) { + if ($parent->getBirthDate()->isOK()) { + $sex = $parent->getSexImage(); + $age = Date::getAge($parent->getBirthDate(), $birth_date, 2); + $deatdate = $parent->getDeathDate(); + switch ($parent->getSex()) { + case 'F': + // Highlight mothers who die in childbirth or shortly afterwards + if ($deatdate->isOK() && $deatdate->maximumJulianDay() < $birth_date->minimumJulianDay() + 90) { + $html .= ' <span title="' . GedcomTag::getLabel('_DEAT_PARE', $parent) . '" class="parentdeath">' . $sex . $age . '</span>'; + } else { + $html .= ' <span title="' . I18N::translate('Mother’s age') . '">' . $sex . $age . '</span>'; + } + break; + case 'M': + // Highlight fathers who die before the birth + if ($deatdate->isOK() && $deatdate->maximumJulianDay() < $birth_date->minimumJulianDay()) { + $html .= ' <span title="' . GedcomTag::getLabel('_DEAT_PARE', $parent) . '" class="parentdeath">' . $sex . $age . '</span>'; + } else { + $html .= ' <span title="' . I18N::translate('Father’s age') . '">' . $sex . $age . '</span>'; + } + break; + default: + $html .= ' <span title="' . I18N::translate('Parent’s age') . '">' . $sex . $age . '</span>'; + break; + } + } + } + if ($html) { + $html = '<span class="age">' . $html . '</span>'; + } + } - return $html; - } + return $html; + } - /** - * Print fact DATE/TIME - * - * @param Fact $event event containing the date/age - * @param GedcomRecord $record the person (or couple) whose ages should be printed - * @param bool $anchor option to print a link to calendar - * @param bool $time option to print TIME value - * - * @return string - */ - public static function formatFactDate(Fact $event, GedcomRecord $record, $anchor, $time) { - global $pid; + /** + * Print fact DATE/TIME + * + * @param Fact $event event containing the date/age + * @param GedcomRecord $record the person (or couple) whose ages should be printed + * @param bool $anchor option to print a link to calendar + * @param bool $time option to print TIME value + * + * @return string + */ + public static function formatFactDate(Fact $event, GedcomRecord $record, $anchor, $time) + { + global $pid; - $factrec = $event->getGedcom(); - $html = ''; - // Recorded age - if (preg_match('/\n2 AGE (.+)/', $factrec, $match)) { - $fact_age = $match[1]; - } else { - $fact_age = ''; - } - if (preg_match('/\n2 HUSB\n3 AGE (.+)/', $factrec, $match)) { - $husb_age = $match[1]; - } else { - $husb_age = ''; - } - if (preg_match('/\n2 WIFE\n3 AGE (.+)/', $factrec, $match)) { - $wife_age = $match[1]; - } else { - $wife_age = ''; - } + $factrec = $event->getGedcom(); + $html = ''; + // Recorded age + if (preg_match('/\n2 AGE (.+)/', $factrec, $match)) { + $fact_age = $match[1]; + } else { + $fact_age = ''; + } + if (preg_match('/\n2 HUSB\n3 AGE (.+)/', $factrec, $match)) { + $husb_age = $match[1]; + } else { + $husb_age = ''; + } + if (preg_match('/\n2 WIFE\n3 AGE (.+)/', $factrec, $match)) { + $wife_age = $match[1]; + } else { + $wife_age = ''; + } - // Calculated age - $fact = $event->getTag(); - if (preg_match('/\n2 DATE (.+)/', $factrec, $match)) { - $date = new Date($match[1]); - $html .= ' ' . $date->display($anchor); - // time - if ($time && preg_match('/\n3 TIME (.+)/', $factrec, $match)) { - $html .= ' – <span class="date">' . $match[1] . '</span>'; - } - if ($record instanceof Individual) { - if ($fact === 'BIRT' && $record->getTree()->getPreference('SHOW_PARENTS_AGE')) { - // age of parents at child birth - $html .= self::formatParentsAges($record, $date); - } elseif ($fact !== 'BIRT' && $fact !== 'CHAN' && $fact !== '_TODO') { - // age at event - $birth_date = $record->getBirthDate(); - // Can't use getDeathDate(), as this also gives BURI/CREM events, which - // wouldn't give the correct "days after death" result for people with - // no DEAT. - $death_event = $record->getFirstFact('DEAT'); - if ($death_event) { - $death_date = $death_event->getDate(); - } else { - $death_date = new Date(''); - } - $ageText = ''; - if ((Date::compare($date, $death_date) <= 0 || !$record->isDead()) || $fact == 'DEAT') { - // Before death, print age - $age = Date::getAgeGedcom($birth_date, $date); - // Only show calculated age if it differs from recorded age - if ($age != '') { - if ( - $fact_age != '' && $fact_age != $age || - $fact_age == '' && $husb_age == '' && $wife_age == '' || - $husb_age != '' && $record->getSex() == 'M' && $husb_age != $age || - $wife_age != '' && $record->getSex() == 'F' && $wife_age != $age - ) { - if ($age != '0d') { - $ageText = '(' . I18N::translate('Age') . ' ' . FunctionsDate::getAgeAtEvent($age) . ')'; - } - } - } - } - if ($fact != 'DEAT' && Date::compare($date, $death_date) >= 0) { - // After death, print time since death - $age = FunctionsDate::getAgeAtEvent(Date::getAgeGedcom($death_date, $date)); - if ($age != '') { - if (Date::getAgeGedcom($death_date, $date) == '0d') { - $ageText = '(' . I18N::translate('on the date of death') . ')'; - } else { - $ageText = '(' . $age . ' ' . I18N::translate('after death') . ')'; - // Family events which occur after death are probably errors - if ($event->getParent() instanceof Family) { - $ageText .= '<i class="icon-warning"></i>'; - } - } - } - } - if ($ageText) { - $html .= ' <span class="age">' . $ageText . '</span>'; - } - } - } elseif ($record instanceof Family) { - $indi = Individual::getInstance($pid, $record->getTree()); - if ($indi) { - $birth_date = $indi->getBirthDate(); - $death_date = $indi->getDeathDate(); - $ageText = ''; - if (Date::compare($date, $death_date) <= 0) { - $age = Date::getAgeGedcom($birth_date, $date); - // Only show calculated age if it differs from recorded age - if ($age != '' && $age > 0) { - if ( - $fact_age != '' && $fact_age != $age || - $fact_age == '' && $husb_age == '' && $wife_age == '' || - $husb_age != '' && $indi->getSex() == 'M' && $husb_age != $age || - $wife_age != '' && $indi->getSex() == 'F' && $wife_age != $age - ) { - $ageText = '(' . I18N::translate('Age') . ' ' . FunctionsDate::getAgeAtEvent($age) . ')'; - } - } - } - if ($ageText) { - $html .= ' <span class="age">' . $ageText . '</span>'; - } - } - } - } elseif (strpos($factrec, "\n2 PLAC ") === false && in_array($fact, Config::emptyFacts())) { - // There is no DATE. If there is also no PLAC, then print "yes" - $html .= I18N::translate('yes'); - } - // print gedcom ages - foreach ([I18N::translate('Age') => $fact_age, I18N::translate('Husband') => $husb_age, I18N::translate('Wife') => $wife_age] as $label => $age) { - if ($age != '') { - $html .= ' <span class="label">' . $label . ':</span> <span class="age">' . FunctionsDate::getAgeAtEvent($age) . '</span>'; - } - } + // Calculated age + $fact = $event->getTag(); + if (preg_match('/\n2 DATE (.+)/', $factrec, $match)) { + $date = new Date($match[1]); + $html .= ' ' . $date->display($anchor); + // time + if ($time && preg_match('/\n3 TIME (.+)/', $factrec, $match)) { + $html .= ' – <span class="date">' . $match[1] . '</span>'; + } + if ($record instanceof Individual) { + if ($fact === 'BIRT' && $record->getTree()->getPreference('SHOW_PARENTS_AGE')) { + // age of parents at child birth + $html .= self::formatParentsAges($record, $date); + } elseif ($fact !== 'BIRT' && $fact !== 'CHAN' && $fact !== '_TODO') { + // age at event + $birth_date = $record->getBirthDate(); + // Can't use getDeathDate(), as this also gives BURI/CREM events, which + // wouldn't give the correct "days after death" result for people with + // no DEAT. + $death_event = $record->getFirstFact('DEAT'); + if ($death_event) { + $death_date = $death_event->getDate(); + } else { + $death_date = new Date(''); + } + $ageText = ''; + if ((Date::compare($date, $death_date) <= 0 || !$record->isDead()) || $fact == 'DEAT') { + // Before death, print age + $age = Date::getAgeGedcom($birth_date, $date); + // Only show calculated age if it differs from recorded age + if ($age != '') { + if ( + $fact_age != '' && $fact_age != $age || + $fact_age == '' && $husb_age == '' && $wife_age == '' || + $husb_age != '' && $record->getSex() == 'M' && $husb_age != $age || + $wife_age != '' && $record->getSex() == 'F' && $wife_age != $age + ) { + if ($age != '0d') { + $ageText = '(' . I18N::translate('Age') . ' ' . FunctionsDate::getAgeAtEvent($age) . ')'; + } + } + } + } + if ($fact != 'DEAT' && Date::compare($date, $death_date) >= 0) { + // After death, print time since death + $age = FunctionsDate::getAgeAtEvent(Date::getAgeGedcom($death_date, $date)); + if ($age != '') { + if (Date::getAgeGedcom($death_date, $date) == '0d') { + $ageText = '(' . I18N::translate('on the date of death') . ')'; + } else { + $ageText = '(' . $age . ' ' . I18N::translate('after death') . ')'; + // Family events which occur after death are probably errors + if ($event->getParent() instanceof Family) { + $ageText .= '<i class="icon-warning"></i>'; + } + } + } + } + if ($ageText) { + $html .= ' <span class="age">' . $ageText . '</span>'; + } + } + } elseif ($record instanceof Family) { + $indi = Individual::getInstance($pid, $record->getTree()); + if ($indi) { + $birth_date = $indi->getBirthDate(); + $death_date = $indi->getDeathDate(); + $ageText = ''; + if (Date::compare($date, $death_date) <= 0) { + $age = Date::getAgeGedcom($birth_date, $date); + // Only show calculated age if it differs from recorded age + if ($age != '' && $age > 0) { + if ( + $fact_age != '' && $fact_age != $age || + $fact_age == '' && $husb_age == '' && $wife_age == '' || + $husb_age != '' && $indi->getSex() == 'M' && $husb_age != $age || + $wife_age != '' && $indi->getSex() == 'F' && $wife_age != $age + ) { + $ageText = '(' . I18N::translate('Age') . ' ' . FunctionsDate::getAgeAtEvent($age) . ')'; + } + } + } + if ($ageText) { + $html .= ' <span class="age">' . $ageText . '</span>'; + } + } + } + } elseif (strpos($factrec, "\n2 PLAC ") === false && in_array($fact, Config::emptyFacts())) { + // There is no DATE. If there is also no PLAC, then print "yes" + $html .= I18N::translate('yes'); + } + // print gedcom ages + foreach ([ + I18N::translate('Age') => $fact_age, + I18N::translate('Husband') => $husb_age, + I18N::translate('Wife') => $wife_age, + ] as $label => $age) { + if ($age != '') { + $html .= ' <span class="label">' . $label . ':</span> <span class="age">' . FunctionsDate::getAgeAtEvent($age) . '</span>'; + } + } - return $html; - } + return $html; + } - /** - * print fact PLACe TEMPle STATus - * - * @param Fact $event gedcom fact record - * @param bool $anchor to print a link to placelist - * @param bool $sub_records to print place subrecords - * @param bool $lds to print LDS TEMPle and STATus - * - * @return string HTML - */ - public static function formatFactPlace(Fact $event, $anchor = false, $sub_records = false, $lds = false) { - $tree = $event->getParent()->getTree(); + /** + * print fact PLACe TEMPle STATus + * + * @param Fact $event gedcom fact record + * @param bool $anchor to print a link to placelist + * @param bool $sub_records to print place subrecords + * @param bool $lds to print LDS TEMPle and STATus + * + * @return string HTML + */ + public static function formatFactPlace(Fact $event, $anchor = false, $sub_records = false, $lds = false) + { + $tree = $event->getParent()->getTree(); - if ($anchor) { - // Show the full place name, for facts/events tab - $html = '<a href="' . $event->getPlace()->getURL() . '">' . $event->getPlace()->getFullName() . '</a>'; - } else { - // Abbreviate the place name, for chart boxes - return $event->getPlace()->getShortName(); - } + if ($anchor) { + // Show the full place name, for facts/events tab + $html = '<a href="' . $event->getPlace()->getURL() . '">' . $event->getPlace()->getFullName() . '</a>'; + } else { + // Abbreviate the place name, for chart boxes + return $event->getPlace()->getShortName(); + } - if ($sub_records) { - $placerec = Functions::getSubRecord(2, '2 PLAC', $event->getGedcom()); - if (!empty($placerec)) { - if (preg_match_all('/\n3 (?:_HEB|ROMN) (.+)/', $placerec, $matches)) { - foreach ($matches[1] as $match) { - $wt_place = new Place($match, $tree); - $html .= ' - ' . $wt_place->getFullName(); - } - } - $map_lati = ''; - $cts = preg_match('/\d LATI (.*)/', $placerec, $match); - if ($cts > 0) { - $map_lati = $match[1]; - $html .= '<br><span class="label">' . I18N::translate('Latitude') . ': </span>' . $map_lati; - } - $map_long = ''; - $cts = preg_match('/\d LONG (.*)/', $placerec, $match); - if ($cts > 0) { - $map_long = $match[1]; - $html .= ' <span class="label">' . I18N::translate('Longitude') . ': </span>' . $map_long; - } - if ($map_lati && $map_long) { - $map_lati = trim(strtr($map_lati, 'NSEW,�', ' - -. ')); // S5,6789 ==> -5.6789 - $map_long = trim(strtr($map_long, 'NSEW,�', ' - -. ')); // E3.456� ==> 3.456 - $html .= FontAwesome::linkIcon('google-maps', I18N::translate('Google Maps™'), ['class' => 'btn btn-link', 'url' => 'https://maps.google.com/maps?q=' . $map_lati . ',' . $map_long, 'rel' => 'nofollow']); - $html .= FontAwesome::linkIcon('bing-maps', I18N::translate('Bing Maps™'), ['class' => 'btn btn-link', 'url' => 'https://www.bing.com/maps/?lvl=15&cp=' . $map_lati . '~' . $map_long, 'rel' => 'nofollow']); - $html .= FontAwesome::linkIcon('openstreetmap', I18N::translate('OpenStreetMap™'), ['class' => 'btn btn-link', 'url' => 'https://www.openstreetmap.org/#map=15/' . $map_lati . '/' . $map_long, 'rel' => 'nofollow']); - } - if (preg_match('/\d NOTE (.*)/', $placerec, $match)) { - $html .= '<br>' . self::printFactNotes($tree, $placerec, 3); - } - } - } - if ($lds) { - if (preg_match('/2 TEMP (.*)/', $event->getGedcom(), $match)) { - $html .= '<br>' . I18N::translate('LDS temple') . ': ' . GedcomCodeTemp::templeName($match[1]); - } - if (preg_match('/2 STAT (.*)/', $event->getGedcom(), $match)) { - $html .= '<br>' . I18N::translate('Status') . ': ' . GedcomCodeStat::statusName($match[1]); - if (preg_match('/3 DATE (.*)/', $event->getGedcom(), $match)) { - $date = new Date($match[1]); - $html .= ', ' . GedcomTag::getLabel('STAT:DATE') . ': ' . $date->display(); - } - } - } + if ($sub_records) { + $placerec = Functions::getSubRecord(2, '2 PLAC', $event->getGedcom()); + if (!empty($placerec)) { + if (preg_match_all('/\n3 (?:_HEB|ROMN) (.+)/', $placerec, $matches)) { + foreach ($matches[1] as $match) { + $wt_place = new Place($match, $tree); + $html .= ' - ' . $wt_place->getFullName(); + } + } + $map_lati = ''; + $cts = preg_match('/\d LATI (.*)/', $placerec, $match); + if ($cts > 0) { + $map_lati = $match[1]; + $html .= '<br><span class="label">' . I18N::translate('Latitude') . ': </span>' . $map_lati; + } + $map_long = ''; + $cts = preg_match('/\d LONG (.*)/', $placerec, $match); + if ($cts > 0) { + $map_long = $match[1]; + $html .= ' <span class="label">' . I18N::translate('Longitude') . ': </span>' . $map_long; + } + if ($map_lati && $map_long) { + $map_lati = trim(strtr($map_lati, 'NSEW,�', ' - -. ')); // S5,6789 ==> -5.6789 + $map_long = trim(strtr($map_long, 'NSEW,�', ' - -. ')); // E3.456� ==> 3.456 + $html .= FontAwesome::linkIcon('google-maps', I18N::translate('Google Maps™'), [ + 'class' => 'btn btn-link', + 'url' => 'https://maps.google.com/maps?q=' . $map_lati . ',' . $map_long, + 'rel' => 'nofollow', + ]); + $html .= FontAwesome::linkIcon('bing-maps', I18N::translate('Bing Maps™'), [ + 'class' => 'btn btn-link', + 'url' => 'https://www.bing.com/maps/?lvl=15&cp=' . $map_lati . '~' . $map_long, + 'rel' => 'nofollow', + ]); + $html .= FontAwesome::linkIcon('openstreetmap', I18N::translate('OpenStreetMap™'), [ + 'class' => 'btn btn-link', + 'url' => 'https://www.openstreetmap.org/#map=15/' . $map_lati . '/' . $map_long, + 'rel' => 'nofollow', + ]); + } + if (preg_match('/\d NOTE (.*)/', $placerec, $match)) { + $html .= '<br>' . self::printFactNotes($tree, $placerec, 3); + } + } + } + if ($lds) { + if (preg_match('/2 TEMP (.*)/', $event->getGedcom(), $match)) { + $html .= '<br>' . I18N::translate('LDS temple') . ': ' . GedcomCodeTemp::templeName($match[1]); + } + if (preg_match('/2 STAT (.*)/', $event->getGedcom(), $match)) { + $html .= '<br>' . I18N::translate('Status') . ': ' . GedcomCodeStat::statusName($match[1]); + if (preg_match('/3 DATE (.*)/', $event->getGedcom(), $match)) { + $date = new Date($match[1]); + $html .= ', ' . GedcomTag::getLabel('STAT:DATE') . ': ' . $date->display(); + } + } + } - return $html; - } + return $html; + } - /** - * Check for facts that may exist only once for a certain record type. - * If the fact already exists in the second array, delete it from the first one. - * - * @param string[] $uniquefacts - * @param Fact[] $recfacts - * @param string $type - * - * @return string[] - */ - public static function checkFactUnique($uniquefacts, $recfacts, $type) { - foreach ($recfacts as $factarray) { - $fact = false; - if (is_object($factarray)) { - $fact = $factarray->getTag(); - } else { - if ($type === 'SOUR' || $type === 'REPO') { - $factrec = $factarray[0]; - } - if ($type === 'FAM' || $type === 'INDI') { - $factrec = $factarray[1]; - } + /** + * Check for facts that may exist only once for a certain record type. + * If the fact already exists in the second array, delete it from the first one. + * + * @param string[] $uniquefacts + * @param Fact[] $recfacts + * @param string $type + * + * @return string[] + */ + public static function checkFactUnique($uniquefacts, $recfacts, $type) + { + foreach ($recfacts as $factarray) { + $fact = false; + if (is_object($factarray)) { + $fact = $factarray->getTag(); + } else { + if ($type === 'SOUR' || $type === 'REPO') { + $factrec = $factarray[0]; + } + if ($type === 'FAM' || $type === 'INDI') { + $factrec = $factarray[1]; + } - $ft = preg_match("/1 (\w+)(.*)/", $factrec, $match); - if ($ft > 0) { - $fact = trim($match[1]); - } - } - if ($fact !== false) { - $key = array_search($fact, $uniquefacts); - if ($key !== false) { - unset($uniquefacts[$key]); - } - } - } + $ft = preg_match("/1 (\w+)(.*)/", $factrec, $match); + if ($ft > 0) { + $fact = trim($match[1]); + } + } + if ($fact !== false) { + $key = array_search($fact, $uniquefacts); + if ($key !== false) { + unset($uniquefacts[$key]); + } + } + } - return $uniquefacts; - } + return $uniquefacts; + } - /** - * Print a new fact box on details pages - * - * @param GedcomRecord $record the person, family, source etc the fact will be added to - * @param array $usedfacts an array of facts already used in this record - * @param string $type the type of record INDI, FAM, SOUR etc - */ - public static function printAddNewFact(GedcomRecord $record, $usedfacts, $type) { - $tree = $record->getTree(); + /** + * Print a new fact box on details pages + * + * @param GedcomRecord $record the person, family, source etc the fact will be added to + * @param array $usedfacts an array of facts already used in this record + * @param string $type the type of record INDI, FAM, SOUR etc + */ + public static function printAddNewFact(GedcomRecord $record, $usedfacts, $type) + { + $tree = $record->getTree(); - // -- Add from clipboard - if (is_array(Session::get('clipboard'))) { - $newRow = true; - foreach (array_reverse(Session::get('clipboard'), true) as $fact_id => $fact) { - if ($fact['type'] == $type || $fact['type'] == 'all') { - if ($newRow) { - $newRow = false; - echo '<tr><th scope="row">'; - echo I18N::translate('Add from clipboard'), '</th>'; - echo '<td><form name="newFromClipboard" onsubmit="return false;">'; - echo '<select id="newClipboardFact">'; - } - echo '<option value="', e($fact_id), '">', GedcomTag::getLabel($fact['fact']); - // TODO use the event class to store/parse the clipboard events - if (preg_match('/^2 DATE (.+)/m', $fact['factrec'], $match)) { - $tmp = new Date($match[1]); - echo '; ', $tmp->minimumDate()->format('%Y'); - } - if (preg_match('/^2 PLAC ([^,\n]+)/m', $fact['factrec'], $match)) { - echo '; ', $match[1]; - } - echo '</option>'; - } - } - if (!$newRow) { - echo '</select>'; - echo ' <input type="button" value="', /* I18N: A button label. */ I18N::translate('add'), '" onclick="return paste_fact(\'' . e($tree->getName()) . '\',\'' . e($record->getXref()) . '\', \'#newClipboardFact\');"> '; - echo '</form></td></tr>', "\n"; - } - } + // -- Add from clipboard + if (is_array(Session::get('clipboard'))) { + $newRow = true; + foreach (array_reverse(Session::get('clipboard'), true) as $fact_id => $fact) { + if ($fact['type'] == $type || $fact['type'] == 'all') { + if ($newRow) { + $newRow = false; + echo '<tr><th scope="row">'; + echo I18N::translate('Add from clipboard'), '</th>'; + echo '<td><form name="newFromClipboard" onsubmit="return false;">'; + echo '<select id="newClipboardFact">'; + } + echo '<option value="', e($fact_id), '">', GedcomTag::getLabel($fact['fact']); + // TODO use the event class to store/parse the clipboard events + if (preg_match('/^2 DATE (.+)/m', $fact['factrec'], $match)) { + $tmp = new Date($match[1]); + echo '; ', $tmp->minimumDate()->format('%Y'); + } + if (preg_match('/^2 PLAC ([^,\n]+)/m', $fact['factrec'], $match)) { + echo '; ', $match[1]; + } + echo '</option>'; + } + } + if (!$newRow) { + echo '</select>'; + echo ' <input type="button" value="', /* I18N: A button label. */ + I18N::translate('add'), '" onclick="return paste_fact(\'' . e($tree->getName()) . '\',\'' . e($record->getXref()) . '\', \'#newClipboardFact\');"> '; + echo '</form></td></tr>', "\n"; + } + } - // -- Add from pick list - switch ($type) { - case 'INDI': - $addfacts = preg_split('/[, ;:]+/', $tree->getPreference('INDI_FACTS_ADD'), -1, PREG_SPLIT_NO_EMPTY); - $uniquefacts = preg_split('/[, ;:]+/', $tree->getPreference('INDI_FACTS_UNIQUE'), -1, PREG_SPLIT_NO_EMPTY); - $quickfacts = preg_split('/[, ;:]+/', $tree->getPreference('INDI_FACTS_QUICK'), -1, PREG_SPLIT_NO_EMPTY); - break; - case 'FAM': - $addfacts = preg_split('/[, ;:]+/', $tree->getPreference('FAM_FACTS_ADD'), -1, PREG_SPLIT_NO_EMPTY); - $uniquefacts = preg_split('/[, ;:]+/', $tree->getPreference('FAM_FACTS_UNIQUE'), -1, PREG_SPLIT_NO_EMPTY); - $quickfacts = preg_split('/[, ;:]+/', $tree->getPreference('FAM_FACTS_QUICK'), -1, PREG_SPLIT_NO_EMPTY); - break; - case 'SOUR': - $addfacts = preg_split('/[, ;:]+/', $tree->getPreference('SOUR_FACTS_ADD'), -1, PREG_SPLIT_NO_EMPTY); - $uniquefacts = preg_split('/[, ;:]+/', $tree->getPreference('SOUR_FACTS_UNIQUE'), -1, PREG_SPLIT_NO_EMPTY); - $quickfacts = preg_split('/[, ;:]+/', $tree->getPreference('SOUR_FACTS_QUICK'), -1, PREG_SPLIT_NO_EMPTY); - break; - case 'NOTE': - $addfacts = preg_split('/[, ;:]+/', $tree->getPreference('NOTE_FACTS_ADD'), -1, PREG_SPLIT_NO_EMPTY); - $uniquefacts = preg_split('/[, ;:]+/', $tree->getPreference('NOTE_FACTS_UNIQUE'), -1, PREG_SPLIT_NO_EMPTY); - $quickfacts = preg_split('/[, ;:]+/', $tree->getPreference('NOTE_FACTS_QUICK'), -1, PREG_SPLIT_NO_EMPTY); - break; - case 'REPO': - $addfacts = preg_split('/[, ;:]+/', $tree->getPreference('REPO_FACTS_ADD'), -1, PREG_SPLIT_NO_EMPTY); - $uniquefacts = preg_split('/[, ;:]+/', $tree->getPreference('REPO_FACTS_UNIQUE'), -1, PREG_SPLIT_NO_EMPTY); - $quickfacts = preg_split('/[, ;:]+/', $tree->getPreference('REPO_FACTS_QUICK'), -1, PREG_SPLIT_NO_EMPTY); - break; - case 'OBJE': - $addfacts = ['NOTE']; - $uniquefacts = ['_PRIM']; - $quickfacts = []; - break; - default: - return; - } - $addfacts = array_merge(self::checkFactUnique($uniquefacts, $usedfacts, $type), $addfacts); - $quickfacts = array_intersect($quickfacts, $addfacts); - $translated_addfacts = []; - foreach ($addfacts as $addfact) { - $translated_addfacts[$addfact] = GedcomTag::getLabel($addfact); - } - uasort($translated_addfacts, function ($x, $y) { - return I18N::strcasecmp(I18N::translate($x), I18N::translate($y)); - }); - echo '<tr><th scope="row">'; - echo I18N::translate('Fact or event'); - echo '</th>'; - echo '<td>'; - echo '<form onsubmit="if ($("#add-fact").val() === null) {event.preventDefault();}">'; - echo '<input type="hidden" name="route" value="add-fact">'; - echo '<input type="hidden" name="xref" value="' . e($record->getXref()) . '">'; - echo '<input type="hidden" name="ged" value="' . e($tree->getName()) . '">'; - echo '<select id="add-fact" name="fact">'; - echo '<option value="" disabled selected>' . I18N::translate('<select>') . '</option>'; - foreach ($translated_addfacts as $fact => $fact_name) { - echo '<option value="', $fact, '">', $fact_name, '</option>'; - } - if ($type == 'INDI' || $type == 'FAM') { - echo '<option value="FACT">', I18N::translate('Custom fact'), '</option>'; - echo '<option value="EVEN">', I18N::translate('Custom event'), '</option>'; - } - echo '</select>'; - echo '<input type="submit" value="', /* I18N: A button label. */ I18N::translate('add'), '">'; - echo '</form>'; - echo '<span class="quickfacts">'; - foreach ($quickfacts as $fact) { - echo '<a href="' . e(route('add-fact', ['fact' => $fact, 'xref' => $record->getXref(), 'ged' => $tree->getName()])) . '">', GedcomTag::getLabel($fact), '</a>'; - } - echo '</span>'; - echo '</td></tr>'; - } + // -- Add from pick list + switch ($type) { + case 'INDI': + $addfacts = preg_split('/[, ;:]+/', $tree->getPreference('INDI_FACTS_ADD'), -1, PREG_SPLIT_NO_EMPTY); + $uniquefacts = preg_split('/[, ;:]+/', $tree->getPreference('INDI_FACTS_UNIQUE'), -1, PREG_SPLIT_NO_EMPTY); + $quickfacts = preg_split('/[, ;:]+/', $tree->getPreference('INDI_FACTS_QUICK'), -1, PREG_SPLIT_NO_EMPTY); + break; + case 'FAM': + $addfacts = preg_split('/[, ;:]+/', $tree->getPreference('FAM_FACTS_ADD'), -1, PREG_SPLIT_NO_EMPTY); + $uniquefacts = preg_split('/[, ;:]+/', $tree->getPreference('FAM_FACTS_UNIQUE'), -1, PREG_SPLIT_NO_EMPTY); + $quickfacts = preg_split('/[, ;:]+/', $tree->getPreference('FAM_FACTS_QUICK'), -1, PREG_SPLIT_NO_EMPTY); + break; + case 'SOUR': + $addfacts = preg_split('/[, ;:]+/', $tree->getPreference('SOUR_FACTS_ADD'), -1, PREG_SPLIT_NO_EMPTY); + $uniquefacts = preg_split('/[, ;:]+/', $tree->getPreference('SOUR_FACTS_UNIQUE'), -1, PREG_SPLIT_NO_EMPTY); + $quickfacts = preg_split('/[, ;:]+/', $tree->getPreference('SOUR_FACTS_QUICK'), -1, PREG_SPLIT_NO_EMPTY); + break; + case 'NOTE': + $addfacts = preg_split('/[, ;:]+/', $tree->getPreference('NOTE_FACTS_ADD'), -1, PREG_SPLIT_NO_EMPTY); + $uniquefacts = preg_split('/[, ;:]+/', $tree->getPreference('NOTE_FACTS_UNIQUE'), -1, PREG_SPLIT_NO_EMPTY); + $quickfacts = preg_split('/[, ;:]+/', $tree->getPreference('NOTE_FACTS_QUICK'), -1, PREG_SPLIT_NO_EMPTY); + break; + case 'REPO': + $addfacts = preg_split('/[, ;:]+/', $tree->getPreference('REPO_FACTS_ADD'), -1, PREG_SPLIT_NO_EMPTY); + $uniquefacts = preg_split('/[, ;:]+/', $tree->getPreference('REPO_FACTS_UNIQUE'), -1, PREG_SPLIT_NO_EMPTY); + $quickfacts = preg_split('/[, ;:]+/', $tree->getPreference('REPO_FACTS_QUICK'), -1, PREG_SPLIT_NO_EMPTY); + break; + case 'OBJE': + $addfacts = ['NOTE']; + $uniquefacts = ['_PRIM']; + $quickfacts = []; + break; + default: + return; + } + $addfacts = array_merge(self::checkFactUnique($uniquefacts, $usedfacts, $type), $addfacts); + $quickfacts = array_intersect($quickfacts, $addfacts); + $translated_addfacts = []; + foreach ($addfacts as $addfact) { + $translated_addfacts[$addfact] = GedcomTag::getLabel($addfact); + } + uasort($translated_addfacts, function ($x, $y) { + return I18N::strcasecmp(I18N::translate($x), I18N::translate($y)); + }); + echo '<tr><th scope="row">'; + echo I18N::translate('Fact or event'); + echo '</th>'; + echo '<td>'; + echo '<form onsubmit="if ($("#add-fact").val() === null) {event.preventDefault();}">'; + echo '<input type="hidden" name="route" value="add-fact">'; + echo '<input type="hidden" name="xref" value="' . e($record->getXref()) . '">'; + echo '<input type="hidden" name="ged" value="' . e($tree->getName()) . '">'; + echo '<select id="add-fact" name="fact">'; + echo '<option value="" disabled selected>' . I18N::translate('<select>') . '</option>'; + foreach ($translated_addfacts as $fact => $fact_name) { + echo '<option value="', $fact, '">', $fact_name, '</option>'; + } + if ($type == 'INDI' || $type == 'FAM') { + echo '<option value="FACT">', I18N::translate('Custom fact'), '</option>'; + echo '<option value="EVEN">', I18N::translate('Custom event'), '</option>'; + } + echo '</select>'; + echo '<input type="submit" value="', /* I18N: A button label. */ + I18N::translate('add'), '">'; + echo '</form>'; + echo '<span class="quickfacts">'; + foreach ($quickfacts as $fact) { + echo '<a href="' . e(route('add-fact', [ + 'fact' => $fact, + 'xref' => $record->getXref(), + 'ged' => $tree->getName(), + ])) . '">', GedcomTag::getLabel($fact), '</a>'; + } + echo '</span>'; + echo '</td></tr>'; + } - /** - * Summary of LDS ordinances. - * - * @param Individual $individual - * - * @return string - */ - public static function getLdsSummary(Individual $individual) { - $BAPL = $individual->getFacts('BAPL') ? 'B' : '_'; - $ENDL = $individual->getFacts('ENDL') ? 'E' : '_'; - $SLGC = $individual->getFacts('SLGC') ? 'C' : '_'; - $SLGS = '_'; + /** + * Summary of LDS ordinances. + * + * @param Individual $individual + * + * @return string + */ + public static function getLdsSummary(Individual $individual) + { + $BAPL = $individual->getFacts('BAPL') ? 'B' : '_'; + $ENDL = $individual->getFacts('ENDL') ? 'E' : '_'; + $SLGC = $individual->getFacts('SLGC') ? 'C' : '_'; + $SLGS = '_'; - foreach ($individual->getSpouseFamilies() as $family) { - if ($family->getFacts('SLGS')) { - $SLGS = ''; - } - } + foreach ($individual->getSpouseFamilies() as $family) { + if ($family->getFacts('SLGS')) { + $SLGS = ''; + } + } - return $BAPL . $ENDL . $SLGS . $SLGC; - } + return $BAPL . $ENDL . $SLGS . $SLGC; + } } |