",
$alpha = WT_Filter::get('alpha'); // All surnames beginning with this letter where "@"=unknown and ","=none
$surname = WT_Filter::get('surname'); // All indis with this surname
$show_all = WT_Filter::get('show_all', 'no|yes', 'no'); // All indis
// Long lists can be broken down by given name
$show_all_firstnames = WT_Filter::get('show_all_firstnames', 'no|yes', 'no');
if ($show_all_firstnames === 'yes') {
$falpha = '';
} else {
$falpha = WT_Filter::get('falpha'); // All first names beginning with this letter
}
$show_marnm = WT_Filter::get('show_marnm', 'no|yes');
switch ($show_marnm) {
case 'no':
case 'yes':
Auth::user()->setPreference(WT_SCRIPT_NAME . '_show_marnm', $show_marnm);
break;
default:
$show_marnm = Auth::user()->getPreference(WT_SCRIPT_NAME . '_show_marnm');
}
// Make sure selections are consistent.
// i.e. can’t specify show_all and surname at the same time.
if ($show_all === 'yes') {
if ($show_all_firstnames === 'yes') {
$alpha = '';
$surname = '';
$legend = WT_I18N::translate('All');
$url = WT_SCRIPT_NAME . '?show_all=yes&ged=' . WT_GEDURL;
$show = 'indi';
} elseif ($falpha) {
$alpha = '';
$surname = '';
$legend = WT_I18N::translate('All') . ', ' . WT_Filter::escapeHtml($falpha) . '…';
$url = WT_SCRIPT_NAME . '?show_all=yes&ged=' . WT_GEDURL;
$show = 'indi';
} else {
$alpha = '';
$surname = '';
$legend = WT_I18N::translate('All');
$url = WT_SCRIPT_NAME . '?show_all=yes' . '&ged=' . WT_GEDURL;
$show = WT_Filter::get('show', 'surn|indi', 'surn');
}
} elseif ($surname) {
$alpha = WT_Query_Name::initialLetter($surname); // so we can highlight the initial letter
$show_all = 'no';
if ($surname === '@N.N.') {
$legend = $UNKNOWN_NN;
} else {
$legend = WT_Filter::escapeHtml($surname);
}
$url = WT_SCRIPT_NAME . '?surname=' . rawurlencode($surname) . '&ged=' . WT_GEDURL;
switch ($falpha) {
case '':
break;
case '@':
$legend .= ', ' . $UNKNOWN_PN;
$url .= '&falpha=' . rawurlencode($falpha) . '&ged=' . WT_GEDURL;
break;
default:
$legend .= ', ' . WT_Filter::escapeHtml($falpha) . '…';
$url .= '&falpha=' . rawurlencode($falpha) . '&ged=' . WT_GEDURL;
break;
}
$show = 'indi'; // SURN list makes no sense here
} elseif ($alpha === '@') {
$show_all = 'no';
$legend = $UNKNOWN_NN;
$url = WT_SCRIPT_NAME . '?alpha=' . rawurlencode($alpha) . '&ged=' . WT_GEDURL;
$show = 'indi'; // SURN list makes no sense here
} elseif ($alpha === ',') {
$show_all = 'no';
$legend = WT_I18N::translate('None');
$url = WT_SCRIPT_NAME . '?alpha=' . rawurlencode($alpha) . '&ged=' . WT_GEDURL;
$show = 'indi'; // SURN list makes no sense here
} elseif ($alpha) {
$show_all = 'no';
$legend = WT_Filter::escapeHtml($alpha) . '…';
$url = WT_SCRIPT_NAME . '?alpha=' . rawurlencode($alpha) . '&ged=' . WT_GEDURL;
$show = WT_Filter::get('show', 'surn|indi', 'surn');
} else {
$show_all = 'no';
$legend = '…';
$url = WT_SCRIPT_NAME . '?ged=' . WT_GEDURL;
$show = 'none'; // Don't show lists until something is chosen
}
$legend = '' . $legend . '';
$controller
->setPageTitle(WT_I18N::translate('Families') . ' : ' . $legend)
->pageHeader();
echo '', WT_I18N::translate('Families'), '
';
// Print a selection list of initial letters
$list = array();
foreach (WT_Query_Name::surnameAlpha($show_marnm === 'yes', true, WT_GED_ID) as $letter => $count) {
switch ($letter) {
case '@':
$html = $UNKNOWN_NN;
break;
case ',':
$html = WT_I18N::translate('None');
break;
default:
$html = WT_Filter::escapeHtml($letter);
break;
}
if ($count) {
if ($letter == $alpha) {
$list[] = '' . $html . '';
} else {
$list[] = '' . $html . '';
}
} else {
$list[] = $html;
}
}
// Search spiders don't get the "show all" option as the other links give them everything.
if (!$SEARCH_SPIDER) {
if ($show_all === 'yes') {
$list[] = '' . WT_I18N::translate('All') . '';
} else {
$list[] = '' . WT_I18N::translate('All') . '';
}
}
echo '', join(' | ', $list), '
';
// Search spiders don't get an option to show/hide the surname sublists,
// nor does it make sense on the all/unknown/surname views
if (!$SEARCH_SPIDER) {
echo '';
if ($show !== 'none') {
if ($show_marnm === 'yes') {
echo '', WT_I18N::translate('Exclude individuals with “%s” as a married name', $legend), '';
} else {
echo '', WT_I18N::translate('Include individuals with “%s” as a married name', $legend), '';
}
if ($alpha !== '@' && $alpha !== ',' && !$surname) {
if ($show === 'surn') {
echo '
', WT_I18N::translate('Show the list of individuals'), '';
} else {
echo '
', WT_I18N::translate('Show the list of surnames'), '';
}
}
}
echo '
';
}
if ($show === 'indi' || $show === 'surn') {
$surns = WT_Query_Name::surnames($surname, $alpha, $show_marnm === 'yes', true, WT_GED_ID);
if ($show === 'surn') {
// Show the surname list
switch ($WT_TREE->getPreference('SURNAME_LIST_STYLE')) {
case 'style1';
echo format_surname_list($surns, 3, true, WT_SCRIPT_NAME);
break;
case 'style3':
echo format_surname_tagcloud($surns, WT_SCRIPT_NAME, true);
break;
case 'style2':
default:
echo format_surname_table($surns, WT_SCRIPT_NAME);
break;
}
} else {
// Show the list
$count = 0;
foreach ($surns as $surnames) {
foreach ($surnames as $list) {
$count += count($list);
}
}
// Don't sublists short lists.
if ($count < $WT_TREE->getPreference('SUBLIST_TRIGGER_I')) {
$falpha = '';
$show_all_firstnames = 'no';
} else {
$givn_initials = WT_Query_Name::givenAlpha($surname, $alpha, $show_marnm === 'yes', true, WT_GED_ID);
// Break long lists by initial letter of given name
if ($surname || $show_all === 'yes') {
// Don't show the list until we have some filter criteria
$show = ($falpha || $show_all_firstnames === 'yes') ? 'indi' : 'none';
$list = array();
foreach ($givn_initials as $givn_initial => $count) {
switch ($givn_initial) {
case '@':
$html = $UNKNOWN_PN;
break;
default:
$html = WT_Filter::escapeHtml($givn_initial);
break;
}
if ($count) {
if ($show === 'indi' && $givn_initial === $falpha && $show_all_firstnames === 'no') {
$list[] = '' . $html . '';
} else {
$list[] = '' . $html . '';
}
} else {
$list[] = $html;
}
}
// Search spiders don't get the "show all" option as the other links give them everything.
if (!$SEARCH_SPIDER) {
if ($show_all_firstnames === 'yes') {
$list[] = '' . WT_I18N::translate('All') . '';
} else {
$list[] = '' . WT_I18N::translate('All') . '';
}
}
if ($show_all === 'no') {
echo '', WT_I18N::translate('Individuals with surname %s', $legend), '
';
}
echo '', join(' | ', $list), '
';
}
}
if ($show === 'indi') {
echo format_fam_table(WT_Query_Name::families($surname, $alpha, $falpha, $show_marnm === 'yes', WT_GED_ID));
}
}
}