'));
}
if ($tree->getPreference('EXPAND_NOTES')) {
// A multi-line note, and we're expanding notes by default
return GedcomTag::getLabelValue($label, $html);
}
// 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 = '' . $note->fullName() . '';
} else {
[$text] = explode("\n", strip_tags($html));
$first_line = Str::limit($text, 100, I18N::translate('…'));
}
return
'' .
' ' . GedcomTag::getLabel($label) . ': ' . '
' . $first_line . '' .
'
' .
'' . $html . '
';
}
/**
* 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): string
{
$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('/^@(' . Gedcom::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->gedcom();
$nt = preg_match("/0 @$nmatch[1]@ NOTE (.*)/", $noterec, $n1match);
$data .= self::printNoteRecord($tree, ($nt > 0) ? $n1match[1] : '', 1, $noterec);
}
} else {
$data = '' . I18N::translate('Note') . ': ' . $nmatch[1] . '
';
}
}
}
return $data;
}
/**
* Print a link for a popup help window.
*
* @param string $topic
*
* @return string
*/
public static function helpLink($topic): string
{
return
'' .
view('icons/help') .
'' . I18N::translate('Help') . '' .
'';
}
/**
* 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): string
{
$html = '';
$families = $person->childFamilies();
// Multiple sets of parents (e.g. adoption) cause complications, so ignore.
if ($birth_date->isOK() && $families->count() === 1) {
$family = $families->first();
foreach ($family->spouses() as $parent) {
if ($parent->getBirthDate()->isOK()) {
$sex = $parent->getSexImage();
$age = Date::getAge($parent->getBirthDate(), $birth_date);
$deatdate = $parent->getDeathDate();
switch ($parent->sex()) {
case 'F':
// Highlight mothers who die in childbirth or shortly afterwards
if ($deatdate->isOK() && $deatdate->maximumJulianDay() < $birth_date->minimumJulianDay() + 90) {
$html .= ' ' . $sex . $age . '';
} else {
$html .= ' ' . $sex . $age . '';
}
break;
case 'M':
// Highlight fathers who die before the birth
if ($deatdate->isOK() && $deatdate->maximumJulianDay() < $birth_date->minimumJulianDay()) {
$html .= ' ' . $sex . $age . '';
} else {
$html .= ' ' . $sex . $age . '';
}
break;
default:
$html .= ' ' . $sex . $age . '';
break;
}
}
}
if ($html) {
$html = '' . $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): string
{
$factrec = $event->gedcom();
$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 .= ' – ' . $match[1] . '';
}
if ($record instanceof Individual) {
if (in_array($fact, Gedcom::BIRTH_EVENTS) && $record->tree()->getPreference('SHOW_PARENTS_AGE')) {
// age of parents at child birth
$html .= self::formatParentsAges($record, $date);
}
if ($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->facts(['DEAT'])->first();
if ($death_event) {
$death_date = $death_event->date();
} 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 !== '' && $age !== '0d') {
if (
$fact_age !== '' && $fact_age !== $age ||
$fact_age === '' && $husb_age === '' && $wife_age === '' ||
$husb_age !== '' && $record->sex() === 'M' && $husb_age !== $age ||
$wife_age !== '' && $record->sex() === 'F' && $wife_age !== $age
) {
$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->record() instanceof Family) {
$ageText .= view('icons/warning');
}
}
}
}
if ($ageText) {
$html .= ' ' . $ageText . '';
}
}
}
} 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 .= ' ' . $label . ': ' . FunctionsDate::getAgeAtEvent($age) . '';
}
}
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): string
{
$tree = $event->record()->tree();
if ($anchor) {
// Show the full place name, for facts/events tab
$html = $event->place()->fullName(true);
} else {
// Abbreviate the place name, for chart boxes
return $event->place()->shortName();
}
if ($sub_records) {
$placerec = Functions::getSubRecord(2, '2 PLAC', $event->gedcom());
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->fullName();
}
}
$map_lati = '';
$cts = preg_match('/\d LATI (.*)/', $placerec, $match);
if ($cts > 0) {
$map_lati = $match[1];
$html .= '
' . I18N::translate('Latitude') . ': ' . $map_lati;
}
$map_long = '';
$cts = preg_match('/\d LONG (.*)/', $placerec, $match);
if ($cts > 0) {
$map_long = $match[1];
$html .= ' ' . I18N::translate('Longitude') . ': ' . $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 .= '' .
view('icons/google-maps') .
'' . I18N::translate('Google Maps™') . '' .
'';
$html .= '' .
view('icons/bing-maps') .
'' . I18N::translate('Bing Maps™') . '' .
'';
$html .= '' .
view('icons/openstreetmap') .
'' . I18N::translate('OpenStreetMap™') . '' .
'';
}
if (preg_match('/\d NOTE (.*)/', $placerec, $match)) {
$html .= '
' . self::printFactNotes($tree, $placerec, 3);
}
}
}
if ($lds) {
if (preg_match('/2 TEMP (.*)/', $event->gedcom(), $match)) {
$html .= '
' . I18N::translate('LDS temple') . ': ' . GedcomCodeTemp::templeName($match[1]);
}
if (preg_match('/2 STAT (.*)/', $event->gedcom(), $match)) {
$html .= '
' . I18N::translate('Status') . ': ' . GedcomCodeStat::statusName($match[1]);
if (preg_match('/3 DATE (.*)/', $event->gedcom(), $match)) {
$date = new Date($match[1]);
$html .= ', ' . GedcomTag::getLabel('STAT:DATE') . ': ' . $date->display();
}
}
}
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 Collection $recfacts
*
* @return string[]
*/
public static function checkFactUnique(array $uniquefacts, Collection $recfacts): array
{
foreach ($recfacts as $factarray) {
$fact = $factarray->getTag();
$key = array_search($fact, $uniquefacts);
if ($key !== false) {
unset($uniquefacts[$key]);
}
}
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 Collection $usedfacts an array of facts already used in this record
* @param string $type the type of record INDI, FAM, SOUR etc
*
* @return void
*/
public static function printAddNewFact(GedcomRecord $record, Collection $usedfacts, $type): void
{
$tree = $record->tree();
// -- 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), $addfacts);
$quickfacts = array_intersect($quickfacts, $addfacts);
$translated_addfacts = [];
foreach ($addfacts as $addfact) {
$translated_addfacts[$addfact] = GedcomTag::getLabel($addfact);
}
uasort($translated_addfacts, function (string $x, string $y): int {
return I18N::strcasecmp(I18N::translate($x), I18N::translate($y));
});
echo view('edit/add-fact-row', [
'add_facts' => $translated_addfacts,
'quick_facts' => $quickfacts,
'record' => $record,
]);
}
}