diff options
Diffstat (limited to 'includes/functions/functions_print_facts.php')
| -rw-r--r-- | includes/functions/functions_print_facts.php | 1144 |
1 files changed, 0 insertions, 1144 deletions
diff --git a/includes/functions/functions_print_facts.php b/includes/functions/functions_print_facts.php deleted file mode 100644 index 6d66cbe772..0000000000 --- a/includes/functions/functions_print_facts.php +++ /dev/null @@ -1,1144 +0,0 @@ -<?php - -/** - * webtrees: online genealogy - * Copyright (C) 2015 webtrees development team - * This program is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * You should have received a copy of the GNU General Public License - * along with this program. If not, see <http://www.gnu.org/licenses/>. - */ - -use Fisharebest\Webtrees\Auth; -use Fisharebest\Webtrees\Date; -use Fisharebest\Webtrees\Fact; -use Fisharebest\Webtrees\Family; -use Fisharebest\Webtrees\Filter; -use Fisharebest\Webtrees\GedcomCode\GedcomCodeAdop; -use Fisharebest\Webtrees\GedcomCode\GedcomCodeQuay; -use Fisharebest\Webtrees\GedcomRecord; -use Fisharebest\Webtrees\GedcomTag; -use Fisharebest\Webtrees\I18N; -use Fisharebest\Webtrees\Individual; -use Fisharebest\Webtrees\Media; -use Fisharebest\Webtrees\Module; -use Fisharebest\Webtrees\Module\CensusAssistantModule; -use Fisharebest\Webtrees\Note; -use Fisharebest\Webtrees\Repository; -use Fisharebest\Webtrees\Source; -use Fisharebest\Webtrees\Theme; -use Fisharebest\Webtrees\User; -use Rhumsaa\Uuid\Uuid; - -/** - * Print a fact record, for the individual/family/source/repository/etc. pages. - * - * Although a Fact has a parent object, we also need to know - * the GedcomRecord for which we are printing it. For example, - * we can show the death of X on the page of Y, or the marriage - * of X+Y on the page of Z. We need to know both records to - * calculate ages, relationships, etc. - * - * @param Fact $fact - * @param GedcomRecord $record - */ -function print_fact(Fact $fact, GedcomRecord $record) { - static $n_chil = 0, $n_gchi = 0; - - $parent = $fact->getParent(); - - // Some facts don't get printed here ... - switch ($fact->getTag()) { - case 'NOTE': - print_main_notes($fact, 1); - - return; - case 'SOUR': - print_main_sources($fact, 1); - - return; - case 'OBJE': - print_main_media($fact, 1); - - return; - case 'FAMC': - case 'FAMS': - case 'CHIL': - case 'HUSB': - case 'WIFE': - // These are internal links, not facts - return; - case '_WT_OBJE_SORT': - // These links are used internally to record the sort order. - return; - default: - // Hide unrecognized/custom tags? - if ($fact->getParent()->getTree()->getPreference('HIDE_GEDCOM_ERRORS') && !GedcomTag::isTag($fact->getTag())) { - return; - } - break; - } - - // Who is this fact about? Need it to translate fact label correctly - if ($parent instanceof Family && $record instanceof Individual) { - // Family event - $label_person = $fact->getParent()->getSpouse($record); - } else { - // Individual event - $label_person = $parent; - } - - // New or deleted facts need different styling - $styleadd = ''; - if ($fact->isPendingAddition()) { - $styleadd = 'new'; - } - if ($fact->isPendingDeletion()) { - $styleadd = 'old'; - } - - // Event of close relative - if (preg_match('/^_[A-Z_]{3,5}_[A-Z0-9]{4}$/', $fact->getTag())) { - $styleadd = trim($styleadd . ' rela'); - } - - // Event of close associates - if ($fact->getFactId() == 'asso') { - $styleadd = trim($styleadd . ' rela'); - } - - // historical facts - if ($fact->getFactId() == 'histo') { - $styleadd = trim($styleadd . ' histo'); - } - - // Does this fact have a type? - if (preg_match('/\n2 TYPE (.+)/', $fact->getGedcom(), $match)) { - $type = $match[1]; - } else { - $type = ''; - } - - switch ($fact->getTag()) { - case 'EVEN': - case 'FACT': - if (GedcomTag::isTag($type)) { - // Some users (just Meliza?) use "1 EVEN/2 TYPE BIRT". Translate the TYPE. - $label = GedcomTag::getLabel($type, $label_person); - $type = ''; // Do not print this again - } elseif ($type) { - // We don't have a translation for $type - but a custom translation might exist. - $label = I18N::translate(Filter::escapeHtml($type)); - $type = ''; // Do not print this again - } else { - // An unspecified fact/event - $label = $fact->getLabel(); - } - break; - case 'MARR': - // This is a hack for a proprietory extension. Is it still used/needed? - $utype = strtoupper($type); - if ($utype == 'CIVIL' || $utype == 'PARTNERS' || $utype == 'RELIGIOUS') { - $label = GedcomTag::getLabel('MARR_' . $utype, $label_person); - $type = ''; // Do not print this again - } else { - $label = $fact->getLabel(); - } - break; - default: - // Normal fact/event - $label = $fact->getLabel(); - break; - } - - echo '<tr class="', $styleadd, '">'; - echo '<td class="descriptionbox width20">'; - - if ($fact->getParent()->getTree()->getPreference('SHOW_FACT_ICONS')) { - echo Theme::theme()->icon($fact), ' '; - } - - if ($fact->getFactId() != 'histo' && $fact->canEdit()) { - ?> - <a - href="#" - title="<?php echo I18N::translate('Edit'); ?>" - onclick="return edit_record('<?php echo $parent->getXref(); ?>', '<?php echo $fact->getFactId(); ?>');" - ><?php echo $label; ?></a> - <div class="editfacts"> - <div class="editlink"> - <a - href="#" - title="<?php echo I18N::translate('Edit'); ?>" - class="editicon" - onclick="return edit_record('<?php echo $parent->getXref(); ?>', '<?php echo $fact->getFactId(); ?>');" - ><span class="link_text"><?php echo I18N::translate('Edit'); ?></span></a> - </div> - <div class="copylink"> - <a - href="#" - title="<?php echo I18N::translate('Copy'); ?>" - class="copyicon" - onclick="return copy_fact('<?php echo $parent->getXref(); ?>', '<?php echo $fact->getFactId(); ?>');" - ><span class="link_text"><?php echo I18N::translate('Copy'); ?></span></a> - </div> - <div class="deletelink"> - <a - href="#" - title="<?php echo I18N::translate('Delete'); ?>" - class="deleteicon" - onclick="return delete_fact('<?php echo I18N::translate('Are you sure you want to delete this fact?'); ?>', '<?php echo $parent->getXref(); ?>', '<?php echo $fact->getFactId(); ?>');" - ><span class="link_text"><?php echo I18N::translate('Delete'); ?></span></a> - </div> - </div> - <?php - } else { - echo $label; - } - - switch ($fact->getTag()) { - case '_BIRT_CHIL': - echo '<br>', /* I18N: Abbreviation for "number %s" */ - I18N::translate('#%s', ++$n_chil); - break; - case '_BIRT_GCHI': - case '_BIRT_GCH1': - case '_BIRT_GCH2': - echo '<br>', I18N::translate('#%s', ++$n_gchi); - break; - } - - echo '</td><td class="optionbox ', $styleadd, ' wrap">'; - - // Event from another record? - if ($parent !== $record) { - if ($parent instanceof Family) { - foreach ($parent->getSpouses() as $spouse) { - if ($record !== $spouse) { - echo '<a href="', $spouse->getHtmlUrl(), '">', $spouse->getFullName(), '</a> — '; - } - } - echo '<a href="', $parent->getHtmlUrl(), '">', I18N::translate('View family'), '</a><br>'; - } elseif ($parent instanceof Individual) { - echo '<a href="', $parent->getHtmlUrl(), '">', $parent->getFullName(), '</a><br>'; - } - } - - // Print the value of this fact/event - switch ($fact->getTag()) { - case 'ADDR': - echo $fact->getValue(); - break; - case 'AFN': - echo '<div class="field"><a href="https://familysearch.org/search/tree/results#count=20&query=afn:', rawurlencode($fact->getValue()), '" target="new">', Filter::escapeHtml($fact->getValue()), '</a></div>'; - break; - case 'ASSO': - // we handle this later, in format_asso_rela_record() - break; - case 'EMAIL': - case 'EMAI': - case '_EMAIL': - echo '<div class="field"><a href="mailto:', Filter::escapeHtml($fact->getValue()), '">', Filter::escapeHtml($fact->getValue()), '</a></div>'; - break; - case 'FILE': - if (Auth::isEditor($fact->getParent()->getTree())) { - echo '<div class="field">', Filter::escapeHtml($fact->getValue()), '</div>'; - } - break; - case 'RESN': - echo '<div class="field">'; - switch ($fact->getValue()) { - case 'none': - // Note: "1 RESN none" is not valid gedcom. - // However, webtrees privacy rules will interpret it as "show an otherwise private record to public". - echo '<i class="icon-resn-none"></i> ', I18N::translate('Show to visitors'); - break; - case 'privacy': - echo '<i class="icon-class-none"></i> ', I18N::translate('Show to members'); - break; - case 'confidential': - echo '<i class="icon-confidential-none"></i> ', I18N::translate('Show to managers'); - break; - case 'locked': - echo '<i class="icon-locked-none"></i> ', I18N::translate('Only managers can edit'); - break; - default: - echo Filter::escapeHtml($fact->getValue()); - break; - } - echo '</div>'; - break; - case 'PUBL': // Publication details might contain URLs. - echo '<div class="field">', Filter::expandUrls($fact->getValue()), '</div>'; - break; - case 'REPO': - if (preg_match('/^@(' . WT_REGEX_XREF . ')@$/', $fact->getValue(), $match)) { - print_repository_record($match[1]); - } else { - echo '<div class="error">', Filter::escapeHtml($fact->getValue()), '</div>'; - } - break; - case 'URL': - case '_URL': - case 'WWW': - echo '<div class="field"><a href="', Filter::escapeHtml($fact->getValue()), '">', Filter::escapeHtml($fact->getValue()), '</a></div>'; - break; - case 'TEXT': // 0 SOUR / 1 TEXT - echo '<div class="field">', nl2br(Filter::escapeHtml($fact->getValue()), false), '</div>'; - break; - default: - // Display the value for all other facts/events - switch ($fact->getValue()) { - case '': - // Nothing to display - break; - case 'N': - // Not valid GEDCOM - echo '<div class="field">', I18N::translate('No'), '</div>'; - break; - case 'Y': - // Do not display "Yes". - break; - default: - if (preg_match('/^@(' . WT_REGEX_XREF . ')@$/', $fact->getValue(), $match)) { - $target = GedcomRecord::getInstance($match[1], $fact->getParent()->getTree()); - if ($target) { - echo '<div><a href="', $target->getHtmlUrl(), '">', $target->getFullName(), '</a></div>'; - } else { - echo '<div class="error">', Filter::escapeHtml($fact->getValue()), '</div>'; - } - } else { - echo '<div class="field"><span dir="auto">', Filter::escapeHtml($fact->getValue()), '</span></div>'; - } - break; - } - break; - } - - // Print the type of this fact/event - if ($type) { - $utype = strtoupper($type); - // Events of close relatives, e.g. _MARR_CHIL - if (substr($fact->getTag(), 0, 6) == '_MARR_' && ($utype == 'CIVIL' || $utype == 'PARTNERS' || $utype == 'RELIGIOUS')) { - // Translate MARR/TYPE using the code that supports MARR_CIVIL, etc. tags - $type = GedcomTag::getLabel('MARR_' . $utype); - } else { - // Allow (custom) translations for other types - $type = I18N::translate($type); - } - echo GedcomTag::getLabelValue('TYPE', Filter::escapeHtml($type)); - } - - // Print the date of this fact/event - echo format_fact_date($fact, $record, true, true); - - // Print the place of this fact/event - echo '<div class="place">', format_fact_place($fact, true, true, true), '</div>'; - // A blank line between the primary attributes (value, date, place) and the secondary ones - echo '<br>'; - - $addr = $fact->getAttribute('ADDR'); - if ($addr) { - echo GedcomTag::getLabelValue('ADDR', $addr); - } - - // Print the associates of this fact/event - echo format_asso_rela_record($fact); - - // Print any other "2 XXXX" attributes, in the order in which they appear. - preg_match_all('/\n2 (' . WT_REGEX_TAG . ') (.+)/', $fact->getGedcom(), $matches, PREG_SET_ORDER); - foreach ($matches as $match) { - switch ($match[1]) { - case 'DATE': - case 'TIME': - case 'AGE': - case 'PLAC': - case 'ADDR': - case 'ALIA': - case 'ASSO': - case '_ASSO': - case 'DESC': - case 'RELA': - case 'STAT': - case 'TEMP': - case 'TYPE': - case 'FAMS': - case 'CONT': - // These were already shown at the beginning - break; - case 'NOTE': - case 'OBJE': - case 'SOUR': - // These will be shown at the end - break; - case 'EVEN': // 0 SOUR / 1 DATA / 2 EVEN / 3 DATE / 3 PLAC - $events = array(); - foreach (preg_split('/ *, */', $match[2]) as $event) { - $events[] = GedcomTag::getLabel($event); - } - if (count($events) == 1) { - echo GedcomTag::getLabelValue('EVEN', $event); - } else { - echo GedcomTag::getLabelValue('EVEN', implode(I18N::$list_separator, $events)); - } - if (preg_match('/\n3 DATE (.+)/', $fact->getGedcom(), $date_match)) { - $date = new Date($date_match[1]); - echo GedcomTag::getLabelValue('DATE', $date->display()); - } - if (preg_match('/\n3 PLAC (.+)/', $fact->getGedcom(), $plac_match)) { - echo GedcomTag::getLabelValue('PLAC', $plac_match[1]); - } - break; - case 'FAMC': // 0 INDI / 1 ADOP / 2 FAMC / 3 ADOP - $family = Family::getInstance(str_replace('@', '', $match[2]), $fact->getParent()->getTree()); - if ($family) { - echo GedcomTag::getLabelValue('FAM', '<a href="' . $family->getHtmlUrl() . '">' . $family->getFullName() . '</a>'); - if (preg_match('/\n3 ADOP (HUSB|WIFE|BOTH)/', $fact->getGedcom(), $match)) { - echo GedcomTag::getLabelValue('ADOP', GedcomCodeAdop::getValue($match[1], $label_person)); - } - } else { - echo GedcomTag::getLabelValue('FAM', '<span class="error">' . $match[2] . '</span>'); - } - break; - case '_WT_USER': - $user = User::findByIdentifier($match[2]); // may not exist - if ($user) { - echo GedcomTag::getLabelValue('_WT_USER', $user->getRealNameHtml()); - } else { - echo GedcomTag::getLabelValue('_WT_USER', Filter::escapeHtml($match[2])); - } - break; - case 'RESN': - switch ($match[2]) { - case 'none': - // Note: "2 RESN none" is not valid gedcom. - // However, webtrees privacy rules will interpret it as "show an otherwise private fact to public". - echo GedcomTag::getLabelValue('RESN', '<i class="icon-resn-none"></i> ' . I18N::translate('Show to visitors')); - break; - case 'privacy': - echo GedcomTag::getLabelValue('RESN', '<i class="icon-resn-privacy"></i> ' . I18N::translate('Show to members')); - break; - case 'confidential': - echo GedcomTag::getLabelValue('RESN', '<i class="icon-resn-confidential"></i> ' . I18N::translate('Show to managers')); - break; - case 'locked': - echo GedcomTag::getLabelValue('RESN', '<i class="icon-resn-locked"></i> ' . I18N::translate('Only managers can edit')); - break; - default: - echo GedcomTag::getLabelValue('RESN', Filter::escapeHtml($match[2])); - break; - } - break; - case 'CALN': - echo GedcomTag::getLabelValue('CALN', Filter::expandUrls($match[2])); - break; - case 'FORM': // 0 OBJE / 1 FILE / 2 FORM / 3 TYPE - echo GedcomTag::getLabelValue('FORM', $match[2]); - if (preg_match('/\n3 TYPE (.+)/', $fact->getGedcom(), $type_match)) { - echo GedcomTag::getLabelValue('TYPE', GedcomTag::getFileFormTypeValue($type_match[1])); - } - break; - case 'URL': - case '_URL': - case 'WWW': - $link = '<a href="' . Filter::escapeHtml($match[2]) . '">' . Filter::escapeHtml($match[2]) . '</a>'; - echo GedcomTag::getLabelValue($fact->getTag() . ':' . $match[1], $link); - break; - default: - if (!$fact->getParent()->getTree()->getPreference('HIDE_GEDCOM_ERRORS') || GedcomTag::isTag($match[1])) { - if (preg_match('/^@(' . WT_REGEX_XREF . ')@$/', $match[2], $xmatch)) { - // Links - $linked_record = GedcomRecord::getInstance($xmatch[1], $fact->getParent()->getTree()); - if ($linked_record) { - $link = '<a href="' . $linked_record->getHtmlUrl() . '">' . $linked_record->getFullName() . '</a>'; - echo GedcomTag::getLabelValue($fact->getTag() . ':' . $match[1], $link); - } else { - echo GedcomTag::getLabelValue($fact->getTag() . ':' . $match[1], Filter::escapeHtml($match[2])); - } - } else { - // Non links - echo GedcomTag::getLabelValue($fact->getTag() . ':' . $match[1], Filter::escapeHtml($match[2])); - } - } - break; - } - } - echo print_fact_sources($fact->getGedcom(), 2); - echo print_fact_notes($fact->getGedcom(), 2); - print_media_links($fact->getGedcom(), 2); - echo '</td></tr>'; -} - -/** - * print a repository record - * - * find and print repository information attached to a source - * - * @param string $xref the Gedcom Xref ID of the repository to print - */ -function print_repository_record($xref) { - global $WT_TREE; - - $repository = Repository::getInstance($xref, $WT_TREE); - if ($repository && $repository->canShow()) { - echo '<a class="field" href="', $repository->getHtmlUrl(), '">', $repository->getFullName(), '</a><br>'; - echo '<br>'; - echo print_fact_notes($repository->getGedcom(), 1); - } -} - -/** - * print a source linked to a fact (2 SOUR) - * - * this function is called by the print_fact function and other functions to - * print any source information attached to the fact - * - * @param string $factrec The fact record to look for sources in - * @param int $level The level to look for sources at - * - * @return string HTML text - */ -function print_fact_sources($factrec, $level) { - global $WT_TREE; - - $data = ''; - $nlevel = $level + 1; - - // -- Systems not using source records [ 1046971 ] - $ct = preg_match_all("/$level SOUR (.*)/", $factrec, $match, PREG_SET_ORDER); - for ($j = 0; $j < $ct; $j++) { - if (strpos($match[$j][1], '@') === false) { - $data .= '<div class="fact_SOUR"><span class="label">' . I18N::translate('Source') . ':</span> <span class="field" dir="auto">' . Filter::escapeHtml($match[$j][1]) . '</span></div>'; - } - } - // -- find source for each fact - $ct = preg_match_all("/$level SOUR @(.*)@/", $factrec, $match, PREG_SET_ORDER); - $spos2 = 0; - for ($j = 0; $j < $ct; $j++) { - $sid = $match[$j][1]; - $source = Source::getInstance($sid, $WT_TREE); - if ($source) { - if ($source->canShow()) { - $spos1 = strpos($factrec, "$level SOUR @" . $sid . "@", $spos2); - $spos2 = strpos($factrec, "\n$level", $spos1); - if (!$spos2) { - $spos2 = strlen($factrec); - } - $srec = substr($factrec, $spos1, $spos2 - $spos1); - $lt = preg_match_all("/$nlevel \w+/", $srec, $matches); - $data .= '<div class="fact_SOUR">'; - $data .= '<span class="label">'; - $elementID = Uuid::uuid4(); - if ($WT_TREE->getPreference('EXPAND_SOURCES')) { - $plusminus = 'icon-minus'; - } else { - $plusminus = 'icon-plus'; - } - if ($lt > 0) { - $data .= '<a href="#" onclick="return expand_layer(\'' . $elementID . '\');"><i id="' . $elementID . '_img" class="' . $plusminus . '"></i></a> '; - } - $data .= I18N::translate('Source') . ':</span> <span class="field">'; - $data .= '<a href="' . $source->getHtmlUrl() . '">' . $source->getFullName() . '</a>'; - $data .= '</span></div>'; - - $data .= "<div id=\"$elementID\""; - if ($WT_TREE->getPreference('EXPAND_SOURCES')) { - $data .= ' style="display:block"'; - } - $data .= ' class="source_citations">'; - // PUBL - $publ = $source->getFirstFact('PUBL'); - if ($publ) { - $data .= GedcomTag::getLabelValue('PUBL', $publ->getValue()); - } - $data .= printSourceStructure(getSourceStructure($srec)); - $data .= '<div class="indent">'; - ob_start(); - print_media_links($srec, $nlevel); - $data .= ob_get_clean(); - $data .= print_fact_notes($srec, $nlevel, false); - $data .= '</div>'; - $data .= '</div>'; - } else { - // Here we could show that we do actually have sources for this data, - // but not the details. For example “Sources: ”. - // But not by default, based on user feedback. - // http://webtrees.net/index.php/en/forum/3-help-for-beta-and-svn-versions/27002-source-media-privacy-issue - } - } else { - $data .= GedcomTag::getLabelValue('SOUR', '<span class="error">' . $sid . '</span>'); - } - } - - return $data; -} - -/** - * Print the links to media objects - * - * @param string $factrec - * @param int $level - */ -function print_media_links($factrec, $level) { - global $WT_TREE; - - $nlevel = $level + 1; - if (preg_match_all("/$level OBJE @(.*)@/", $factrec, $omatch, PREG_SET_ORDER) == 0) { - return; - } - $objectNum = 0; - while ($objectNum < count($omatch)) { - $media_id = $omatch[$objectNum][1]; - $media = Media::getInstance($media_id, $WT_TREE); - if ($media) { - if ($media->canShow()) { - if ($objectNum > 0) { - echo '<br class="media-separator" style="clear:both;">'; - } - echo '<div class="media-display"><div class="media-display-image">'; - echo $media->displayImage(); - echo '</div>'; - echo '<div class="media-display-title">'; - echo '<a href="', $media->getHtmlUrl(), '">', $media->getFullName(), '</a>'; - // NOTE: echo the notes of the media - echo '<p>'; - echo print_fact_notes($media->getGedcom(), 1); - $ttype = preg_match("/" . ($nlevel + 1) . " TYPE (.*)/", $media->getGedcom(), $match); - if ($ttype > 0) { - $mediaType = GedcomTag::getFileFormTypeValue($match[1]); - echo '<p class="label">', I18N::translate('Type'), ': </span> <span class="field">', $mediaType, '</p>'; - } - echo '</p>'; - //-- print spouse name for marriage events - $ct = preg_match("/WT_SPOUSE: (.*)/", $factrec, $match); - if ($ct > 0) { - $spouse = Individual::getInstance($match[1], $media->getTree()); - if ($spouse) { - echo '<a href="', $spouse->getHtmlUrl(), '">'; - echo $spouse->getFullName(); - echo '</a>'; - } - $ct = preg_match("/WT_FAMILY_ID: (.*)/", $factrec, $match); - if ($ct > 0) { - $famid = trim($match[1]); - $family = Family::getInstance($famid, $spouse->getTree()); - if ($family) { - if ($spouse) { - echo " - "; - } - echo '<a href="', $family->getHtmlUrl(), '">', I18N::translate('View family'), '</a>'; - } - } - } - echo print_fact_notes($media->getGedcom(), $nlevel); - echo print_fact_sources($media->getGedcom(), $nlevel); - echo '</div>'; //close div "media-display-title" - echo '</div>'; //close div "media-display" - } - } elseif (!$WT_TREE->getPreference('HIDE_GEDCOM_ERRORS')) { - echo '<p class="ui-state-error">', $media_id, '</p>'; - } - $objectNum++; - } -} - -/** - * Print a row for the sources tab on the individual page. - * - * @param Fact $fact - * @param int $level - */ -function print_main_sources(Fact $fact, $level) { - $factrec = $fact->getGedcom(); - $fact_id = $fact->getFactId(); - $parent = $fact->getParent(); - $pid = $parent->getXref(); - - $nlevel = $level + 1; - if ($fact->isPendingAddition()) { - $styleadd = 'new'; - $can_edit = $level == 1 && $fact->canEdit(); - } elseif ($fact->isPendingDeletion()) { - $styleadd = 'old'; - $can_edit = false; - } else { - $styleadd = ''; - $can_edit = $level == 1 && $fact->canEdit(); - } - - // -- find source for each fact - $ct = preg_match_all("/($level SOUR (.+))/", $factrec, $match, PREG_SET_ORDER); - $spos2 = 0; - for ($j = 0; $j < $ct; $j++) { - $sid = trim($match[$j][2], '@'); - $spos1 = strpos($factrec, $match[$j][1], $spos2); - $spos2 = strpos($factrec, "\n$level", $spos1); - if (!$spos2) { - $spos2 = strlen($factrec); - } - $srec = substr($factrec, $spos1, $spos2 - $spos1); - $source = Source::getInstance($sid, $fact->getParent()->getTree()); - // Allow access to "1 SOUR @non_existent_source@", so it can be corrected/deleted - if (!$source || $source->canShow()) { - if ($level > 1) { - echo '<tr class="row_sour2">'; - } else { - echo '<tr>'; - } - echo '<td class="descriptionbox'; - if ($level > 1) { - echo ' rela'; - } - echo ' ', $styleadd, ' width20">'; - $factlines = explode("\n", $factrec); // 1 BIRT Y\n2 SOUR ... - $factwords = explode(" ", $factlines[0]); // 1 BIRT Y - $factname = $factwords[1]; // BIRT - if ($factname == 'EVEN' || $factname == 'FACT') { - // Add ' EVEN' to provide sensible output for an event with an empty TYPE record - $ct = preg_match("/2 TYPE (.*)/", $factrec, $ematch); - if ($ct > 0) { - $factname = trim($ematch[1]); - echo $factname; - } else { - echo GedcomTag::getLabel($factname, $parent); - } - } elseif ($can_edit) { - echo "<a onclick=\"return edit_record('$pid', '$fact_id');\" href=\"#\" title=\"", I18N::translate('Edit'), '">'; - if ($fact->getParent()->getTree()->getPreference('SHOW_FACT_ICONS')) { - if ($level == 1) { - echo '<i class="icon-source"></i> '; - } - } - echo GedcomTag::getLabel($factname, $parent), '</a>'; - echo '<div class="editfacts">'; - if (preg_match('/^@.+@$/', $match[$j][2])) { - // Inline sources can't be edited. Attempting to save one will convert it - // into a link, and delete it. - // e.g. "1 SOUR my source" becomes "1 SOUR @my source@" which does not exist. - echo "<div class=\"editlink\"><a class=\"editicon\" onclick=\"return edit_record('$pid', '$fact_id');\" href=\"#\" title=\"" . I18N::translate('Edit') . "\"><span class=\"link_text\">" . I18N::translate('Edit') . "</span></a></div>"; - echo '<div class="copylink"><a class="copyicon" href="#" onclick="return copy_fact(\'', $pid, '\', \'', $fact_id, '\');" title="' . I18N::translate('Copy') . '"><span class="link_text">' . I18N::translate('Copy') . '</span></a></div>'; - } - echo "<div class=\"deletelink\"><a class=\"deleteicon\" onclick=\"return delete_fact('" . I18N::translate('Are you sure you want to delete this fact?') . "', '$pid', '$fact_id');\" href=\"#\" title=\"" . I18N::translate('Delete') . "\"><span class=\"link_text\">" . I18N::translate('Delete') . "</span></a></div>"; - echo '</div>'; - } else { - echo GedcomTag::getLabel($factname, $parent); - } - echo '</td>'; - echo '<td class="optionbox ', $styleadd, ' wrap">'; - if ($source) { - echo '<a href="', $source->getHtmlUrl(), '">', $source->getFullName(), '</a>'; - // PUBL - $publ = $source->getFirstFact('PUBL'); - if ($publ) { - echo GedcomTag::getLabelValue('PUBL', $publ->getValue()); - } - // 2 RESN tags. Note, there can be more than one, such as "privacy" and "locked" - if (preg_match_all("/\n2 RESN (.+)/", $factrec, $rmatches)) { - foreach ($rmatches[1] as $rmatch) { - echo '<br><span class="label">', GedcomTag::getLabel('RESN'), ':</span> <span class="field">'; - switch ($rmatch) { - case 'none': - // Note: "2 RESN none" is not valid gedcom, and the GUI will not let you add it. - // However, webtrees privacy rules will interpret it as "show an otherwise private fact to public". - echo '<i class="icon-resn-none"></i> ', I18N::translate('Show to visitors'); - break; - case 'privacy': - echo '<i class="icon-resn-privacy"></i> ', I18N::translate('Show to members'); - break; - case 'confidential': - echo '<i class="icon-resn-confidential"></i> ', I18N::translate('Show to managers'); - break; - case 'locked': - echo '<i class="icon-resn-locked"></i> ', I18N::translate('Only managers can edit'); - break; - default: - echo $rmatch; - break; - } - echo '</span>'; - } - } - $cs = preg_match("/$nlevel EVEN (.*)/", $srec, $cmatch); - if ($cs > 0) { - echo '<br><span class="label">', GedcomTag::getLabel('EVEN'), ' </span><span class="field">', $cmatch[1], '</span>'; - $cs = preg_match("/" . ($nlevel + 1) . " ROLE (.*)/", $srec, $cmatch); - if ($cs > 0) { - echo '<br> <span class="label">', GedcomTag::getLabel('ROLE'), ' </span><span class="field">', $cmatch[1], '</span>'; - } - } - echo printSourceStructure(getSourceStructure($srec)); - echo '<div class="indent">'; - print_media_links($srec, $nlevel); - if ($nlevel == 2) { - print_media_links($source->getGedcom(), 1); - } - echo print_fact_notes($srec, $nlevel); - if ($nlevel == 2) { - echo print_fact_notes($source->getGedcom(), 1); - } - echo '</div>'; - } else { - echo $sid; - } - echo '</td></tr>'; - } - } -} - -/** - * Print SOUR structure - * This function prints the input array of SOUR sub-records built by the - * getSourceStructure() function. - * - * @param string[] $textSOUR - * - * @return string - */ -function printSourceStructure($textSOUR) { - global $WT_TREE; - $html = ''; - - if ($textSOUR['PAGE']) { - $html .= GedcomTag::getLabelValue('PAGE', Filter::expandUrls($textSOUR['PAGE'])); - } - - if ($textSOUR['EVEN']) { - $html .= GedcomTag::getLabelValue('EVEN', Filter::escapeHtml($textSOUR['EVEN'])); - if ($textSOUR['ROLE']) { - $html .= GedcomTag::getLabelValue('ROLE', Filter::escapeHtml($textSOUR['ROLE'])); - } - } - - if ($textSOUR['DATE'] || count($textSOUR['TEXT'])) { - if ($textSOUR['DATE']) { - $date = new Date($textSOUR['DATE']); - $html .= GedcomTag::getLabelValue('DATA:DATE', $date->display()); - } - foreach ($textSOUR['TEXT'] as $text) { - $html .= GedcomTag::getLabelValue('TEXT', Filter::formatText($text, $WT_TREE)); - } - } - - if ($textSOUR['QUAY'] != '') { - $html .= GedcomTag::getLabelValue('QUAY', GedcomCodeQuay::getValue($textSOUR['QUAY'])); - } - - return '<div class="indent">' . $html . '</div>'; -} - -/** - * Extract SOUR structure from the incoming Source sub-record - * The output array is defined as follows: - * $textSOUR['PAGE'] = Source citation - * $textSOUR['EVEN'] = Event type - * $textSOUR['ROLE'] = Role in event - * $textSOUR['DATA'] = place holder (no text in this sub-record) - * $textSOUR['DATE'] = Entry recording date - * $textSOUR['TEXT'] = (array) Text from source - * $textSOUR['QUAY'] = Certainty assessment - * - * @param string $srec - * - * @return string[] - */ -function getSourceStructure($srec) { - // Set up the output array - $textSOUR = array( - 'PAGE' => '', - 'EVEN' => '', - 'ROLE' => '', - 'DATA' => '', - 'DATE' => '', - 'TEXT' => array(), - 'QUAY' => '', - ); - - if ($srec) { - $subrecords = explode("\n", $srec); - for ($i = 0; $i < count($subrecords); $i++) { - $tag = substr($subrecords[$i], 2, 4); - $text = substr($subrecords[$i], 7); - $i++; - for (; $i < count($subrecords); $i++) { - $nextTag = substr($subrecords[$i], 2, 4); - if ($nextTag != 'CONT') { - $i--; - break; - } - if ($nextTag == 'CONT') { - $text .= "\n"; - } - $text .= rtrim(substr($subrecords[$i], 7)); - } - if ($tag == 'TEXT') { - $textSOUR[$tag][] = $text; - } else { - $textSOUR[$tag] = $text; - } - } - } - - return $textSOUR; -} - -/** - * Print a row for the notes tab on the individual page. - * - * @param Fact $fact - * @param int $level - */ -function print_main_notes(Fact $fact, $level) { - $factrec = $fact->getGedcom(); - $fact_id = $fact->getFactId(); - $parent = $fact->getParent(); - $pid = $parent->getXref(); - - if ($fact->isPendingAddition()) { - $styleadd = ' new'; - $can_edit = $level == 1 && $fact->canEdit(); - } elseif ($fact->isPendingDeletion()) { - $styleadd = ' old'; - $can_edit = false; - } else { - $styleadd = ''; - $can_edit = $level == 1 && $fact->canEdit(); - } - - $ct = preg_match_all("/$level NOTE (.*)/", $factrec, $match, PREG_SET_ORDER); - for ($j = 0; $j < $ct; $j++) { - // Note object, or inline note? - if (preg_match("/$level NOTE @(.*)@/", $match[$j][0], $nmatch)) { - $note = Note::getInstance($nmatch[1], $fact->getParent()->getTree()); - if ($note && !$note->canShow()) { - continue; - } - } else { - $note = null; - } - - if ($level >= 2) { - echo '<tr class="row_note2"><td class="descriptionbox rela ', $styleadd, ' width20">'; - } else { - echo '<tr><td class="descriptionbox ', $styleadd, ' width20">'; - } - if ($can_edit) { - echo '<a onclick="return edit_record(\'', $pid, '\', \'', $fact_id, '\');" href="#" title="', I18N::translate('Edit'), '">'; - if ($level < 2) { - if ($fact->getParent()->getTree()->getPreference('SHOW_FACT_ICONS')) { - echo '<i class="icon-note"></i> '; - } - if ($note) { - echo GedcomTag::getLabel('SHARED_NOTE'); - } else { - echo GedcomTag::getLabel('NOTE'); - } - echo '</a>'; - echo '<div class="editfacts">'; - echo "<div class=\"editlink\"><a class=\"editicon\" onclick=\"return edit_record('$pid', '$fact_id');\" href=\"#\" title=\"" . I18N::translate('Edit') . "\"><span class=\"link_text\">" . I18N::translate('Edit') . "</span></a></div>"; - echo '<div class="copylink"><a class="copyicon" href="#" onclick="return copy_fact(\'', $pid, '\', \'', $fact_id, '\');" title="' . I18N::translate('Copy') . '"><span class="link_text">' . I18N::translate('Copy') . '</span></a></div>'; - echo "<div class=\"deletelink\"><a class=\"deleteicon\" onclick=\"return delete_fact('" . I18N::translate('Are you sure you want to delete this fact?') . "', '$pid', '$fact_id');\" href=\"#\" title=\"" . I18N::translate('Delete') . "\"><span class=\"link_text\">" . I18N::translate('Delete') . "</span></a></div>"; - if ($note) { - echo '<a class="icon-note" href="', $note->getHtmlUrl(), '" title="' . I18N::translate('View') . '"><span class="link_text">' . I18N::translate('View') . '</span></a>'; - } - echo '</div>'; - } - } else { - if ($level < 2) { - if ($fact->getParent()->getTree()->getPreference('SHOW_FACT_ICONS')) { - echo '<i class="icon-note"></i> '; - } - if ($note) { - echo GedcomTag::getLabel('SHARED_NOTE'); - } else { - echo GedcomTag::getLabel('NOTE'); - } - } - $factlines = explode("\n", $factrec); // 1 BIRT Y\n2 NOTE ... - $factwords = explode(" ", $factlines[0]); // 1 BIRT Y - $factname = $factwords[1]; // BIRT - $parent = GedcomRecord::getInstance($pid, $fact->getParent()->getTree()); - if ($factname == 'EVEN' || $factname == 'FACT') { - // Add ' EVEN' to provide sensible output for an event with an empty TYPE record - $ct = preg_match("/2 TYPE (.*)/", $factrec, $ematch); - if ($ct > 0) { - $factname = trim($ematch[1]); - echo $factname; - } else { - echo GedcomTag::getLabel($factname, $parent); - } - } elseif ($factname != 'NOTE') { - // Note is already printed - echo GedcomTag::getLabel($factname, $parent); - if ($note) { - echo '<div class="editfacts"><a class="icon-note" href="', $note->getHtmlUrl(), '" title="' . I18N::translate('View') . '"><span class="link_text">' . I18N::translate('View') . '</span></a></div>'; - - } - } - } - echo '</td>'; - if ($note) { - // Note objects - if (Module::getModuleByName('GEDFact_assistant')) { - // If Census assistant installed, allow it to format the note - $text = CensusAssistantModule::formatCensusNote($note); - } else { - $text = Filter::formatText($note->getNote(), $fact->getParent()->getTree()); - } - } else { - // Inline notes - $nrec = get_sub_record($level, "$level NOTE", $factrec, $j + 1); - $text = $match[$j][1] . get_cont($level + 1, $nrec); - $text = Filter::formatText($text, $fact->getParent()->getTree()); - } - - echo '<td class="optionbox', $styleadd, ' wrap">'; - echo $text; - - if (!empty($noterec)) { - echo print_fact_sources($noterec, 1); - } - - // 2 RESN tags. Note, there can be more than one, such as "privacy" and "locked" - if (preg_match_all("/\n2 RESN (.+)/", $factrec, $matches)) { - foreach ($matches[1] as $match) { - echo '<br><span class="label">', GedcomTag::getLabel('RESN'), ':</span> <span class="field">'; - switch ($match) { - case 'none': - // Note: "2 RESN none" is not valid gedcom, and the GUI will not let you add it. - // However, webtrees privacy rules will interpret it as "show an otherwise private fact to public". - echo '<i class="icon-resn-none"></i> ', I18N::translate('Show to visitors'); - break; - case 'privacy': - echo '<i class="icon-resn-privacy"></i> ', I18N::translate('Show to members'); - break; - case 'confidential': - echo '<i class="icon-resn-confidential"></i> ', I18N::translate('Show to managers'); - break; - case 'locked': - echo '<i class="icon-resn-locked"></i> ', I18N::translate('Only managers can edit'); - break; - default: - echo $match; - break; - } - echo '</span>'; - } - } - echo '</td></tr>'; - } -} - -/** - * Print a row for the media tab on the individual page. - * - * @param Fact $fact - * @param int $level - */ -function print_main_media(Fact $fact, $level) { - $factrec = $fact->getGedcom(); - $parent = $fact->getParent(); - - if ($fact->isPendingAddition()) { - $styleadd = 'new'; - $can_edit = $level == 1 && $fact->canEdit(); - } elseif ($fact->isPendingDeletion()) { - $styleadd = 'old'; - $can_edit = false; - } else { - $styleadd = ''; - $can_edit = $level == 1 && $fact->canEdit(); - } - - // -- find source for each fact - preg_match_all('/(?:^|\n)' . $level . ' OBJE @(.*)@/', $factrec, $matches); - foreach ($matches[1] as $xref) { - $media = Media::getInstance($xref, $fact->getParent()->getTree()); - // Allow access to "1 OBJE @non_existent_source@", so it can be corrected/deleted - if (!$media || $media->canShow()) { - if ($level > 1) { - echo '<tr class="row_obje2">'; - } else { - echo '<tr>'; - } - echo '<td class="descriptionbox'; - if ($level > 1) { - echo ' rela'; - } - echo ' ', $styleadd, ' width20">'; - preg_match("/^\d (\w*)/", $factrec, $factname); - $factlines = explode("\n", $factrec); // 1 BIRT Y\n2 SOUR ... - $factwords = explode(" ", $factlines[0]); // 1 BIRT Y - $factname = $factwords[1]; // BIRT - if ($factname == 'EVEN' || $factname == 'FACT') { - // Add ' EVEN' to provide sensible output for an event with an empty TYPE record - $ct = preg_match("/2 TYPE (.*)/", $factrec, $ematch); - if ($ct > 0) { - $factname = $ematch[1]; - echo $factname; - } else { - echo GedcomTag::getLabel($factname, $parent); - } - } elseif ($can_edit) { - echo '<a onclick="window.open(\'addmedia.php?action=editmedia&pid=', $media->getXref(), '\', \'_blank\', edit_window_specs); return false;" href="#" title="', I18N::translate('Edit'), '">'; - echo GedcomTag::getLabel($factname, $parent), '</a>'; - echo '<div class="editfacts">'; - echo '<div class="editlink"><a class="editicon" onclick="window.open(\'addmedia.php?action=editmedia&pid=', $media->getXref(), '\', \'_blank\', edit_window_specs); return false;" href="#" title="', I18N::translate('Edit'), '"><span class="link_text">', I18N::translate('Edit'), '</span></a></div>'; - echo '<div class="copylink"><a class="copyicon" href="#" onclick="jQuery.post(\'action.php\',{action:\'copy-fact\', type:\'\', factgedcom:\'' . rawurlencode($factrec) . '\'},function(){location.reload();})" title="' . I18N::translate('Copy') . '"><span class="link_text">' . I18N::translate('Copy') . '</span></a></div>'; - echo '<div class="deletelink"><a class="deleteicon" onclick="return delete_fact(\'', I18N::translate('Are you sure you want to delete this fact?'), '\', \'', $parent->getXref(), '\', \'', $fact->getFactId(), '\');" href="#" title="', I18N::translate('Delete'), '"><span class="link_text">', I18N::translate('Delete'), '</span></a></div>'; - echo '</div>'; - } else { - echo GedcomTag::getLabel($factname, $parent); - } - echo '</td>'; - echo '<td class="optionbox ', $styleadd, ' wrap">'; - if ($media) { - echo '<span class="field">'; - echo $media->displayImage(); - echo '<a href="' . $media->getHtmlUrl() . '">'; - echo '<em>'; - foreach ($media->getAllNames() as $name) { - if ($name['type'] != 'TITL') { - echo '<br>'; - } - echo $name['full']; - } - echo '</em>'; - echo '</a>'; - echo '</span>'; - - echo GedcomTag::getLabelValue('FORM', $media->mimeType()); - $imgsize = $media->getImageAttributes('main'); - if (!empty($imgsize['WxH'])) { - echo GedcomTag::getLabelValue('__IMAGE_SIZE__', $imgsize['WxH']); - } - if ($media->getFilesizeraw() > 0) { - echo GedcomTag::getLabelValue('__FILE_SIZE__', $media->getFilesize()); - } - $mediatype = $media->getMediaType(); - if ($mediatype) { - echo GedcomTag::getLabelValue('TYPE', GedcomTag::getFileFormTypeValue($mediatype)); - } - - switch ($media->isPrimary()) { - case 'Y': - echo GedcomTag::getLabelValue('_PRIM', I18N::translate('yes')); - break; - case 'N': - echo GedcomTag::getLabelValue('_PRIM', I18N::translate('no')); - break; - } - echo print_fact_notes($media->getGedcom(), 1); - echo print_fact_sources($media->getGedcom(), 1); - } else { - echo $xref; - } - echo '</td></tr>'; - } - } -} |