"; if ($display=="hierarchy") echo "

", i18n::translate('Place hierarchy'), "

\n\t"; else echo "

", i18n::translate('Place List'), "

\n\t"; // Make sure the "parent" array has no holes if (isset($parent) && is_array($parent)) { $parentKeys = array_keys($parent); $highKey = max($parentKeys); for ($j=0; $j<=$highKey; $j++) { if (!isset($parent[$j])) $parent[$j] = ""; } ksort($parent, SORT_NUMERIC); } if (!isset($parent)) $parent=array(); else { if (!is_array($parent)) $parent = array(); else $parent = array_values($parent); } // Remove slashes foreach ($parent as $p => $child) { $parent[$p] = stripLRMRLM($child); } if (!isset($level)) { $level=0; } if ($level>count($parent)) $level = count($parent); if ($level0) $squery = "&query=".urlencode($tempparent[0]); else $squery=""; for($i=1; $i<$level; $i++) { $squery.=", ".urlencode($tempparent[$i]); } //-- if the number of places found is 0 then automatically redirect to search page if ($numfound==0) { $action="show"; } // -- echo the breadcrumb hierarchy $numls=0; if ($level>0) { //-- link to search results if ((($level>1)||($parent[0]!=""))&&($numfound>0)) { echo $numfound, " ", i18n::translate('Place connections found'), ": "; } //-- breadcrumb $numls = count($parent)-1; $num_place=""; //-- place and page text orientation is opposite -> top level added at the beginning of the place text echo ""; if ($numls>=0 && (($TEXT_DIRECTION=="ltr" && hasRtLText($parent[$numls])) || ($TEXT_DIRECTION=="rtl" && !hasRtLText($parent[$numls])))) echo i18n::translate('Top Level'), ", "; echo ""; for($i=$numls; $i>=0; $i--) { echo "$ppart) { $ppart = rawurlencode($ppart); $ppart = preg_replace("/amp\%3B/", "", trim($ppart)); echo "&parent[$j]=", $ppart; } } echo "\">"; if (trim($parent[$i])=="") { echo i18n::translate('unknown'); } else { echo PrintReady($parent[$i]); } echo ""; if ($i>0) { echo ", "; } elseif (($TEXT_DIRECTION=="rtl" && hasRtLText($parent[$i])) || ($TEXT_DIRECTION=="ltr" && !hasRtLText($parent[$i]))) { echo ", "; } if (empty($num_place)) { $num_place=$parent[$i]; } } } echo ""; //-- place and page text orientation is the same -> top level added at the end of the place text if ($level==0 || ($numls>=0 && (($TEXT_DIRECTION=="rtl" && hasRtLText($parent[$numls])) || ($TEXT_DIRECTION=="ltr" && !hasRtLText($parent[$numls]))))) { echo i18n::translate('Top Level'); } echo '', help_link('ppp_levels'); if ($use_googlemap) { create_map(); } else { // show clickable map if found echo "\n\t

\n\t

"; if ($level>=1 && $level<=3) { $country = $parent[0]; if ($country == "\xD7\x99\xD7\xA9\xD7\xA8\xD7\x90\xD7\x9C") $country = "ISR"; // Israel hebrew name $country = utf8_strtoupper($country); if (strlen($country)!=3) { // search country code using current language countries table // TODO: use translations from all languages foreach (array_keys($iso3166) as $alpha3) { if (utf8_strtoupper(i18n::translate($alpha3)) == $country) { $country = $alpha3; break; } } } $mapname = $country; $areaname = $parent[0]; $imgfile = "places/".$country."/".$mapname.".gif"; $mapfile = "places/".$country."/".$country.".".WT_LOCALE.".htm"; if (!file_exists($mapfile)) $mapfile = "places/".$country."/".$country.".htm"; if ($level>1) { $state = $parent[1]; $mapname .= "_".$state; if ($level>2) { $county = $parent[2]; $mapname .= "_".$county; $areaname = str_replace("'", "\'", $parent[2]); } else { $areaname = str_replace("'", "\'", $parent[1]); } // Transform certain two-byte UTF-8 letters with diacritics // to their 1-byte ASCII analogues without diacritics $mapname = str_replace(array("Ę", "Ó", "Ą", "Ś", "Ł", "Ż", "Ź", "Ć", "Ń", "ę", "ó", "ą", "ś", "ł", "ż", "ź", "ć", "ń"), array("E", "O", "A", "S", "L", "Z", "Z", "C", "N", "e", "o", "a", "s", "l", "z", "z", "c", "n"), $mapname); $mapname = str_replace(array("Š", "Œ", "Ž", "š", "œ", "ž", "Ÿ", "¥", "µ", "À", "Á", "Â", "Ã", "Ä", "Å", "Æ", "Ç", "È", "É", "Ê", "Ë", "Ì", "Í", "Î", "Ï", "Ð", "Ñ", "Ò", "Ó", "Ô", "Õ", "Ö", "Ø", "Ù", "Ú", "Û", "Ü", "Ý", "ß", "à", "á", "â", "ã", "ä", "å", "æ", "ç", "è", "é", "ê", "ë", "ì", "í", "î", "ï", "ð", "ñ", "ò", "ó", "ô", "õ", "ö", "ø", "ù", "ú", "û", "ü", "ý", "ÿ"), array("S", "O", "Z", "s", "o", "z", "Y", "Y", "u", "A", "A", "A", "A", "A", "A", "A", "C", "E", "E", "E", "E", "I", "I", "I", "I", "D", "N", "O", "O", "O", "O", "O", "O", "U", "U", "U", "U", "Y", "s", "a", "a", "a", "a", "a", "a", "a", "c", "e", "e", "e", "e", "i", "i", "i", "i", "o", "n", "o", "o", "o", "o", "o", "o", "u", "u", "u", "u", "y", "y"), $mapname); // Transform apostrophes and blanks to dashes $mapname = str_replace(array("'", " "), "-", $mapname); $imgfile = "places/".$country."/".$mapname.".gif"; } if (file_exists($imgfile) and file_exists($mapfile)) { include ($mapfile); echo ""; ?>

"; } } } //-- create a string to hold the variable links and place names $linklevels=""; if ($use_googlemap) { $placelevels=""; $place_names=array(); } for($j=0; $j<$level; $j++) { $linklevels .= "&parent[$j]=".urlencode($parent[$j]); if ($use_googlemap) { if (trim($parent[$j])=="") { $placelevels = ", ".i18n::translate('unknown').$placelevels; } else { $placelevels = ", ".$parent[$j].$placelevels; } } } $i=0; $ct1=count($placelist); // -- echo the array foreach ($placelist as $key => $value) { if ($i==0) { echo "\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t"; if (($action!="show")&&($level>0)) { echo "\n\t\t"; } echo " 20) { echo "colspan=\"3\""; } elseif ($ct1 > 4) { echo "colspan=\"2\""; } echo "> "; echo "  "; if ($level>0) { echo " ", i18n::translate('Place Hierarchy after'), ": "; echo PrintReady($num_place); } else { echo i18n::translate('Place hierarchy'); } echo help_link('ppp_placelist'); echo " "; } if (begRTLText($value)) { echo " \n"; if (trim($value)=="") echo i18n::translate('unknown'); else echo PrintReady($value); if ($use_googlemap) $place_names[$i]=trim($value); echo " \n"; if ($ct1 > 20){ if ($i == floor($ct1 / 3)) { echo "\n\t\t "; } if ($i == floor(($ct1 / 3) * 2)) { echo "\n\t\t "; } } elseif ($ct1 > 4 && $i == floor($ct1 / 2)) { echo "\n\t\t "; } $i++; } if ($i>0){ echo "\n\t\t 20) { echo "colspan=\"3\""; } elseif ($ct1 > 4) { echo "colspan=\"2\""; } echo ">\n\t"; echo i18n::translate('View all records found in this place'); echo help_link('ppp_view_records'); echo " 20) { echo "colspan=\"3\""; } elseif ($ct1 > 4) { echo "colspan=\"2\""; } echo " style=\"text-align: center;\">"; echo "$value) { echo "&parent[", $key, "]=", urlencode(trim($value)); } echo "\">"; if (trim($value)=="") { echo i18n::translate('unknown'); } else { echo PrintReady($value); } echo " "; echo " "; } echo "

"; } $positions = get_place_positions($parent, $level); if ($level > 0) { if ($action=="show") { // -- array of names $myindilist = array(); $mysourcelist = array(); $myfamlist = array(); foreach ($positions as $position) { $record=GedcomRecord::getInstance($position); switch ($record->getType()) { case 'INDI': $myindilist[]=$record; break; case 'SOUR': $mysourcelist[]=$record; break; case 'FAM': $myfamlist[]=$record; break; } } echo "
"; $title = ""; foreach ($parent as $k=>$v) $title = $v.", ".$title; $title = PrintReady(substr($title, 0, -2))." "; // Sort each of the tables by Name usort($myindilist, array('GedcomRecord', 'Compare')); usort($myfamlist, array('GedcomRecord', 'Compare')); usort($mysourcelist, array('GedcomRecord', 'Compare')); // echo each of the tables print_indi_table($myindilist, i18n::translate('Individuals').' @ '.$title); print_fam_table ($myfamlist, i18n::translate('Families' ).' @ '.$title); print_sour_table($mysourcelist, i18n::translate('Sources' ).' @ '.$title); } } //-- list type display if ($display=="list") { $placelist = array(); $placelist=find_place_list(""); $placelist = array_unique($placelist); uasort($placelist, "utf8_strcasecmp"); if (count($placelist)==0) { echo "", i18n::translate('No results found.'), "
"; } else { echo "\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t"; if ($i>1) { echo "\n"; } echo "\n\t\t

20 ? "3" : "2", "\"> "; echo "  "; echo i18n::translate('Place List'); echo help_link('ppp_placelist'); echo "
"; $i=0; foreach($placelist as $indexval => $revplace) { $linklevels = ""; $levels = explode(',', $revplace); // -- split the place into comma seperated values $level=0; $revplace = ""; foreach($levels as $indexval => $place) { $place = trim($place); $linklevels .= "&parent[$level]=".urlencode($place); $level++; if ($level>1) $revplace .= ", "; if ($place=="") $revplace .= i18n::translate('unknown'); else $revplace .= $place; } if (begRTLText($revplace)) { echo " "; echo PrintReady($revplace), " \n"; $i++; if ($ct > 20){ if ($i == floor($ct / 3)) echo "\n\t\t	"; if ($i == floor(($ct / 3) * 2)) echo "\n\t\t	"; } else if ($i == floor($ct/2)) echo "	\n\t\t\t"; } echo "\n\t\t
"; if ($i>0) echo i18n::translate('Total unique places'), " ", $i; echo "

"; } } echo "
", i18n::translate('Show Places in Hierarchy'); else echo "list\">", i18n::translate('Show All Places in a List'); echo "

\n"; if ($hasplaceform) { $placeheader = substr($header, $hasplaceform); $ct = preg_match("/2 FORM (.*)/", $placeheader, $match); if ($ct>0) { echo i18n::translate('Places are encoded in the form: ').$match[1]; echo help_link('ppp_match_one'); } } else { echo i18n::translate('Places are encoded in the form: '), i18n::translate('City, County, State/Province, Country'), " ", i18n::translate('(Default)'), help_link('ppp_default_form'); } echo "