/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
foreach ($individual->getFacts('OCCU') as $fact) {
return $fact->getValue();
}
return '';
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
foreach ($individual->getAllNames() as $name) {
return $name['surn'] . ', ' . $name['givn'];
}
return '';
}
/**
* Return a menu item for this chart.
*
* We can only do this if the GD2 library is installed with TrueType support.
*
* @return Menu|null
*/
public function getChartMenu(Individual $individual)
{
if (function_exists('imagettftext')) {
return new Menu($this->getTitle(), 'fanchart.php?rootid=' . $individual->getXref() . '&ged=' . $individual->getTree()->getNameUrl(), 'menu-chart-fanchart', array('rel' => 'nofollow'));
} else {
return null;
}
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
if ($individual->getSex() === 'F') {
return '';
} else {
return (string) Date::getAge($individual->getEstimatedBirthDate(), $this->date(), 0);
}
}
/**
* Find the spouse of a person, using the Xref comparison.
*
* @param Individual $person
*
* @return Individual|null
*/
public function getSpouseById(\Fisharebest\Webtrees\Individual $person)
{
if ($this->gedcomrecord->getWife() && $person->getXref() === $this->gedcomrecord->getWife()->getXref()) {
return $this->gedcomrecord->getHusband();
} else {
return $this->gedcomrecord->getWife();
}
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
if ($individual->getBirthDate()->julianDay() + 365 >= $this->date()->julianDay()) {
// Use the GEDCOM month, as we need this in English - for the US census
return ucfirst(strtolower($individual->getBirthDate()->minimumDate()->format('%O')));
} else {
return '';
}
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
$birth_date = $individual->getBirthDate();
if ($birth_date->minimumJulianDay() === $birth_date->maximumJulianDay()) {
return $birth_date->minimumDate()->format('%j/%n');
} else {
return '';
}
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
$sex = $individual->getSex();
if ($sex === 'M' || $sex === 'F') {
return $sex;
} else {
return '';
}
}
/**
* Return a menu item for this chart.
*
* @param Individual $individual
*
* @return Menu|null
*/
public function getChartMenu(Individual $individual)
{
$tree = $individual->getTree();
$gedcomid = $tree->getUserPreference(Auth::user(), 'gedcomid');
if ($gedcomid) {
return new Menu(I18N::translate('Relationship to me'), 'relationship.php?pid1=' . $gedcomid . '&pid2=' . $individual->getXref() . '&ged=' . $tree->getNameUrl(), 'menu-chart-relationship', array('rel' => 'nofollow'));
} else {
return new Menu(I18N::translate('Relationships'), 'relationship.php?pid1=' . $individual->getXref() . '&ged=' . $tree->getNameUrl(), 'menu-chart-relationship', array('rel' => 'nofollow'));
}
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
foreach ($individual->getSpouseFamilies() as $family) {
foreach ($family->getFacts('MARR') as $fact) {
if ($fact->getDate()->julianDay() + 365 >= $this->date()->julianDay()) {
return 'Y';
}
}
}
return '';
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
switch ($individual->getSex()) {
case 'M':
return $this->male;
case 'F':
return $this->female;
default:
return '';
}
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
foreach ($individual->getSpouseFamilies() as $family) {
foreach ($family->getFacts('MARR') as $fact) {
if ($fact->getDate()->julianDay() + 365 >= $this->date()->julianDay()) {
// Use the GEDCOM month, as we need this in English - for the US census
return ucfirst(strtolower($fact->getDate()->minimumDate()->format('%O')));
}
}
}
return '';
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
foreach ($individual->getAllNames() as $name) {
$given = $name['givn'];
if (strpos($given, ' ') === false) {
return $given;
} else {
return substr($given, 0, strpos($given, ' ') + 2);
}
}
return '';
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
if ($individual->getSex() === 'M') {
return '';
} else {
$years = Date::getAge($individual->getEstimatedBirthDate(), $this->date(), 0);
if ($years > 15) {
$years -= $years % 5;
}
return (string) $years;
}
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
if ($individual->getBirthDate()->isOK()) {
foreach ($individual->getSpouseFamilies() as $family) {
foreach ($family->getFacts('MARR', true) as $fact) {
if ($fact->getDate()->isOK()) {
return Date::getAge($individual->getBirthDate(), $fact->getDate(), 0);
}
}
}
}
return '';
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
$birth_place = $individual->getBirthPlace();
$census_place = $this->place();
// Ignore the census country
if ($birth_place === $census_place) {
return '';
}
if (substr($birth_place, -strlen($census_place) - 2) === ', ' . $census_place) {
return substr($birth_place, 0, -strlen($census_place) - 2);
} else {
return $birth_place;
}
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
if ($individual->getSex() !== 'F') {
return '';
}
$count = 0;
foreach ($individual->getSpouseFamilies() as $family) {
foreach ($family->getChildren() as $child) {
if ($child->getBirthDate()->isOK() && Date::compare($child->getBirthDate(), $this->date()) < 0 && $child->getBirthDate() != $child->getDeathDate() && (!$child->getDeathDate()->isOK() || Date::compare($child->getDeathDate(), $this->date()) > 0)) {
$count++;
}
}
}
return (string) $count;
}
/**
* Create the chart controller
*
* @param int $show_full needed for use by charts module
*/
public function __construct($show_full = 1)
{
global $WT_TREE;
parent::__construct();
$rootid = Filter::get('rootid', WT_REGEX_XREF);
$this->root = Individual::getInstance($rootid, $WT_TREE);
if (!$this->root) {
// Missing root individual? Show the chart for someone.
$this->root = $this->getSignificantIndividual();
}
if (!$this->root || !$this->root->canShowName()) {
http_response_code(404);
$this->error_message = I18N::translate('This individual does not exist or you do not have permission to view it.');
}
// Extract parameter from form
if ($show_full) {
$this->show_full = Filter::getInteger('show_full', 0, 1, $WT_TREE->getPreference('PEDIGREE_FULL_DETAILS'));
} else {
$this->show_full = 0;
}
$this->box = new \stdClass();
if ($this->showFull()) {
$this->box->width = Theme::theme()->parameter('chart-box-x');
$this->box->height = Theme::theme()->parameter('chart-box-y');
} else {
$this->box->width = Theme::theme()->parameter('compact-chart-box-x');
$this->box->height = Theme::theme()->parameter('compact-chart-box-y');
}
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
$marriage_date = null;
foreach ($individual->getSpouseFamilies() as $family) {
foreach ($family->getFacts('MARR', true) as $fact) {
if ($fact->getDate()->isOK() && Date::compare($fact->getDate(), $this->date()) <= 0) {
$marriage_date = $fact->getDate();
}
}
}
if ($marriage_date === null) {
return '';
} else {
return (string) Date::getAge($marriage_date, $this->date(), 0);
}
}
/**
* get edit menu
*/
public function getEditMenu()
{
if (!$this->record || $this->record->isPendingDeletion()) {
return null;
}
// edit menu
$menu = new Menu(I18N::translate('Edit'), '#', 'menu-record');
// edit raw
if (Auth::isAdmin() || Auth::isEditor($this->record->getTree()) && $this->record->getTree()->getPreference('SHOW_GEDCOM_RECORD')) {
$menu->addSubmenu(new Menu(I18N::translate('Edit raw GEDCOM'), '#', 'menu-record-editraw', array('onclick' => 'return edit_raw("' . $this->record->getXref() . '");')));
}
// delete
if (Auth::isEditor($this->record->getTree())) {
$menu->addSubmenu(new Menu(I18N::translate('Delete'), '#', 'menu-record-del', array('onclick' => 'return delete_record("' . I18N::translate('Are you sure you want to delete “%s”?', Filter::escapeJs(Filter::unescapeHtml($this->record->getFullName()))) . '", "' . $this->record->getXref() . '");')));
}
// add to favorites
if (Module::getModuleByName('user_favorites')) {
$menu->addSubmenu(new Menu(I18N::translate('Add to favorites'), '#', 'menu-record-addfav', array('onclick' => 'jQuery.post("module.php?mod=user_favorites&mod_action=menu-add-favorite" ,{xref:"' . $this->record->getXref() . '"},function(){location.reload();})')));
}
// Get the link for the first submenu and set it as the link for the main menu
if ($menu->getSubmenus()) {
$submenus = $menu->getSubmenus();
$menu->setLink($submenus[0]->getLink());
$menu->setAttrs($submenus[0]->getAttrs());
}
return $menu;
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
$place = $individual->getBirthPlace();
// Did we emigrate or naturalise?
foreach ($individual->getFacts('IMMI|EMIG|NATU', true) as $fact) {
if (Date::compare($fact->getDate(), $this->date()) <= 0) {
$place = $fact->getPlace()->getGedcomName();
}
}
$place = explode(', ', $place);
$place = end($place);
if ($place === 'England' || $place === 'Scotland' || $place === 'Wales') {
return 'British';
} else {
return $place;
}
}
/**
* Extend \Fisharebest\Webtrees\Individual getInstance, in order to retrieve directly a object
*
* @param string $xref
* @param Tree $tree
* @param null|string $gedcom
* @return null|Individual
*/
public static function getIntance($xref, Tree $tree, $gedcom = null)
{
$indi = \Fisharebest\Webtrees\Individual::getInstance($xref, $tree, $gedcom);
if ($indi) {
return new Individual($indi);
}
return null;
}
/**
* Generate the likely value of this census column, based on available information.
*
* @param Individual $individual
* @param Individual|null $head
*
* @return string
*/
public function generate(Individual $individual, Individual $head = null)
{
$birth_place = explode(', ', $individual->getBirthPlace());
$birth_place = end($birth_place);
$census_place = $this->place();
if ($birth_place === 'Wales') {
$birth_place = 'England';
}
if ($census_place === 'Wales') {
$census_place = 'England';
}
if ($birth_place === $census_place || $birth_place === '') {
return '';
} elseif ($birth_place === 'England' || $birth_place === 'Scotland' || $birth_place === 'Ireland') {
return substr($birth_place, 0, 1);
} else {
return 'F';
}
}
/**
* Generate the HTML content of this block.
*
* @param int $block_id
* @param bool $template
* @param string[] $cfg
*
* @return string
*/
public function getBlock($block_id, $template = true, $cfg = array())
{
global $WT_TREE;
$id = $this->getName() . $block_id;
$class = $this->getName() . '_block';
$title = $this->getTitle();
$anonymous = 0;
$logged_in = array();
$content = '';
foreach (User::allLoggedIn() as $user) {
if (Auth::isAdmin() || $user->getPreference('visibleonline')) {
$logged_in[] = $user;
} else {
$anonymous++;
}
}
$count_logged_in = count($logged_in);
$content .= '<div class="logged_in_count">';
if ($anonymous) {
$content .= I18N::plural('%s anonymous signed-in user', '%s anonymous signed-in users', $anonymous, I18N::number($anonymous));
if ($count_logged_in) {
$content .= ' | ';
}
}
if ($count_logged_in) {
$content .= I18N::plural('%s signed-in user', '%s signed-in users', $count_logged_in, I18N::number($count_logged_in));
}
$content .= '</div>';
$content .= '<div class="logged_in_list">';
if (Auth::check()) {
foreach ($logged_in as $user) {
$individual = Individual::getInstance($WT_TREE->getUserPreference($user, 'gedcomid'), $WT_TREE);
$content .= '<div class="logged_in_name">';
if ($individual) {
$content .= '<a href="' . $individual->getHtmlUrl() . '">' . $user->getRealNameHtml() . '</a>';
} else {
$content .= $user->getRealNameHtml();
}
$content .= ' - ' . Filter::escapeHtml($user->getUserName());
if (Auth::id() != $user->getUserId() && $user->getPreference('contactmethod') != 'none') {
$content .= ' <a class="icon-email" href="#" onclick="return message(\'' . Filter::escapeHtml($user->getUserName()) . '\', \'\', \'' . Filter::escapeHtml(Functions::getQueryUrl()) . '\');" title="' . I18N::translate('Send a message') . '"></a>';
}
$content .= '</div>';
}
}
$content .= '</div>';
if ($anonymous === 0 && $count_logged_in === 0) {
return '';
}
if ($template) {
return Theme::theme()->formatBlock($id, $title, $class, $content);
} else {
return $content;
}
}
/**
* What was an individual's likely name on a given date, allowing
* for marriages and married names.
*
* @param Individual $individual
* @param Date $census_date
*
* @return string[]
*/
protected function nameAtCensusDate(Individual $individual, Date $census_date)
{
$names = $individual->getAllNames();
$name = $names[0];
foreach ($individual->getSpouseFamilies() as $family) {
foreach ($family->getFacts('MARR') as $marriage) {
if ($marriage->getDate()->isOK() && Date::compare($marriage->getDate(), $census_date) < 0) {
$spouse = $family->getSpouse($individual);
foreach ($names as $individual_name) {
foreach ($spouse->getAllNames() as $spouse_name) {
if ($individual_name['type'] === '_MARNM' && $individual_name['surn'] === $spouse_name['surn']) {
return $individual_name;
}
}
}
}
}
}
return $name;
}
/**
* get edit menu
*/
public function getEditMenu()
{
if (!$this->record || $this->record->isPendingDeletion()) {
return null;
}
// edit menu
$menu = new Menu(I18N::translate('Edit'), '#', 'menu-record');
// edit raw
if (Auth::isAdmin() || Auth::isEditor($this->record->getTree()) && $this->record->getTree()->getPreference('SHOW_GEDCOM_RECORD')) {
$menu->addSubmenu(new Menu(I18N::translate('Edit the raw GEDCOM'), '#', 'menu-record-editraw', array('onclick' => 'return edit_raw("' . $this->record->getXref() . '");')));
}
// delete
if (Auth::isEditor($this->record->getTree())) {
$menu->addSubmenu(new Menu(I18N::translate('Delete'), '#', 'menu-record-del', array('onclick' => 'return delete_record("' . I18N::translate('Are you sure you want to delete “%s”?', Filter::escapeJs(Filter::unescapeHtml($this->record->getFullName()))) . '", "' . $this->record->getXref() . '");')));
}
return $menu;
}
/**
* Fetch a list of individuals with specified names
*
* To search for unknown names, use $surn="@N.N.", $salpha="@" or $galpha="@"
* To search for names with no surnames, use $salpha=","
*
* @param Tree $tree only fetch individuals from this tree
* @param string $surn if set, only fetch people with this surname
* @param string $salpha if set, only fetch surnames starting with this letter
* @param string $galpha if set, only fetch given names starting with this letter
* @param bool $marnm if set, include married names
* @param bool $fams if set, only fetch individuals with FAMS records
*
* @return Individual[]
*/
public static function individuals(Tree $tree, $surn, $salpha, $galpha, $marnm, $fams)
{
$sql = "SELECT i_id AS xref, i_gedcom AS gedcom, n_full " . "FROM `##individuals` " . "JOIN `##name` ON n_id = i_id AND n_file = i_file " . ($fams ? "JOIN `##link` ON n_id = l_from AND n_file = l_file AND l_type = 'FAMS' " : "") . "WHERE n_file = :tree_id " . ($marnm ? "" : "AND n_type != '_MARNM'");
$args = array('tree_id' => $tree->getTreeId());
if ($surn) {
$sql .= " AND n_surn COLLATE :collate_1 = :surn";
$args['collate_1'] = I18N::collation();
$args['surn'] = $surn;
} elseif ($salpha === ',') {
$sql .= " AND n_surn = ''";
} elseif ($salpha === '@') {
$sql .= " AND n_surn = '@N.N.'";
} elseif ($salpha) {
$sql .= " AND " . self::getInitialSql('n_surn', $salpha);
} else {
// All surnames
$sql .= " AND n_surn NOT IN ('', '@N.N.')";
}
if ($galpha) {
$sql .= " AND " . self::getInitialSql('n_givn', $galpha);
}
$sql .= " ORDER BY CASE n_surn WHEN '@N.N.' THEN 1 ELSE 0 END, n_surn COLLATE :collate_2, CASE n_givn WHEN '@P.N.' THEN 1 ELSE 0 END, n_givn COLLATE :collate_3";
$args['collate_2'] = I18N::collation();
$args['collate_3'] = I18N::collation();
$list = array();
$rows = Database::prepare($sql)->execute($args)->fetchAll();
foreach ($rows as $row) {
$person = Individual::getInstance($row->xref, $tree, $row->gedcom);
// The name from the database may be private - check the filtered list...
foreach ($person->getAllNames() as $n => $name) {
if ($name['fullNN'] == $row->n_full) {
$person->setPrimaryName($n);
// We need to clone $person, as we may have multiple references to the
// same person in this list, and the "primary name" would otherwise
// be shared amongst all of them.
$list[] = clone $person;
break;
}
}
}
return $list;
}
/**
* get the person box stylesheet class for the given person
*
* @param Individual $person
*
* @return string returns 'person_box', 'person_boxF', or 'person_boxNN'
*/
public function getPersonStyle($person)
{
switch ($person->getSex()) {
case 'M':
$class = 'person_box';
break;
case 'F':
$class = 'person_boxF';
break;
default:
$class = 'person_boxNN';
break;
}
if ($person->isPendingDeletion()) {
$class .= ' old';
} elseif ($person->isPendingAddtion()) {
$class .= ' new';
}
return $class;
}
/**
* {@inhericDoc}
* @see \MyArtJaub\Webtrees\Mvc\View\AbstractView::renderContent()
*/
protected function renderContent()
{
if ($this->data->get('has_sosa', false)) {
$table_id = $this->data->get('table_id');
?>
<div id="sosa-fam-list" class="sosa-list">
<table id="<?php
echo $table_id;
?>
">
<thead>
<tr>
<th colspan="24">
<div class="btn-toolbar">
<div class="btn-group">
<button
type="button"
data-filter-column="22"
data-filter-value="N"
class="ui-state-default"
title="<?php
echo I18N::translate('Show individuals who are alive or couples where both partners are alive.');
?>
"
>
<?php
echo I18N::translate('Both alive');
?>
</button>
<button
type="button"
data-filter-column="22"
data-filter-value="W"
class="ui-state-default"
title="<?php
echo I18N::translate('Show couples where only the female partner is deceased.');
?>
"
>
<?php
echo I18N::translate('Widower');
?>
</button>
<button
type="button"
data-filter-column="22"
data-filter-value="H"
class="ui-state-default"
title="<?php
echo I18N::translate('Show couples where only the male partner is deceased.');
?>
"
>
<?php
echo I18N::translate('Widow');
?>
</button>
<button
type="button"
data-filter-column="22"
data-filter-value="Y"
class="ui-state-default"
title="<?php
echo I18N::translate('Show individuals who are dead or couples where both partners are deceased.');
?>
"
>
<?php
echo I18N::translate('Both dead');
?>
</button>
</div>
<div class="btn-group">
<button
type="button"
data-filter-column="23"
data-filter-value="R"
class="ui-state-default"
title="<?php
echo I18N::translate('Show “roots” couples or individuals. These individuals may also be called “patriarchs”. They are individuals who have no parents recorded in the database.');
?>
"
>
<?php
echo I18N::translate('Roots');
?>
</button>
<button
type="button"
data-filter-column="23"
data-filter-value="L"
class="ui-state-default"
title="<?php
echo I18N::translate('Show “leaves” couples or individuals. These are individuals who are alive but have no children recorded in the database.');
?>
"
>
<?php
echo I18N::translate('Leaves');
?>
</button>
</div>
<div class="btn-group">
<button
type="button"
data-filter-column="21"
data-filter-value="U"
class="ui-state-default"
title="<?php
echo I18N::translate('Show couples with an unknown marriage date.');
?>
"
>
<?php
echo GedcomTag::getLabel('MARR');
?>
</button>
<button
type="button"
data-filter-column="21"
data-filter-value="YES"
class="ui-state-default"
title="<?php
echo I18N::translate('Show couples who married more than 100 years ago.');
?>
"
>
<?php
echo GedcomTag::getLabel('MARR');
?>
>100
</button>
<button
type="button"
data-filter-column="21"
data-filter-value="Y100"
class="ui-state-default"
title="<?php
echo I18N::translate('Show couples who married within the last 100 years.');
?>
"
>
<?php
echo GedcomTag::getLabel('MARR');
?>
<=100
</button>
<button
type="button"
data-filter-column="21"
data-filter-value="D"
class="ui-state-default"
title="<?php
echo I18N::translate('Show divorced couples.');
?>
"
>
<?php
echo GedcomTag::getLabel('DIV');
?>
</button>
<button
type="button"
data-filter-column="21"
data-filter-value="M"
class="ui-state-default"
title="<?php
echo I18N::translate('Show couples where either partner married more than once.');
?>
"
>
<?php
echo I18N::translate('Multiple marriages');
?>
</button>
</div>
</div>
</th>
</tr>
<tr>
<th><?php
echo I18N::translate('Sosa');
?>
</th>
<th>SOSA</th>
<th><?php
echo GedcomTag::getLabel('GIVN');
?>
</th>
<th><?php
echo GedcomTag::getLabel('SURN');
?>
</th>
<th>HUSB:GIVN_SURN</th>
<th>HUSB:SURN_GIVN</th>
<th><?php
echo GedcomTag::getLabel('AGE');
?>
</th>
<th>AGE</th>
<th><?php
echo GedcomTag::getLabel('GIVN');
?>
</th>
<th><?php
echo GedcomTag::getLabel('SURN');
?>
</th>
<th>WIFE:GIVN_SURN</th>
<th>WIFE:SURN_GIVN</th>
<th><?php
echo GedcomTag::getLabel('AGE');
?>
</th>
<th>AGE</th>
<th><?php
echo GedcomTag::getLabel('MARR');
?>
</th>
<th>MARR:DATE</th>
<th><?php
echo GedcomTag::getLabel('PLAC');
?>
</th>';
<?php
if (ModuleManager::getInstance()->isOperational(Constants::MODULE_MAJ_ISSOURCED_NAME)) {
?>
<th><i class="icon-source" title="<?php
echo I18N::translate('Sourced marriage');
?>
" border="0"></i></th>
<th>SORT_MARRSC</th>
<?php
} else {
?>
<th> </th>
<th></th>
<?php
}
?>
<th><i class="icon-children" title="<?php
echo I18N::translate('Children');
?>
"></i></th>
<th>NCHI</th>
<th>MARR</th>
<th>DEAT</th>
<th>TREE</th>
</tr>
</thead>
<tbody>
<?php
foreach ($this->data->get('sosa_list') as $sosa => $family) {
/** @var \Fisharebest\Webtrees\Family $person */
//PERSO Create decorator for Family
$dfamily = new Family($family);
$husb = $family->getHusband();
if (is_null($husb)) {
$husb = new Individual('H', '0 @H@ INDI', null, $family->getTree());
}
$dhusb = new \MyArtJaub\Webtrees\Individual($husb);
$wife = $family->getWife();
if (is_null($wife)) {
$wife = new Individual('W', '0 @W@ INDI', null, $family->getTree());
}
$dwife = new \MyArtJaub\Webtrees\Individual($wife);
$mdate = $family->getMarriageDate();
if ($family->isPendingAddtion()) {
$class = ' class="new"';
} elseif ($family->isPendingDeletion()) {
$class = ' class="old"';
} else {
$class = '';
}
?>
<tr <?php
echo $class;
?>
>
<td class="transparent"><?php
echo I18N::translate('%1$d/%2$d', $sosa, ($sosa + 1) % 10);
?>
</td>
<td class="transparent"><?php
echo $sosa;
?>
</td>
<!-- HUSBAND -->
<td colspan="2">
<?php
foreach ($husb->getAllNames() as $num => $name) {
if ($name['type'] == 'NAME') {
$title = '';
} else {
$title = 'title="' . strip_tags(GedcomTag::getLabel($name['type'], $husb)) . '"';
}
if ($num == $husb->getPrimaryName()) {
$class = ' class="name2"';
$sex_image = $husb->getSexImage();
list($surn, $givn) = explode(',', $name['sort']);
} else {
$class = '';
$sex_image = '';
}
?>
<a <?php
echo $title . ' ' . $class;
?>
href="<?php
echo $husb->getHtmlUrl();
?>
">
<?php
echo \Fisharebest\Webtrees\Functions\FunctionsPrint::highlightSearchHits($name['full']);
?>
</a>
<?php
echo $sex_image . FunctionsPrint::formatSosaNumbers($dhusb->getSosaNumbers(), 1, 'smaller');
?>
<br/>
<?php
}
echo $husb->getPrimaryParentsNames('parents details1', 'none');
?>
</td>
<!-- Dummy column to match colspan in header -->
<td style="display:none;"></td>
<td>
<?php
echo Filter::escapeHtml(str_replace('@P.N.', 'AAAA', $givn)) . 'AAAA' . Filter::escapeHtml(str_replace('@N.N.', 'AAAA', $surn));
?>
</td>
<td>
<?php
echo Filter::escapeHtml(str_replace('@N.N.', 'AAAA', $surn)) . 'AAAA' . Filter::escapeHtml(str_replace('@P.N.', 'AAAA', $givn));
?>
</td>
<?php
$hdate = $husb->getBirthDate();
?>
<td><?php
Date::getAge($hdate, $mdate, 2);
?>
</td>
<td><?php
Date::getAge($hdate, $mdate, 1);
?>
</td>
<!-- WIFE -->
<td colspan="2">
<?php
foreach ($wife->getAllNames() as $num => $name) {
if ($name['type'] == 'NAME') {
$title = '';
} else {
$title = 'title="' . strip_tags(GedcomTag::getLabel($name['type'], $wife)) . '"';
}
if ($num == $wife->getPrimaryName()) {
$class = ' class="name2"';
$sex_image = $wife->getSexImage();
list($surn, $givn) = explode(',', $name['sort']);
} else {
$class = '';
$sex_image = '';
}
?>
<a <?php
echo $title . ' ' . $class;
?>
href="<?php
echo $wife->getHtmlUrl();
?>
">
<?php
echo \Fisharebest\Webtrees\Functions\FunctionsPrint::highlightSearchHits($name['full']);
?>
</a>
<?php
echo $sex_image . FunctionsPrint::formatSosaNumbers($dwife->getSosaNumbers(), 1, 'smaller');
?>
<br/>
<?php
}
echo $wife->getPrimaryParentsNames('parents details1', 'none');
?>
</td>
<!-- Dummy column to match colspan in header -->
<td style="display:none;"></td>
<td>
<?php
echo Filter::escapeHtml(str_replace('@P.N.', 'AAAA', $givn)) . 'AAAA' . Filter::escapeHtml(str_replace('@N.N.', 'AAAA', $surn));
?>
</td>
<td>
<?php
echo Filter::escapeHtml(str_replace('@N.N.', 'AAAA', $surn)) . 'AAAA' . Filter::escapeHtml(str_replace('@P.N.', 'AAAA', $givn));
?>
</td>
<?php
$wdate = $wife->getBirthDate();
?>
<td><?php
Date::getAge($wdate, $mdate, 2);
?>
</td>
<td><?php
Date::getAge($wdate, $mdate, 1);
?>
</td>
<td><?php
if ($marriage_dates = $family->getAllMarriageDates()) {
foreach ($marriage_dates as $n => $marriage_date) {
if ($n) {
echo '<br>';
}
?>
<div><?php
echo $marriage_date->display(true);
?>
</div>
<?php
}
} elseif ($family->getFacts('_NMR')) {
echo I18N::translate('no');
} elseif ($family->getFacts('MARR')) {
echo I18N::translate('yes');
} else {
echo ' ';
}
?>
</td>
<td><?php
echo $marriage_dates ? $marriage_date->julianDay() : 0;
?>
</td>
<td><?php
foreach ($family->getAllMarriagePlaces() as $n => $marriage_place) {
$tmp = new Place($marriage_place, $family->getTree());
if ($n) {
?>
<br><?php
}
?>
<a href="'<?php
echo $tmp->getURL();
?>
" title="<?php
echo strip_tags($tmp->getFullName());
?>
">
<?php
echo \Fisharebest\Webtrees\Functions\FunctionsPrint::highlightSearchHits($tmp->getShortName());
?>
</a>
<?php
}
?>
</td>
<?php
if (ModuleManager::getInstance()->isOperational(Constants::MODULE_MAJ_ISSOURCED_NAME)) {
$isMSourced = $dfamily->isMarriageSourced();
?>
<td><?php
echo FunctionsPrint::formatIsSourcedIcon('E', $isMSourced, 'MARR', 1, 'medium');
?>
</td>
<td><?php
echo $isMSourced;
?>
</td>
<?php
} else {
?>
<td> </td>
<td></td>
<?php
}
?>
<?php
$nchi = $family->getNumberOfChildren();
?>
<td><?php
echo I18N::number($nchi);
?>
</td>
<td><?php
echo $nchi;
?>
</td>
<td><?php
if (!$mdate->isOK()) {
echo 'U';
} else {
if (Date::compare($mdate, new Date(date('Y') - 100)) > 0) {
echo 'Y100';
} else {
echo 'YES';
}
}
if ($family->getFacts(WT_EVENTS_DIV)) {
echo 'D';
}
if (count($husb->getSpouseFamilies()) > 1 || count($wife->getSpouseFamilies()) > 1) {
echo 'M';
}
?>
</td>
<td><?php
if ($husb->isDead() && $wife->isDead()) {
echo 'Y';
}
if ($husb->isDead() && !$wife->isDead()) {
if ($wife->getSex() == 'F') {
echo 'H';
}
if ($wife->getSex() == 'M') {
echo 'W';
}
// male partners
}
if (!$husb->isDead() && $wife->isDead()) {
if ($husb->getSex() == 'M') {
echo 'W';
}
if ($husb->getSex() == 'F') {
echo 'H';
}
// female partners
}
if (!$husb->isDead() && !$wife->isDead()) {
echo 'N';
}
?>
</td>
<td><?php
if (!$husb->getChildFamilies() && !$wife->getChildFamilies()) {
echo 'R';
} elseif (!$husb->isDead() && !$wife->isDead() && $family->getNumberOfChildren() < 1) {
echo 'L';
} else {
echo ' ';
}
?>
</td>
</tr>
<?php
}
?>
</tbody>
<tfoot>
<tr>
<th colspan="24">
<div class="btn-toolbar">
<div class="btn-group">
<button type="button" class="ui-state-default btn-toggle-parents">
<?php
echo I18N::translate('Show parents');
?>
</button>
<button id="btn-toggle-statistics-<?php
echo $table_id;
?>
" type="button" class="ui-state-default btn-toggle-statistics">
<?php
echo I18N::translate('Show statistics charts');
?>
</button>
</div>
</div>
</th>
</tr>
</tfoot>
</table>
<div id="fam_list_table-charts_<?php
echo $table_id;
?>
" style="display:none">
<table class="list-charts">
<tr>
<td><?php
echo $this->data->get('chart_births');
?>
</td>
<td><?php
echo $this->data->get('chart_marriages');
?>
</td>
</tr>
<tr>
<td colspan="2"><?php
echo $this->data->get('chart_ages');
?>
</td>
</tr>
</table>
</div>
</div>
<?php
} else {
?>
<p class="warning"><?php
echo I18N::translate('No family has been found for generation %d', $this->data->get('generation'));
?>
</p>
<?php
}
}
/**
* Search for individuals in a tree.
*
* @param Tree $tree Search this tree
* @param string $query Search for this text
*
* @return string
*/
private function search(Tree $tree, $query)
{
if (strlen($query) < 2) {
return '';
}
$rows = Database::prepare("SELECT i_id AS xref, i_gedcom AS gedcom" . " FROM `##individuals`, `##name`" . " WHERE (i_id LIKE CONCAT('%', :query_1, '%') OR n_sort LIKE CONCAT('%', :query_2, '%'))" . " AND i_id = n_id AND i_file = n_file AND i_file = :tree_id" . " ORDER BY n_sort COLLATE :collation" . " LIMIT 50")->execute(array('query_1' => $query, 'query_2' => $query, 'tree_id' => $tree->getTreeId(), 'collation' => I18N::collation()))->fetchAll();
$out = '<ul>';
foreach ($rows as $row) {
$person = Individual::getInstance($row->xref, $tree, $row->gedcom);
if ($person->canShowName()) {
$out .= '<li><a href="' . $person->getHtmlUrl() . '">' . $person->getSexImage() . ' ' . $person->getFullName() . ' ';
if ($person->canShow()) {
$bd = $person->getLifeSpan();
if (!empty($bd)) {
$out .= ' (' . $bd . ')';
}
}
$out .= '</a></li>';
}
}
$out .= '</ul>';
return $out;
}