' . ''; } return $html; } /** * Print an edit control for a Yes/No field * * @param string $name * @param bool $selected * @param string $extra * * @return string */ public static function editFieldYesNo($name, $selected = false, $extra = '') { return self::radioButtons( $name, array(I18N::translate('no'), I18N::translate('yes')), $selected, $extra ); } /** * Print an edit control for a checkbox. * * @param string $name * @param bool $is_checked * @param string $extra * * @return string */ public static function checkbox($name, $is_checked = false, $extra = '') { return ''; } /** * Print an edit control for a checkbox, with a hidden field to store one of the two states. * By default, a checkbox is either set, or not sent. * This function gives us a three options, set, unset or not sent. * Useful for dynamically generated forms where we don't know what elements are present. * * @param string $name * @param int $is_checked 0 or 1 * @param string $extra * * @return string */ public static function twoStateCheckbox($name, $is_checked = 0, $extra = '') { return '' . ''; } /** * Function edit_language_checkboxes * * @param string $parameter_name * @param array $accepted_languages * * @return string */ public static function editLanguageCheckboxes($parameter_name, $accepted_languages) { $html = ''; foreach (I18N::activeLocales() as $locale) { $html .= '

'; $html .= ''; $html .= 'languageTag(), $accepted_languages) ? ' checked>' : '>'; $html .= $locale->endonym(); $html .= ''; $html .= '

'; } return $html; } /** * Print an edit control for access level. * * @param string $name * @param string $selected * @param string $extra * * @return string */ public static function editFieldAccessLevel($name, $selected = '', $extra = '') { $ACCESS_LEVEL = array( Auth::PRIV_PRIVATE => I18N::translate('Show to visitors'), Auth::PRIV_USER => I18N::translate('Show to members'), Auth::PRIV_NONE => I18N::translate('Show to managers'), Auth::PRIV_HIDE => I18N::translate('Hide from everyone'), ); return self::selectEditControl($name, $ACCESS_LEVEL, null, $selected, $extra); } /** * Print an edit control for a RESN field. * * @param string $name * @param string $selected * @param string $extra * * @return string */ public static function editFieldRestriction($name, $selected = '', $extra = '') { $RESN = array( '' => '', 'none' => I18N::translate('Show to visitors'), // Not valid GEDCOM, but very useful 'privacy' => I18N::translate('Show to members'), 'confidential' => I18N::translate('Show to managers'), 'locked' => I18N::translate('Only managers can edit'), ); return self::selectEditControl($name, $RESN, null, $selected, $extra); } /** * Print an edit control for a contact method field. * * @param string $name * @param string $selected * @param string $extra * * @return string */ public static function editFieldContact($name, $selected = '', $extra = '') { // Different ways to contact the users $CONTACT_METHODS = array( 'messaging' => I18N::translate('Internal messaging'), 'messaging2' => I18N::translate('Internal messaging with emails'), 'messaging3' => I18N::translate('webtrees sends emails with no storage'), 'mailto' => I18N::translate('Mailto link'), 'none' => I18N::translate('No contact'), ); return self::selectEditControl($name, $CONTACT_METHODS, null, $selected, $extra); } /** * Print an edit control for a language field. * * @param string $name * @param string $selected * @param string $extra * * @return string */ public static function editFieldLanguage($name, $selected = '', $extra = '') { $languages = array(); foreach (I18N::activeLocales() as $locale) { $languages[$locale->languageTag()] = $locale->endonym(); } return self::selectEditControl($name, $languages, null, $selected, $extra); } /** * Print an edit control for a range of integers. * * @param string $name * @param string $selected * @param int $min * @param int $max * @param string $extra * * @return string */ public static function editFieldInteger($name, $selected = '', $min, $max, $extra = '') { $array = array(); for ($i = $min; $i <= $max; ++$i) { $array[$i] = I18N::number($i); } return self::selectEditControl($name, $array, null, $selected, $extra); } /** * Print an edit control for a username. * * @param string $name * @param string $selected * @param string $extra * * @return string */ public static function editFieldUsername($name, $selected = '', $extra = '') { $users = array(); foreach (User::all() as $user) { $users[$user->getUserName()] = $user->getRealName() . ' - ' . $user->getUserName(); } // The currently selected user may not exist if ($selected && !array_key_exists($selected, $users)) { $users[$selected] = $selected; } return self::selectEditControl($name, $users, '-', $selected, $extra); } /** * Print an edit control for a ADOP field. * * @param string $name * @param string $selected * @param string $extra * @param Individual|null $individual * * @return string */ public static function editFieldAdoption($name, $selected = '', $extra = '', Individual $individual = null) { return self::selectEditControl($name, GedcomCodeAdop::getValues($individual), null, $selected, $extra); } /** * Print an edit control for a PEDI field. * * @param string $name * @param string $selected * @param string $extra * @param Individual|null $individual * * @return string */ public static function editFieldPedigree($name, $selected = '', $extra = '', Individual $individual = null) { return self::selectEditControl($name, GedcomCodePedi::getValues($individual), '', $selected, $extra); } /** * Print an edit control for a NAME TYPE field. * * @param string $name * @param string $selected * @param string $extra * @param Individual|null $individual * * @return string */ public static function editFieldNameType($name, $selected = '', $extra = '', Individual $individual = null) { return self::selectEditControl($name, GedcomCodeName::getValues($individual), '', $selected, $extra); } /** * Print an edit control for a RELA field. * * @param string $name * @param string $selected * @param string $extra * * @return string */ public static function editFieldRelationship($name, $selected = '', $extra = '') { $rela_codes = GedcomCodeRela::getValues(); // The user is allowed to specify values that aren't in the list. if (!array_key_exists($selected, $rela_codes)) { $rela_codes[$selected] = I18N::translate($selected); } return self::selectEditControl($name, $rela_codes, '', $selected, $extra); } /** * Remove all links from $gedrec to $xref, and any sub-tags. * * @param string $gedrec * @param string $xref * * @return string */ public static function removeLinks($gedrec, $xref) { $gedrec = preg_replace('/\n1 ' . WT_REGEX_TAG . ' @' . $xref . '@(\n[2-9].*)*/', '', $gedrec); $gedrec = preg_replace('/\n2 ' . WT_REGEX_TAG . ' @' . $xref . '@(\n[3-9].*)*/', '', $gedrec); $gedrec = preg_replace('/\n3 ' . WT_REGEX_TAG . ' @' . $xref . '@(\n[4-9].*)*/', '', $gedrec); $gedrec = preg_replace('/\n4 ' . WT_REGEX_TAG . ' @' . $xref . '@(\n[5-9].*)*/', '', $gedrec); $gedrec = preg_replace('/\n5 ' . WT_REGEX_TAG . ' @' . $xref . '@(\n[6-9].*)*/', '', $gedrec); return $gedrec; } /** * Generates javascript code for calendar popup in user’s language. * * @param string $id * * @return string */ public static function printCalendarPopup($id) { return ' ' . '

'; } /** * An HTML link to create a new media object. * * @param string $element_id * * @return string */ public static function printAddNewMediaLink($element_id) { return ''; } /** * An HTML link to create a new repository. * * @param string $element_id * * @return string */ public static function printAddNewRepositoryLink($element_id) { return ''; } /** * An HTML link to create a new note. * * @param string $element_id * * @return string */ public static function printAddNewNoteLink($element_id) { return ''; } /** * An HTML link to edit a note. * * @param string $note_id * * @return string */ public static function printEditNoteLink($note_id) { return ''; } /** * An HTML link to create a new source. * * @param string $element_id * * @return string */ public static function printAddNewSourceLink($element_id) { return ''; } /** * add a new tag input field * * called for each fact to be edited on a form. * Fact level=0 means a new empty form : data are POSTed by name * else data are POSTed using arrays : * glevels[] : tag level * islink[] : tag is a link * tag[] : tag name * text[] : tag value * * @param string $tag fact record to edit (eg 2 DATE xxxxx) * @param string $upperlevel optional upper level tag (eg BIRT) * @param string $label An optional label to echo instead of the default * @param string $extra optional text to display after the input field * @param Individual $person For male/female translations * * @return string */ public static function addSimpleTag($tag, $upperlevel = '', $label = '', $extra = null, Individual $person = null) { global $tags, $main_fact, $xref, $bdm, $action, $WT_TREE; // Keep track of SOUR fields, so we can reference them in subsequent PAGE fields. static $source_element_id; $subnamefacts = array('NPFX', 'GIVN', 'SPFX', 'SURN', 'NSFX', '_MARNM_SURN'); preg_match('/^(?:(\d+) (' . WT_REGEX_TAG . ') ?(.*))/', $tag, $match); list(, $level, $fact, $value) = $match; $level = (int) $level; // element name : used to POST data if ($level === 0) { if ($upperlevel) { $element_name = $upperlevel . '_' . $fact; } else { $element_name = $fact; } } else { $element_name = 'text[]'; } if ($level === 1) { $main_fact = $fact; } // element id : used by javascript functions if ($level === 0) { $element_id = $fact; } else { $element_id = $fact . Uuid::uuid4(); } if ($upperlevel) { $element_id = $upperlevel . '_' . $fact . Uuid::uuid4(); } // field value $islink = (substr($value, 0, 1) === '@' && substr($value, 0, 2) !== '@#'); if ($islink) { $value = trim(substr($tag, strlen($fact) + 3), ' @\r'); } else { $value = (string) substr($tag, strlen($fact) + 3); } if ($fact === 'REPO' || $fact === 'SOUR' || $fact === 'OBJE' || $fact === 'FAMC') { $islink = true; } if ($fact === 'SHARED_NOTE_EDIT' || $fact === 'SHARED_NOTE') { $islink = true; $fact = 'NOTE'; } // label echo ''; if (in_array($fact, $subnamefacts) || $fact === 'LATI' || $fact === 'LONG') { echo ''; } else { echo ''; } // tag name if ($label) { echo $label; } elseif ($upperlevel) { echo GedcomTag::getLabel($upperlevel . ':' . $fact); } else { echo GedcomTag::getLabel($fact); } // If using GEDFact-assistant window if ($action === 'addnewnote_assisted') { // Do not print on GEDFact Assistant window } else { // Not all facts have help text. switch ($fact) { case 'NAME': if ($upperlevel !== 'REPO' && $upperlevel !== 'UNKNOWN') { echo FunctionsPrint::helpLink($fact); } break; case 'DATE': case 'PLAC': case 'RESN': case 'ROMN': case 'SURN': case '_HEB': echo FunctionsPrint::helpLink($fact); break; } } // tag level if ($level > 0) { echo ''; echo ''; echo ''; } echo ''; // value echo ''; // retrieve linked NOTE if ($fact === 'NOTE' && $islink) { $note1 = Note::getInstance($value, $WT_TREE); if ($note1) { $noterec = $note1->getGedcom(); preg_match('/' . $value . '/i', $noterec, $notematch); $value = $notematch[0]; } } // Show names for spouses in MARR/HUSB/AGE and MARR/WIFE/AGE if ($fact === 'HUSB' || $fact === 'WIFE') { $family = Family::getInstance($xref, $WT_TREE); if ($family) { $spouse_link = $family->getFirstFact($fact); if ($spouse_link) { $spouse = $spouse_link->getTarget(); if ($spouse) { echo $spouse->getFullName(); } } } } if (in_array($fact, Config::emptyFacts()) && ($value === '' || $value === 'Y' || $value === 'y')) { echo ''; if ($level <= 1) { echo ''; echo I18N::translate('yes'); } if ($fact === 'CENS' && $value === 'Y') { echo self::censusDateSelector(WT_LOCALE, $xref); if (Module::getModuleByName('GEDFact_assistant') && GedcomRecord::getInstance($xref, $WT_TREE) instanceof Individual) { echo '

'; } } } elseif ($fact === 'TEMP') { echo self::selectEditControl($element_name, GedcomCodeTemp::templeNames(), I18N::translate('No temple - living ordinance'), $value); } elseif ($fact === 'ADOP') { echo self::editFieldAdoption($element_name, $value, '', $person); } elseif ($fact === 'PEDI') { echo self::editFieldPedigree($element_name, $value, '', $person); } elseif ($fact === 'STAT') { echo self::selectEditControl($element_name, GedcomCodeStat::statusNames($upperlevel), '', $value); } elseif ($fact === 'RELA') { echo self::editFieldRelationship($element_name, strtolower($value)); } elseif ($fact === 'QUAY') { echo self::selectEditControl($element_name, GedcomCodeQuay::getValues(), '', $value); } elseif ($fact === '_WT_USER') { echo self::editFieldUsername($element_name, $value); } elseif ($fact === 'RESN') { echo self::editFieldRestriction($element_name, $value); } elseif ($fact === '_PRIM') { echo ''; echo '

', I18N::translate('Use this image for charts and on the individual’s page.'), '

'; } elseif ($fact === 'SEX') { echo ''; } elseif ($fact === 'TYPE' && $level === 3) { //-- Build the selector for the Media 'TYPE' Fact echo ''; } elseif (($fact === 'NAME' && $upperlevel !== 'REPO' && $upperlevel !== 'UNKNOWN') || $fact === '_MARNM') { // Populated in javascript from sub-tags echo ''; echo '', Filter::escapeHtml($value), ''; echo ' '; } else { // textarea if ($fact === 'TEXT' || $fact === 'ADDR' || ($fact === 'NOTE' && !$islink)) { echo '
'; } else { // text // If using GEDFact-assistant window if ($action === 'addnewnote_assisted') { echo ''; } $tmp_array = array('TYPE', 'TIME', 'NOTE', 'SOUR', 'REPO', 'OBJE', 'ASSO', '_ASSO', 'AGE'); // split PLAC if ($fact === 'PLAC') { echo '

'; echo FunctionsPrint::printSpecialCharacterLink($element_id), ' ', FunctionsPrint::printFindPlaceLink($element_id); echo ''; echo '

'; if (Module::getModuleByName('places_assistant')) { \PlacesAssistantModule::setup_place_subfields($element_id); \PlacesAssistantModule::print_place_subfields($element_id); } } elseif (!in_array($fact, $tmp_array)) { echo FunctionsPrint::printSpecialCharacterLink($element_id); } } // MARRiage TYPE : hide text field and show a selection list if ($fact === 'TYPE' && $level === 2 && $tags[0] === 'MARR') { echo ''; echo ''; } elseif ($fact === 'TYPE' && $level === 0) { // NAME TYPE : hide text field and show a selection list $onchange = 'onchange="document.getElementById(\'' . $element_id . '\').value=this.value;"'; echo self::editFieldNameType($element_name, $value, $onchange, $person); echo ''; } // popup links switch ($fact) { case 'DATE': echo self::printCalendarPopup($element_id); break; case 'FAMC': case 'FAMS': echo FunctionsPrint::printFindFamilyLink($element_id); break; case 'ALIA': case 'ASSO': case '_ASSO': echo FunctionsPrint::printFindIndividualLink($element_id, $element_id . '_description'); break; case 'FILE': FunctionsPrint::printFindMediaLink($element_id, '0file'); break; case 'SOUR': echo FunctionsPrint::printFindSourceLink($element_id, $element_id . '_description'), ' ', self::printAddNewSourceLink($element_id); //-- checkboxes to apply '1 SOUR' to BIRT/MARR/DEAT as '2 SOUR' if ($level === 1) { echo '
'; switch ($WT_TREE->getPreference('PREFER_LEVEL2_SOURCES')) { case '2': // records $level1_checked = 'checked'; $level2_checked = ''; break; case '1': // facts $level1_checked = ''; $level2_checked = 'checked'; break; case '0': // none default: $level1_checked = ''; $level2_checked = ''; break; } if (strpos($bdm, 'B') !== false) { echo ' ', I18N::translate('Individual'), ''; if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $WT_TREE->getPreference('QUICK_REQUIRED_FACTS'), $matches)) { foreach ($matches[1] as $match) { if (!in_array($match, explode('|', WT_EVENTS_DEAT))) { echo ' ', GedcomTag::getLabel($match), ''; } } } } if (strpos($bdm, 'D') !== false) { if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $WT_TREE->getPreference('QUICK_REQUIRED_FACTS'), $matches)) { foreach ($matches[1] as $match) { if (in_array($match, explode('|', WT_EVENTS_DEAT))) { echo ' ', GedcomTag::getLabel($match), ''; } } } } if (strpos($bdm, 'M') !== false) { echo ' ', I18N::translate('Family'), ''; if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $WT_TREE->getPreference('QUICK_REQUIRED_FAMFACTS'), $matches)) { foreach ($matches[1] as $match) { echo ' ', GedcomTag::getLabel($match), ''; } } } } break; case 'REPO': echo FunctionsPrint::printFindRepositoryLink($element_id), ' ', self::printAddNewRepositoryLink($element_id); break; case 'NOTE': // Shared Notes Icons ======================================== if ($islink) { // Print regular Shared Note icons --------------------------- echo ' ', FunctionsPrint::printFindNoteLink($element_id, $element_id . '_description'), ' ', self::printAddNewNoteLink($element_id); if ($value) { echo ' ', self::printEditNoteLink($value); } } break; case 'OBJE': echo FunctionsPrint::printFindMediaLink($element_id, '1media'); if (!$value) { echo ' ', self::printAddNewMediaLink($element_id); $value = 'new'; } break; } echo '

'; // current value if ($fact === 'DATE') { $date = new Date($value); echo $date->display(); } if (($fact === 'ASSO' || $fact === '_ASSO') && $value === '') { if ($level === 1) { echo '

' . I18N::translate('An associate is another individual who was involved with this individual, such as a friend or an employer.') . '

'; } else { echo '

' . I18N::translate('An associate is another individual who was involved with this fact or event, such as a witness or a priest.') . '

'; } } if ($value && $value !== 'new' && $islink) { switch ($fact) { case 'ALIA': case 'ASSO': case '_ASSO': $tmp = Individual::getInstance($value, $WT_TREE); if ($tmp) { echo ' ', $tmp->getFullName(); } break; case 'SOUR': $tmp = Source::getInstance($value, $WT_TREE); if ($tmp) { echo ' ', $tmp->getFullName(); } break; case 'NOTE': $tmp = Note::getInstance($value, $WT_TREE); if ($tmp) { echo ' ', $tmp->getFullName(); } break; case 'OBJE': $tmp = Media::getInstance($value, $WT_TREE); if ($tmp) { echo ' ', $tmp->getFullName(); } break; case 'REPO': $tmp = Repository::getInstance($value, $WT_TREE); if ($tmp) { echo ' ', $tmp->getFullName(); } break; } } // pastable values if ($fact === 'FORM' && $upperlevel === 'OBJE') { FunctionsPrint::printAutoPasteLink($element_id, Config::fileFormats()); } echo '

', $extra, ''; return $element_id; } /** * Genearate a ' . ''; } /** * Prints collapsable fields to add ASSO/RELA, SOUR, OBJE, etc. * * @param string $tag * @param int $level * @param string $parent_tag */ public static function printAddLayer($tag, $level = 2, $parent_tag = '') { global $WT_TREE; switch ($tag) { case 'SOUR': echo ' ', I18N::translate('Add a source citation'), ''; echo '
'; echo ''; break; case 'ASSO': case 'ASSO2': //-- Add a new ASSOciate if ($tag === 'ASSO') { echo " ", I18N::translate('Add an associate'), ''; echo '
'; echo '

'; } else { echo " ", I18N::translate('Add an associate'), ''; echo '
'; echo ''; break; case 'NOTE': //-- Retrieve existing note or add new note to fact echo " ", I18N::translate('Add a note'), ''; echo '
'; echo ''; break; case 'SHARED_NOTE': echo " ", I18N::translate('Add a shared note'), ''; echo '
'; echo ''; break; case 'OBJE': if ($WT_TREE->getPreference('MEDIA_UPLOAD') >= Auth::accessLevel($WT_TREE)) { echo " ", I18N::translate('Add a media object'), ''; echo '
'; echo ''; } break; case 'RESN': echo " ", I18N::translate('Add a restriction'), ''; echo '
'; echo ''; break; } } /** * Add some empty tags to create a new fact. * * @param string $fact */ public static function addSimpleTags($fact) { global $WT_TREE; // For new individuals, these facts default to "Y" if ($fact === 'MARR') { self::addSimpleTag('0 ' . $fact . ' Y'); } else { self::addSimpleTag('0 ' . $fact); } if (!in_array($fact, Config::nonDateFacts())) { self::addSimpleTag('0 DATE', $fact, GedcomTag::getLabel($fact . ':DATE')); } if (!in_array($fact, Config::nonPlaceFacts())) { self::addSimpleTag('0 PLAC', $fact, GedcomTag::getLabel($fact . ':PLAC')); if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $WT_TREE->getPreference('ADVANCED_PLAC_FACTS'), $match)) { foreach ($match[1] as $tag) { self::addSimpleTag('0 ' . $tag, $fact, GedcomTag::getLabel($fact . ':PLAC:' . $tag)); } } self::addSimpleTag('0 MAP', $fact); self::addSimpleTag('0 LATI', $fact); self::addSimpleTag('0 LONG', $fact); } } /** * Assemble the pieces of a newly created record into gedcom * * @return string */ public static function addNewName() { global $WT_TREE; $gedrec = "\n1 NAME " . Filter::post('NAME'); $tags = array('NPFX', 'GIVN', 'SPFX', 'SURN', 'NSFX'); if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $WT_TREE->getPreference('ADVANCED_NAME_FACTS'), $match)) { $tags = array_merge($tags, $match[1]); } // Paternal and Polish and Lithuanian surname traditions can also create a _MARNM $SURNAME_TRADITION = $WT_TREE->getPreference('SURNAME_TRADITION'); if ($SURNAME_TRADITION === 'paternal' || $SURNAME_TRADITION === 'polish' || $SURNAME_TRADITION === 'lithuanian') { $tags[] = '_MARNM'; } foreach (array_unique($tags) as $tag) { $TAG = Filter::post($tag); if ($TAG) { $gedrec .= "\n2 {$tag} {$TAG}"; } } return $gedrec; } /** * Create a form to add a sex record. * * @return string */ public static function addNewSex() { switch (Filter::post('SEX', '[MF]', 'U')) { case 'M': return "\n1 SEX M"; case 'F': return "\n1 SEX F"; default: return "\n1 SEX U"; } } /** * Create a form to add a new fact. * * @param string $fact * * @return string */ public static function addNewFact($fact) { global $WT_TREE; $FACT = Filter::post($fact); $DATE = Filter::post($fact . '_DATE'); $PLAC = Filter::post($fact . '_PLAC'); if ($DATE || $PLAC || $FACT && $FACT !== 'Y') { if ($FACT && $FACT !== 'Y') { $gedrec = "\n1 " . $fact . ' ' . $FACT; } else { $gedrec = "\n1 " . $fact; } if ($DATE) { $gedrec .= "\n2 DATE " . $DATE; } if ($PLAC) { $gedrec .= "\n2 PLAC " . $PLAC; if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $WT_TREE->getPreference('ADVANCED_PLAC_FACTS'), $match)) { foreach ($match[1] as $tag) { $TAG = Filter::post($fact . '_' . $tag); if ($TAG) { $gedrec .= "\n3 " . $tag . ' ' . $TAG; } } } $LATI = Filter::post($fact . '_LATI'); $LONG = Filter::post($fact . '_LONG'); if ($LATI || $LONG) { $gedrec .= "\n3 MAP\n4 LATI " . $LATI . "\n4 LONG " . $LONG; } } if (Filter::postBool('SOUR_' . $fact)) { return self::updateSource($gedrec, 2); } else { return $gedrec; } } elseif ($FACT === 'Y') { if (Filter::postBool('SOUR_' . $fact)) { return self::updateSource("\n1 " . $fact . ' Y', 2); } else { return "\n1 " . $fact . ' Y'; } } else { return ''; } } /** * This function splits the $glevels, $tag, $islink, and $text arrays so that the * entries associated with a SOUR record are separate from everything else. * * Input arrays: * - $glevels[] - an array of the gedcom level for each line that was edited * - $tag[] - an array of the tags for each gedcom line that was edited * - $islink[] - an array of 1 or 0 values to indicate when the text is a link element * - $text[] - an array of the text data for each line * * Output arrays: * ** For the SOUR record: * - $glevelsSOUR[] - an array of the gedcom level for each line that was edited * - $tagSOUR[] - an array of the tags for each gedcom line that was edited * - $islinkSOUR[] - an array of 1 or 0 values to indicate when the text is a link element * - $textSOUR[] - an array of the text data for each line * ** For the remaining records: * - $glevelsRest[] - an array of the gedcom level for each line that was edited * - $tagRest[] - an array of the tags for each gedcom line that was edited * - $islinkRest[] - an array of 1 or 0 values to indicate when the text is a link element * - $textRest[] - an array of the text data for each line */ public static function splitSource() { global $glevels, $tag, $islink, $text; global $glevelsSOUR, $tagSOUR, $islinkSOUR, $textSOUR; global $glevelsRest, $tagRest, $islinkRest, $textRest; $glevelsSOUR = array(); $tagSOUR = array(); $islinkSOUR = array(); $textSOUR = array(); $glevelsRest = array(); $tagRest = array(); $islinkRest = array(); $textRest = array(); $inSOUR = false; for ($i = 0; $i < count($glevels); $i++) { if ($inSOUR) { if ($levelSOUR < $glevels[$i]) { $dest = 'S'; } else { $inSOUR = false; $dest = 'R'; } } else { if ($tag[$i] === 'SOUR') { $inSOUR = true; $levelSOUR = $glevels[$i]; $dest = 'S'; } else { $dest = 'R'; } } if ($dest === 'S') { $glevelsSOUR[] = $glevels[$i]; $tagSOUR[] = $tag[$i]; $islinkSOUR[] = $islink[$i]; $textSOUR[] = $text[$i]; } else { $glevelsRest[] = $glevels[$i]; $tagRest[] = $tag[$i]; $islinkRest[] = $islink[$i]; $textRest[] = $text[$i]; } } } /** * Add new GEDCOM lines from the $xxxSOUR interface update arrays, which * were produced by the splitSOUR() function. * See the FunctionsEdit::handle_updatesges() function for details. * * @param string $inputRec * @param string $levelOverride * * @return string */ public static function updateSource($inputRec, $levelOverride = 'no') { global $glevels, $tag, $islink, $text; global $glevelsSOUR, $tagSOUR, $islinkSOUR, $textSOUR; if (count($tagSOUR) === 0) { return $inputRec; // No update required } // Save original interface update arrays before replacing them with the xxxSOUR ones $glevelsSave = $glevels; $tagSave = $tag; $islinkSave = $islink; $textSave = $text; $glevels = $glevelsSOUR; $tag = $tagSOUR; $islink = $islinkSOUR; $text = $textSOUR; $myRecord = self::handleUpdates($inputRec, $levelOverride); // Now do the update // Restore the original interface update arrays (just in case ...) $glevels = $glevelsSave; $tag = $tagSave; $islink = $islinkSave; $text = $textSave; return $myRecord; } /** * Add new GEDCOM lines from the $xxxRest interface update arrays, which * were produced by the splitSOUR() function. * See the FunctionsEdit::handle_updatesges() function for details. * * @param string $inputRec * @param string $levelOverride * * @return string */ public static function updateRest($inputRec, $levelOverride = 'no') { global $glevels, $tag, $islink, $text; global $glevelsRest, $tagRest, $islinkRest, $textRest; if (count($tagRest) === 0) { return $inputRec; // No update required } // Save original interface update arrays before replacing them with the xxxRest ones $glevelsSave = $glevels; $tagSave = $tag; $islinkSave = $islink; $textSave = $text; $glevels = $glevelsRest; $tag = $tagRest; $islink = $islinkRest; $text = $textRest; $myRecord = self::handleUpdates($inputRec, $levelOverride); // Now do the update // Restore the original interface update arrays (just in case ...) $glevels = $glevelsSave; $tag = $tagSave; $islink = $islinkSave; $text = $textSave; return $myRecord; } /** * Add new gedcom lines from interface update arrays * The edit_interface and FunctionsEdit::add_simple_tag function produce the following * arrays incoming from the $_POST form * - $glevels[] - an array of the gedcom level for each line that was edited * - $tag[] - an array of the tags for each gedcom line that was edited * - $islink[] - an array of 1 or 0 values to tell whether the text is a link element and should be surrounded by @@ * - $text[] - an array of the text data for each line * With these arrays you can recreate the gedcom lines like this * $glevel[0].' '.$tag[0].' '.$text[0] * There will be an index in each of these arrays for each line of the gedcom * fact that is being edited. * If the $text[] array is empty for the given line, then it means that the * user removed that line during editing or that the line is supposed to be * empty (1 DEAT, 1 BIRT) for example. To know if the line should be removed * there is a section of code that looks ahead to the next lines to see if there * are sub lines. For example we don't want to remove the 1 DEAT line if it has * a 2 PLAC or 2 DATE line following it. If there are no sub lines, then the line * can be safely removed. * * @param string $newged the new gedcom record to add the lines to * @param string $levelOverride Override GEDCOM level specified in $glevels[0] * * @return string The updated gedcom record */ public static function handleUpdates($newged, $levelOverride = 'no') { global $glevels, $islink, $tag, $uploaded_files, $text; if ($levelOverride === 'no' || count($glevels) === 0) { $levelAdjust = 0; } else { $levelAdjust = $levelOverride - $glevels[0]; } for ($j = 0; $j < count($glevels); $j++) { // Look for empty SOUR reference with non-empty sub-records. // This can happen when the SOUR entry is deleted but its sub-records // were incorrectly left intact. // The sub-records should be deleted. if ($tag[$j] === 'SOUR' && ($text[$j] === '@@' || $text[$j] === '')) { $text[$j] = ''; $k = $j + 1; while (($k < count($glevels)) && ($glevels[$k] > $glevels[$j])) { $text[$k] = ''; $k++; } } if (trim($text[$j]) !== '') { $pass = true; } else { //-- for facts with empty values they must have sub records //-- this section checks if they have subrecords $k = $j + 1; $pass = false; while (($k < count($glevels)) && ($glevels[$k] > $glevels[$j])) { if ($text[$k] !== '') { if (($tag[$j] !== 'OBJE') || ($tag[$k] === 'FILE')) { $pass = true; break; } } if (($tag[$k] === 'FILE') && (count($uploaded_files) > 0)) { $filename = array_shift($uploaded_files); if (!empty($filename)) { $text[$k] = $filename; $pass = true; break; } } $k++; } } //-- if the value is not empty or it has sub lines //--- then write the line to the gedcom record //-- we have to let some emtpy text lines pass through... (DEAT, BIRT, etc) if ($pass) { $newline = $glevels[$j] + $levelAdjust . ' ' . $tag[$j]; if ($text[$j] !== '') { if ($islink[$j]) { $newline .= ' @' . $text[$j] . '@'; } else { $newline .= ' ' . $text[$j]; } } $newged .= "\n" . str_replace("\n", "\n" . (1 + substr($newline, 0, 1)) . ' CONT ', $newline); } } return $newged; } /** * builds the form for adding new facts * * @param string $fact the new fact we are adding */ public static function createAddForm($fact) { global $tags, $WT_TREE; $tags = array(); // handle MARRiage TYPE if (substr($fact, 0, 5) === 'MARR_') { $tags[0] = 'MARR'; self::addSimpleTag('1 MARR'); self::insertMissingSubtags($fact); } else { $tags[0] = $fact; if ($fact === '_UID') { $fact .= ' ' . GedcomTag::createUid(); } // These new level 1 tags need to be turned into links if (in_array($fact, array('ALIA', 'ASSO'))) { $fact .= ' @'; } if (in_array($fact, Config::emptyFacts())) { self::addSimpleTag('1 ' . $fact . ' Y'); } else { self::addSimpleTag('1 ' . $fact); } self::insertMissingSubtags($tags[0]); //-- handle the special SOURce case for level 1 sources [ 1759246 ] if ($fact === 'SOUR') { self::addSimpleTag('2 PAGE'); self::addSimpleTag('3 TEXT'); if ($WT_TREE->getPreference('FULL_SOURCES')) { self::addSimpleTag('3 DATE', '', GedcomTag::getLabel('DATA:DATE')); self::addSimpleTag('2 QUAY'); } } } } /** * Create a form to edit a Fact object. * * @param Fact $fact * * @return string */ public static function createEditForm(Fact $fact) { global $tags; $record = $fact->getParent(); $tags = array(); $gedlines = explode("\n", $fact->getGedcom()); $linenum = 0; $fields = explode(' ', $gedlines[$linenum]); $glevel = $fields[0]; $level = $glevel; $type = $fact->getTag(); $level0type = $record::RECORD_TYPE; $level1type = $type; $i = $linenum; $inSource = false; $levelSource = 0; $add_date = true; // List of tags we would expect at the next level // NB add_missing_subtags() already takes care of the simple cases // where a level 1 tag is missing a level 2 tag. Here we only need to // handle the more complicated cases. $expected_subtags = array( 'SOUR' => array('PAGE', 'DATA'), 'DATA' => array('TEXT'), 'PLAC' => array('MAP'), 'MAP' => array('LATI', 'LONG'), ); if ($record->getTree()->getPreference('FULL_SOURCES')) { $expected_subtags['SOUR'][] = 'QUAY'; $expected_subtags['DATA'][] = 'DATE'; } if (GedcomCodeTemp::isTagLDS($level1type)) { $expected_subtags['STAT'] = array('DATE'); } if (in_array($level1type, Config::dateAndTime())) { $expected_subtags['DATE'] = array('TIME'); // TIME is NOT a valid 5.5.1 tag } if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $record->getTree()->getPreference('ADVANCED_PLAC_FACTS'), $match)) { $expected_subtags['PLAC'] = array_merge($match[1], $expected_subtags['PLAC']); } $stack = array(); // Loop on existing tags : while (true) { // Keep track of our hierarchy, e.g. 1=>BIRT, 2=>PLAC, 3=>FONE $stack[$level] = $type; // Merge them together, e.g. BIRT:PLAC:FONE $label = implode(':', array_slice($stack, 0, $level)); $text = ''; for ($j = 2; $j < count($fields); $j++) { if ($j > 2) { $text .= ' '; } $text .= $fields[$j]; } $text = rtrim($text); while (($i + 1 < count($gedlines)) && (preg_match("/" . ($level + 1) . ' CONT ?(.*)/', $gedlines[$i + 1], $cmatch) > 0)) { $text .= "\n" . $cmatch[1]; $i++; } if ($type === 'SOUR') { $inSource = true; $levelSource = $level; } elseif ($levelSource >= $level) { $inSource = false; } if ($type !== 'CONT') { $tags[] = $type; $subrecord = $level . ' ' . $type . ' ' . $text; if ($inSource && $type === 'DATE') { self::addSimpleTag($subrecord, '', GedcomTag::getLabel($label, $record)); } elseif (!$inSource && $type === 'DATE') { self::addSimpleTag($subrecord, $level1type, GedcomTag::getLabel($label, $record)); if ($level === '2') { // We already have a date - no need to add one. $add_date = false; } } elseif ($type === 'STAT') { self::addSimpleTag($subrecord, $level1type, GedcomTag::getLabel($label, $record)); } else { self::addSimpleTag($subrecord, $level0type, GedcomTag::getLabel($label, $record)); } } // Get a list of tags present at the next level $subtags = array(); for ($ii = $i + 1; isset($gedlines[$ii]) && preg_match('/^(\d+) (\S+)/', $gedlines[$ii], $mm) && $mm[1] > $level; ++$ii) { if ($mm[1] == $level + 1) { $subtags[] = $mm[2]; } } // Insert missing tags if (!empty($expected_subtags[$type])) { foreach ($expected_subtags[$type] as $subtag) { if (!in_array($subtag, $subtags)) { self::addSimpleTag(($level + 1) . ' ' . $subtag, '', GedcomTag::getLabel($label . ':' . $subtag)); if (!empty($expected_subtags[$subtag])) { foreach ($expected_subtags[$subtag] as $subsubtag) { self::addSimpleTag(($level + 2) . ' ' . $subsubtag, '', GedcomTag::getLabel($label . ':' . $subtag . ':' . $subsubtag)); } } } } } $i++; if (isset($gedlines[$i])) { $fields = explode(' ', $gedlines[$i]); $level = $fields[0]; if (isset($fields[1])) { $type = trim($fields[1]); } else { $level = 0; } } else { $level = 0; } if ($level <= $glevel) { break; } } if ($level1type !== '_PRIM') { self::insertMissingSubtags($level1type, $add_date); } return $level1type; } /** * Populates the global $tags array with any missing sub-tags. * * @param string $level1tag the type of the level 1 gedcom record * @param bool $add_date */ public static function insertMissingSubtags($level1tag, $add_date = false) { global $tags, $WT_TREE; // handle MARRiage TYPE $type_val = ''; if (substr($level1tag, 0, 5) === 'MARR_') { $type_val = substr($level1tag, 5); $level1tag = 'MARR'; } foreach (Config::levelTwoTags() as $key => $value) { if ($key === 'DATE' && in_array($level1tag, Config::nonDateFacts()) || $key === 'PLAC' && in_array($level1tag, Config::nonPlaceFacts())) { continue; } if (in_array($level1tag, $value) && !in_array($key, $tags)) { if ($key === 'TYPE') { self::addSimpleTag('2 TYPE ' . $type_val, $level1tag); } elseif ($level1tag === '_TODO' && $key === 'DATE') { self::addSimpleTag('2 ' . $key . ' ' . strtoupper(date('d M Y')), $level1tag); } elseif ($level1tag === '_TODO' && $key === '_WT_USER') { self::addSimpleTag('2 ' . $key . ' ' . Auth::user()->getUserName(), $level1tag); } elseif ($level1tag === 'TITL' && strstr($WT_TREE->getPreference('ADVANCED_NAME_FACTS'), $key) !== false) { self::addSimpleTag('2 ' . $key, $level1tag); } elseif ($level1tag === 'NAME' && strstr($WT_TREE->getPreference('ADVANCED_NAME_FACTS'), $key) !== false) { self::addSimpleTag('2 ' . $key, $level1tag); } elseif ($level1tag !== 'TITL' && $level1tag !== 'NAME') { self::addSimpleTag('2 ' . $key, $level1tag); } // Add level 3/4 tags as appropriate switch ($key) { case 'PLAC': if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $WT_TREE->getPreference('ADVANCED_PLAC_FACTS'), $match)) { foreach ($match[1] as $tag) { self::addSimpleTag('3 ' . $tag, '', GedcomTag::getLabel($level1tag . ':PLAC:' . $tag)); } } self::addSimpleTag('3 MAP'); self::addSimpleTag('4 LATI'); self::addSimpleTag('4 LONG'); break; case 'FILE': self::addSimpleTag('3 FORM'); break; case 'EVEN': self::addSimpleTag('3 DATE'); self::addSimpleTag('3 PLAC'); break; case 'STAT': if (GedcomCodeTemp::isTagLDS($level1tag)) { self::addSimpleTag('3 DATE', '', GedcomTag::getLabel('STAT:DATE')); } break; case 'DATE': // TIME is NOT a valid 5.5.1 tag if (in_array($level1tag, Config::dateAndTime())) { self::addSimpleTag('3 TIME'); } break; case 'HUSB': case 'WIFE': self::addSimpleTag('3 AGE'); break; case 'FAMC': if ($level1tag === 'ADOP') { self::addSimpleTag('3 ADOP BOTH'); } break; } } elseif ($key === 'DATE' && $add_date) { self::addSimpleTag('2 DATE', $level1tag, GedcomTag::getLabel($level1tag . ':DATE')); } } // Do something (anything!) with unrecognized custom tags if (substr($level1tag, 0, 1) === '_' && $level1tag !== '_UID' && $level1tag !== '_TODO') { foreach (array('DATE', 'PLAC', 'ADDR', 'AGNC', 'TYPE', 'AGE') as $tag) { if (!in_array($tag, $tags)) { self::addSimpleTag('2 ' . $tag); if ($tag === 'PLAC') { if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $WT_TREE->getPreference('ADVANCED_PLAC_FACTS'), $match)) { foreach ($match[1] as $ptag) { self::addSimpleTag('3 ' . $ptag, '', GedcomTag::getLabel($level1tag . ':PLAC:' . $ptag)); } } self::addSimpleTag('3 MAP'); self::addSimpleTag('4 LATI'); self::addSimpleTag('4 LONG'); } } } } } }