10 files changed, 1458 insertions, 0 deletions

diff --git a/includes/extras/functions.ar.php b/includes/extras/functions.ar.php
new file mode 100644
index 0000000000..2b0ca80fbb
--- /dev/null
+++ b/includes/extras/functions.ar.php
@@ -0,0 +1,47 @@
+<?php
+/**
+ *
+ * webtrees: Web based Family History software
+ * Copyright (C) 2010 webtrees development team.
+ *
+ * Derived from PhpGedView
+ * Copyright (C) 2007 Greg Roach
+ *
+ * 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 2 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, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ * @package webtrees
+ * @version $Id$
+ */
+
+if (!defined('WT_WEBTREES')) {
+	header('HTTP/1.0 403 Forbidden');
+	exit;
+}
+
+define('WT_FUNCTIONS_AR_PHP', '');
+
+////////////////////////////////////////////////////////////////////////////////
+// Localise a date. "[qualifier] date [qualifier date] [qualifier]"
+////////////////////////////////////////////////////////////////////////////////
+function date_localisation_ar(&$q1, &$d1, &$q2, &$d2, &$q3) {
+	// Simple substitution of arabic digits
+	$latin =array('0', '1', '2', '3', '4', '5', '6' ,'7', '8', '9' );
+	$arabic=array('٠','١','٢','٣','٤','٥','٦','٧','٨','٩');
+
+	$d1=str_replace($latin, $arabic, $d1);
+	$d2=str_replace($latin, $arabic, $d2);
+}
+
+?>
diff --git a/includes/extras/functions.el.php b/includes/extras/functions.el.php
new file mode 100644
index 0000000000..e80d731148
--- /dev/null
+++ b/includes/extras/functions.el.php
@@ -0,0 +1,54 @@
+<?php
+/**
+ *
+ * webtrees: Web based Family History software
+ * Copyright (C) 2010 webtrees development team.
+ *
+ * Derived from PhpGedView
+ * Copyright (C) 2008 Greg Roach
+ *
+ * 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 2 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, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ * @package webtrees
+ * @version $Id$
+ */
+
+if (!defined('WT_WEBTREES')) {
+	header('HTTP/1.0 403 Forbidden');
+	exit;
+}
+
+define('WT_FUNCTIONS_EL_PHP', '');
+
+////////////////////////////////////////////////////////////////////////////////
+// Localise a date.
+////////////////////////////////////////////////////////////////////////////////
+function date_localisation_el(&$q1, &$d1, &$q2, &$d2, &$q3) {
+	static $NOMINATIVE_MONTHS=null;
+	static $GENITIVE_MONTHS=null;
+
+	if (is_null($NOMINATIVE_MONTHS)) {
+		$NOMINATIVE_MONTHS=array(i18n::translate('January'), i18n::translate('February'), i18n::translate('March'), i18n::translate('April'), i18n::translate('May'), i18n::translate('June'), i18n::translate('July'), i18n::translate('August'), i18n::translate('September'), i18n::translate('October'), i18n::translate('November'), i18n::translate('December'));
+		$GENITIVE_MONTHS=array('Ιανουαρίου', 'Φεβρουαρίου', 'Μαρτίου', 'Απριλίου', 'Μαΐου', 'Ιουνίου', 'Ιουλίου', 'Αυγούστου', 'Σεπτεμβρίου', 'Οκτωβρίου', 'Νοεμβρίου', 'Δεκεμβρίου');
+	}
+
+	// Months with a day number are genitive, regardless of qualifier
+	for ($i=0; $i<12; ++$i) {
+		$d1=preg_replace("/(\d+ ){$NOMINATIVE_MONTHS[$i]}/", "$1{$GENITIVE_MONTHS[$i]}", $d1);
+		$d2=preg_replace("/(\d+ ){$NOMINATIVE_MONTHS[$i]}/", "$1{$GENITIVE_MONTHS[$i]}", $d2);
+	}
+}
+
+?>
diff --git a/includes/extras/functions.en.php b/includes/extras/functions.en.php
new file mode 100644
index 0000000000..7cdc5cc028
--- /dev/null
+++ b/includes/extras/functions.en.php
@@ -0,0 +1,51 @@
+<?php
+/**
+ *
+ * webtrees: Web based Family History software
+ * Copyright (C) 2010 webtrees development team.
+ *
+ * Derived from PhpGedView
+ * Copyright (C) 2002 to 2009  PGV 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 2 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, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ * @package webtrees
+ * @version $Id$
+ */
+
+if (!defined('WT_WEBTREES')) {
+	header('HTTP/1.0 403 Forbidden');
+	exit;
+}
+
+define('WT_FUNCTIONS_EN_PHP', '');
+
+////////////////////////////////////////////////////////////////////////////////
+// Create an ordinal suffix for a number.
+////////////////////////////////////////////////////////////////////////////////
+function ordinal_suffix_en($n) {
+	if ($n==1 || $n==21 || $n==31)
+		return 'st';
+	if ($n==2 || $n==22)
+		return 'nd';
+	if ($n==3 || $n==23)
+		return 'rd';
+  return 'th';
+}
+
+function century_localisation_en($n) {
+	return $n.ordinal_suffix_en($n);
+}
+?>
diff --git a/includes/extras/functions.fi.php b/includes/extras/functions.fi.php
new file mode 100644
index 0000000000..1f1c923364
--- /dev/null
+++ b/includes/extras/functions.fi.php
@@ -0,0 +1,168 @@
+<?php
+/**
+ * Finnish Date Functions that can be used by any page in PGV
+ * Other functions that are specific to Finnish can be added here too
+ *
+ * The functions in this file are common to all PGV pages and include date conversion
+ * routines and sorting functions.
+ *
+ * webtrees: Web based Family History software
+ * Copyright (C) 2010 webtrees development team.
+ *
+ * Derived from PhpGedView
+ * Copyright (C) 2002 to 2003  John Finlay and Others
+ *
+ * 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 2 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, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ * @package webtrees
+ * @version $Id$
+ */
+
+if (!defined('WT_WEBTREES')) {
+	header('HTTP/1.0 403 Forbidden');
+	exit;
+}
+
+define('WT_FUNCTIONS_FI_PHP', '');
+
+////////////////////////////////////////////////////////////////////////////////
+// Localise a date. "[qualifier] date [qualifier date] [qualifier]"
+////////////////////////////////////////////////////////////////////////////////
+function date_localisation_fi(&$q1, &$d1, &$q2, &$d2, &$q3) {
+	// Constant 'ta' is appended to the Finnish month values, if a day value exists
+	$d1=preg_replace("/(\b\d{1,2}\D+kuu\b)/", "$1ta", $d1);
+	$d2=preg_replace("/(\b\d{1,2}\D+kuu\b)/", "$1ta", $d2);
+}
+
+//-- functions to calculate finnish specific genitive names
+// NOTE this function is incomplete and probably very inefficient.
+// I've decided that for now the task is beyond me, I have looked
+// for a freely availiable algorithm and failed to find one.
+// it is best left to a finnish speaker
+function getFirstRelationsName_fi($pid)
+{
+	// In Finnish we want the genitive form of the name
+	$person=Person::getInstance($pid);
+	if ($person) {
+		$name=$person->getFullName();
+	} else {
+		$name='';
+	}
+
+	// for now I have been asked to remove the body of this function - if any Finnish
+	// speaker can sort this out I would be grateful.
+    return $name;
+
+    // First we look for Consonant gradation
+    if(preg_match("/kki$/", $name))
+	{
+	    preg_replace("/kki$/", "kin", $name);
+	}
+    else if(preg_match("/kka$/", $name))
+	{
+	    preg_replace("/kka$/", "kan", $name);
+	}
+    else if(preg_match("/ppi$/", $name))
+	{
+	    preg_replace("/ppi$/", "pin", $name);
+	}
+    else if(preg_match("/ppa$/", $name))
+	{
+	    preg_replace("/ppa$/", "pan", $name);
+	}
+    else if(preg_match("/tti$/", $name))
+	{
+	    preg_replace("/tti$/", "tin", $name);
+	}
+    else if(preg_match("/tta$/", $name))
+	{
+	    preg_replace("/tta$/", "tan", $name);
+	}
+    else if(preg_match("/nti$/", $name))
+	{
+	    preg_replace("/nti$/", "nnin", $name);
+	}
+    else if(preg_match("/nta$/", $name))
+	{
+	    preg_replace("/nta$/", "nnan", $name);
+	}
+
+
+    //Now we sort out endings
+	// Names ending in 'e' now end 'een'
+    else if(preg_match("/e$/", $name))
+	{
+	    $name = $name . "en";
+	}
+	// Names ending 'nen' now end 'sen'
+	else if(preg_match("/nen$/", $name))
+	{
+	    preg_replace("/nen$/", "sen", $name);
+	}
+	// Names ending 'n' now end 'men'
+	else if(preg_match("/n$/", $name))
+	{
+	    preg_replace("/n$/", "men", $name);
+	}
+	// Names ending 'si' now end 'den'
+	else if(preg_match("/si$/", $name))
+	{
+	    preg_replace("/si$/", "den", $name);
+	}
+	// Names ending 'is' now end 'iin'
+	else if(preg_match("/is$/", $name))
+	{
+	    preg_replace("/is$/", "iin", $name);
+	}
+	// Names ending 'as' now end 'aan'
+	else if(preg_match("/as$/", $name))
+	{
+	    preg_replace("/as$/", "aan", $name);
+	}
+	// Names ending 'a' now end 'aan'
+	else if(preg_match("/a$/", $name))
+	{
+	    preg_replace("/a$/", "aan", $name);
+	}
+	// Names ending 'us' now end 'ksen'
+	else if(preg_match("/us$/", $name))
+	{
+	    preg_replace("/us$/", "ksen", $name);
+	}
+	// Names ending 'ys' now end 'ksen'
+	else if(preg_match("/ys$/", $name))
+	{
+	    preg_replace("/ys$/", "ksen", $name);
+	}
+	// Names ending 'os' now end 'ksen'
+	else if(preg_match("/os$/", $name))
+	{
+	    preg_replace("/os$/", "ksen", $name);
+	}
+	// Names ending 'ös' now end 'ksen'
+	else if(preg_match("/ös$/", $name))
+	{
+	    preg_replace("/ös$/", "ksen", $name);
+	}
+	// All other names have 'n' appended
+	else
+	{
+	    $name = $name . "n";
+	}
+
+    return $name;
+}
+
+?>
diff --git a/includes/extras/functions.fr.php b/includes/extras/functions.fr.php
new file mode 100644
index 0000000000..101055dc26
--- /dev/null
+++ b/includes/extras/functions.fr.php
@@ -0,0 +1,54 @@
+<?php
+/**
+ *
+ * webtrees: Web based Family History software
+ * Copyright (C) 2010 webtrees development team.
+ *
+ * Derived from PhpGedView
+ * Copyright (C) 2007 Greg Roach
+ *
+ * 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 2 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, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ * @package webtrees
+ * @version $Id$
+ */
+
+if (!defined('WT_WEBTREES')) {
+	header('HTTP/1.0 403 Forbidden');
+	exit;
+}
+
+define('WT_FUNCTIONS_FR_PHP', '');
+
+////////////////////////////////////////////////////////////////////////////////
+// Create an ordinal suffix for a number.
+////////////////////////////////////////////////////////////////////////////////
+function ordinal_suffix_fr($n) {
+	if ($n==1)
+		return 'er';
+	return 'éme';
+}
+
+////////////////////////////////////////////////////////////////////////////////
+// Localise a date. "[qualifier] date [qualifier date] [qualifier]"
+////////////////////////////////////////////////////////////////////////////////
+function date_localisation_fr(&$q1, &$d1, &$q2, &$d2, &$q3) {
+	// Years in the french republican calendar are displayed in roman numerals.
+	// They need a prefix of "an"
+	$d1=preg_replace("/(\b[IVX]+$)/", "an $1", $d1);
+	$d2=preg_replace("/(\b[IVX]+$)/", "an $1", $d2);
+}
+
+?>
diff --git a/includes/extras/functions.pl.php b/includes/extras/functions.pl.php
new file mode 100644
index 0000000000..4777b81728
--- /dev/null
+++ b/includes/extras/functions.pl.php
@@ -0,0 +1,592 @@
+<?php
+/**
+ *
+ * webtrees: Web based Family History software
+ * Copyright (C) 2010 webtrees development team.
+ *
+ * Derived from PhpGedView
+ * Copyright (C) 2002 to 2010  PGV Development Team.  All rights reserved.
+ *
+ * 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 2 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, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ * @package webtrees
+ * @version $Id$
+ */
+
+if (!defined('WT_WEBTREES')) {
+	header('HTTP/1.0 403 Forbidden');
+	exit;
+}
+
+define('WT_FUNCTIONS_PL_PHP', '');
+
+////////////////////////////////////////////////////////////////////////////////
+// Localise a date. Lokalizacja daty.
+////////////////////////////////////////////////////////////////////////////////
+function date_localisation_pl(&$q1, &$d1, &$q2, &$d2, &$q3) {
+	static $NOMINATIVE_MONTHS=NULL;
+	static $GENITIVE_MONTHS=NULL;
+	static $INSTRUMENTAL_MONTHS=NULL;
+	static $LOCATIVE_MONTHS=NULL;
+
+	if (empty($NOMINATIVE_MONTHS)) {
+		$NOMINATIVE_MONTHS=array(i18n::translate('January'), i18n::translate('February'), i18n::translate('March'), i18n::translate('April'), i18n::translate('May'), i18n::translate('June'), i18n::translate('July'), i18n::translate('August'), i18n::translate('September'), i18n::translate('October'), i18n::translate('November'), i18n::translate('December'));
+		$GENITIVE_MONTHS=array('stycznia', 'lutego', 'marca', 'kwietnia', 'maja', 'czerwca', 'lipca', 'sierpnia', 'września', 'października', 'listopada', 'grudnia');
+		$INSTRUMENTAL_MONTHS=array('styczniem', 'lutym', 'marcem', 'kwietniem', 'majem', 'czerwcem', 'lipcem', 'sierpniem', 'wrześniem', 'październikiem', 'listopadem', 'grudniem');
+		$LOCATIVE_MONTHS=array('styczniu', 'lutym', 'marcu', 'kwietniu', 'maju', 'czerwcu', 'lipcu', 'sierpniu', 'wrześniu', 'październiku', 'listopadzie', 'grudniu');
+	}
+
+	// Months with a day number are genitive, regardless of qualifier
+	for ($i=0; $i<12; ++$i) {
+		$d1=preg_replace("/(\d+ ){$NOMINATIVE_MONTHS[$i]}/", "$1{$GENITIVE_MONTHS[$i]}", $d1);
+		$d2=preg_replace("/(\d+ ){$NOMINATIVE_MONTHS[$i]}/", "$1{$GENITIVE_MONTHS[$i]}", $d2);
+	}
+
+	// Months without a day number (i.e. month at start) depend on the qualifier
+	switch ($q1) {
+	case 'from': case 'to': case 'abt': case 'apx': case 'cir':
+		for ($i=0; $i<12; ++$i)
+			$d1=preg_replace("/^{$NOMINATIVE_MONTHS[$i]}/", $GENITIVE_MONTHS[$i], $d1);
+		break;
+	case 'bet': case 'bef':
+		for ($i=0; $i<12; ++$i)
+			$d1=preg_replace("/^{$NOMINATIVE_MONTHS[$i]}/", $INSTRUMENTAL_MONTHS[$i], $d1);
+		break;
+	case 'aft':
+		for ($i=0; $i<12; ++$i)
+			$d1=preg_replace("/^{$NOMINATIVE_MONTHS[$i]}/", $LOCATIVE_MONTHS[$i], $d1);
+	 	break;
+	}
+	switch ($q2) {
+	case 'to':
+		for ($i=0; $i<12; ++$i)
+			$d2=preg_replace("/^{$NOMINATIVE_MONTHS[$i]}/", $GENITIVE_MONTHS[$i], $d2);
+		break;
+	case 'and':
+		for ($i=0; $i<12; ++$i)
+			$d2=preg_replace("/^{$NOMINATIVE_MONTHS[$i]}/", $INSTRUMENTAL_MONTHS[$i], $d2);
+		break;
+	}
+}
+
+////////////////////////////////////////////////////////////////////////////////
+// Localise an age. Lokalizacja wieku.
+////////////////////////////////////////////////////////////////////////////////
+function age_localisation_pl(&$agestring, &$show_years) {
+	$show_years=true;
+	$agestring=preg_replace(
+		array(
+			'/\bchi(ld)?\b/i',
+			'/\binf(ant)?\b/i',
+			'/\bsti(llborn)?\b/i',
+			'/\b1y/i',
+			'/\b2y/i','/\b3y/i','/\b4y/i',
+			'/\b22y/i','/\b23y/i','/\b24y/i',
+			'/\b32y/i','/\b33y/i','/\b34y/i',
+			'/\b42y/i','/\b43y/i','/\b44y/i',
+			'/\b52y/i','/\b53y/i','/\b54y/i',
+			'/\b62y/i','/\b63y/i','/\b64y/i',
+			'/\b72y/i','/\b73y/i','/\b74y/i',
+			'/\b82y/i','/\b83y/i','/\b84y/i',
+			'/\b92y/i','/\b93y/i','/\b94y/i',
+			'/\b102y/i','/\b103y/i','/\b104y/i',
+			'/\b122y/i','/\b123y/i','/\b124y/i',
+			'/\b132y/i','/\b133y/i','/\b134y/i',
+			'/(\d+)y/i',
+			'/\b1m/i',
+			'/\b2m/i','/\b3m/i','/\b4m/i',
+			'/\b22m/i','/\b23m/i','/\b24m/i',
+			'/(\d+)m/i',
+			'/\b1d/i',
+			'/(\d+)d/i',
+			'/\b1w/i',
+			'/\b2w/i','/\b3w/i','/\b4w/i',
+			'/\b22w/i','/\b23w/i','/\b24w/i',
+			'/(\d+)w/i'
+		),
+		array(
+			i18n::translate('Child'),
+			i18n::translate('Infant'),
+	 		i18n::translate('Stillborn'),
+			$show_years ? '1 '.i18n::translate('year') : '1',
+			$show_years ? '2 '.i18n::translate('years') : '2', $show_years ? '3 '.i18n::translate('years') : '3', $show_years ? '4 '.i18n::translate('years') : '4',
+			$show_years ? '22 '.i18n::translate('years') : '22', $show_years ? '23 '.i18n::translate('years') : '23', $show_years ? '24 '.i18n::translate('years') : '24',
+			$show_years ? '32 '.i18n::translate('years') : '32', $show_years ? '33 '.i18n::translate('years') : '33', $show_years ? '34 '.i18n::translate('years') : '34',
+			$show_years ? '42 '.i18n::translate('years') : '42', $show_years ? '43 '.i18n::translate('years') : '43', $show_years ? '44 '.i18n::translate('years') : '44',
+			$show_years ? '52 '.i18n::translate('years') : '52', $show_years ? '53 '.i18n::translate('years') : '53', $show_years ? '54 '.i18n::translate('years') : '54',
+			$show_years ? '62 '.i18n::translate('years') : '62', $show_years ? '63 '.i18n::translate('years') : '63', $show_years ? '64 '.i18n::translate('years') : '64',
+			$show_years ? '72 '.i18n::translate('years') : '72', $show_years ? '73 '.i18n::translate('years') : '73', $show_years ? '74 '.i18n::translate('years') : '74',
+			$show_years ? '82 '.i18n::translate('years') : '82', $show_years ? '83 '.i18n::translate('years') : '83', $show_years ? '84 '.i18n::translate('years') : '84',
+			$show_years ? '92 '.i18n::translate('years') : '92', $show_years ? '93 '.i18n::translate('years') : '93', $show_years ? '94 '.i18n::translate('years') : '94',
+			$show_years ? '102 '.i18n::translate('years') : '102', $show_years ? '103 '.i18n::translate('years') : '103', $show_years ? '104 '.i18n::translate('years') : '104',
+			$show_years ? '122 '.i18n::translate('years') : '122', $show_years ? '123 '.i18n::translate('years') : '123', $show_years ? '124 '.i18n::translate('years') : '124',
+			$show_years ? '132 '.i18n::translate('years') : '132', $show_years ? '133 '.i18n::translate('years') : '133', $show_years ? '134 '.i18n::translate('years') : '134',
+			$show_years ? '$1 '.i18n::translate('years') : '$1',
+			'1 '.i18n::translate('month'),
+			'2 miesiące', '3 miesiące', '4 miesiące',
+			'22 miesiące', '23 miesiące', '24 miesiące',
+	 		'$1 '.i18n::translate('months'),
+			'1 '.i18n::translate('day'),
+			'$1 '.i18n::translate('days'),
+			'1 '.i18n::translate('week'),
+			'2 tygodnie', '3 tygodnie', '4 tygodnie',
+			'22 tygodnie', '23 tygodnie', '24 tygodnie',
+			'$1 '.i18n::translate('weeks')
+		),
+		$agestring
+	);
+}
+function age2_localisation_pl($years) {
+	if ($years==1) $years .= " ".i18n::translate('year');
+	else if ($years > 1 && $years < 5) $years .= " ".i18n::translate('years');
+	else if (substr($years, -1, 1) > 1 && substr($years, -1, 1) < 5 && substr($years, -2, 1) != 1) $years .= " ".i18n::translate('years');
+	else $years .= " ".i18n::translate('years');
+	return $years;
+}
+////////////////////////////////////////////////////////////////////////////////
+// Localise a date differences. Lokalizacja różnic dat.
+////////////////////////////////////////////////////////////////////////////////
+function date_diff_localisation_pl(&$label, &$gap) {
+	$yrs = round($gap/12);
+	if ($gap == 12 || $gap == -12) $label .= $yrs." ".i18n::translate('year'); // 1 rok
+	else if (($yrs > 1 && $yrs < 5) || ($yrs < -1 && $yrs > -5)) $label .= $yrs." ".i18n::translate('years'); // 2-4 lata
+	else if (($yrs > 21 || $yrs < -21) && substr($yrs, -1, 1) > 1 && substr($yrs, -1, 1) < 5 && substr($yrs, -2, 1) != 1) $label .= $yrs." ".i18n::translate('years');
+	else if ($gap > 20 or $gap < -20) $label .= $yrs." ".i18n::translate('years'); // x lat
+	else if ($gap == 1 || $gap == -1) $label .= $gap." ".i18n::translate('month'); // 1 miesiąc
+	else if (($gap > 1 && $gap < 5) || ($gap < -1 && $gap > -5)) $label .= $gap." miesiące"; // 2-4 miesiące
+	else if ($gap != 0) $label .= $gap." ".i18n::translate('months'); // x miesięcy
+}
+////////////////////////////////////////////////////////////////////////////////
+// Localise a number of people. Lokalizacja liczby osób.
+////////////////////////////////////////////////////////////////////////////////
+function num_people_localisation_pl(&$count) {
+	if ($count == 1)
+		print "<br /><b>".$count." ".i18n::translate('Individual')."</b>"; // 1 osoba
+	else if ($count > 1 && $count < 5)
+		print "<br /><b>".$count." ".i18n::translate('Individuals')."</b>"; // 2-4 osoby
+	else if ($count > 21 && substr($count, -1, 1) > 1 && substr($count, -1, 1) < 5 && substr($count, -2, 1) != 1)
+		print "<br /><b>".$count." ".i18n::translate('Individuals')."</b>"; // x2-x4 osoby
+	else
+		print "<br /><b>".$count." ".i18n::translate('Individuals')."</b>"; // x osób
+}
+///////////////////////////////////////////////////////////////////////////////////////////
+// Localise the _AKAN, _AKA, ALIA and _INTE facts. Lokalizacja faktów _AKAN, _AKA, ALIA i _INTE.
+///////////////////////////////////////////////////////////////////////////////////////////
+function fact_AKA_localisation_pl(&$fact, &$pid) {
+
+	$person = Person::getInstance($pid);
+	$sex = $person->getSex();
+	if ($fact == "_INTE") {
+		if ($sex == "M")	  $fact = "Pochowany"; // mężczyzna
+		else if ($sex == "F") $fact = "Pochowana"; // kobieta
+	}
+	else {
+		if ($sex == "M")	  $fact = "Znany także jako"; // mężczyzna
+		else if ($sex == "F") $fact = "Znana także jako"; // kobieta
+	}
+}
+///////////////////////////////////////////////////////////////////////////////////////////
+// Localise the _NMR facts. Lokalizacja faktów _NMR.
+///////////////////////////////////////////////////////////////////////////////////////////
+function fact_NMR_localisation_pl($fact, &$fid) {
+
+	$family = Family::getInstance($fid);
+	$husb = $family->getHusband();
+	$wife = $family->getWife();
+	if ($fact == "_NMR") {
+		if (empty($wife) && !empty($husb))		$fact = "Nieżonaty"; // mężczyzna
+		else if (empty($husb) && !empty($wife))	$fact = "Niezamężna"; // kobieta
+	}
+	else if ($fact == "_NMAR") {
+		if (empty($wife) && !empty($husb))		$fact = "Nigdy nieżonaty"; // mężczyzna
+		else if (empty($husb) && !empty($wife))	$fact = "Nigdy niezamężna"; // kobieta
+	}
+	return $fact;
+}
+///////////////////////////////////////////////////////////////////////////////////////////
+// Localise the AGNC fact. Lokalizacja faktu AGNC.
+///////////////////////////////////////////////////////////////////////////////////////////
+function fact_AGNC_localisation_pl($fact, $main_fact) {
+
+	if ($main_fact == "EDUC") {
+		$fact = "Szkoła/uczelnia";
+	}
+	else if ($main_fact == "OCCU") {
+		$fact = "Miejsce pracy";
+	}
+	else if ($main_fact == "ORDN") {
+		$fact = "Seminarium duchowne";
+	}
+}
+////////////////////////////////////////////////////////////////////////////////
+// Localise the close relatives facts. Lokalizacja faktów dotyczących bliskich
+////////////////////////////////////////////////////////////////////////////////
+function cr_facts_localisation_pl(&$factrec, &$fact, &$explode_fact, &$pid) {
+
+	$ct = preg_match_all("/\d ASSO @(.*)@/", $factrec, $match, PREG_SET_ORDER);
+	if ($ct>0) $pid2 = $match[0][1];
+	if (isset($pid2)) {
+		$sex1 = Person::getInstance($pid)->getSex();
+		$sex2 = Person::getInstance($pid2)->getSex();
+
+		if ($explode_fact[1] == "BIRT") {
+			switch ($explode_fact[2]) {
+			case "SIBL":
+				if ($sex2 == "M")		$fact = "Narodziny brata";
+				else if ($sex2 == "F")  $fact = "Narodziny siostry";
+				break;
+			case "GCHI":
+				if ($sex2 == "M")		$fact = "Narodziny wnuka";
+				else if ($sex2 == "F")  $fact = "Narodziny wnuczki";
+				break;
+			case "GGCH":
+				if ($sex2 == "M")		$fact = "Narodziny prawnuka";
+				else if ($sex2 == "F")  $fact = "Narodziny prawnuczki";
+				break;
+			case "COUS":
+				if ($sex2 == "M")		$fact = "Narodziny kuzyna";
+				else if ($sex2 == "F")  $fact = "Narodziny kuzynki";
+				break;
+			case "FSIB":
+				if ($sex2 == "M")		$fact = "Narodziny brata ojca";
+				else if ($sex2 == "F")  $fact = "Narodziny siostry ojca";
+				break;
+			case "MSIB":
+				if ($sex2 == "M")		$fact = "Narodziny brata matki";
+				else if ($sex2 == "F")  $fact = "Narodziny siostry matki";
+				break;
+			case "NEPH":
+				$node = get_relationship($pid, $pid2);
+				if (isset($node["path"][1])) {
+					$sex3 = Person::getInstance($node["path"][1])->getSex();
+					if ($sex2 == "M") {
+						if ($sex3 == "M")		$fact = "Narodziny bratanka";
+						else if ($sex3 == "F")	$fact = "Narodziny siostrzeńca";
+					}
+					else if ($sex2 == "F") {
+						if ($sex3 == "M")		$fact = "Narodziny bratanicy";
+						else if ($sex3 == "F")	$fact = "Narodziny siostrzenicy";
+					}
+				}
+				break;
+			}
+		}
+		else if ($explode_fact[1] != "") {
+			switch ($explode_fact[2]) {
+			case "SIBL":
+				if ($sex2 == "M")		$fact = i18n::translate($explode_fact[1])." brata";
+				else if ($sex2 == "F")  $fact = i18n::translate($explode_fact[1])." siostry";
+				break;
+			case "GCHI":
+				if ($sex2 == "M")		$fact = i18n::translate($explode_fact[1])." wnuka";
+				else if ($sex2 == "F")  $fact = i18n::translate($explode_fact[1])." wnuczki";
+				break;
+			case "GGCH":
+				if ($sex2 == "M")		$fact = i18n::translate($explode_fact[1])." prawnuka";
+				else if ($sex2 == "F")  $fact = i18n::translate($explode_fact[1])." prawnuczki";
+				break;
+			case "GPAR":
+				if ($sex2 == "M")		$fact = i18n::translate($explode_fact[1])." dziadka";
+				else if ($sex2 == "F")  $fact = i18n::translate($explode_fact[1])." babci";
+				break;
+			case "GGPA":
+				if ($sex2 == "M")		$fact = i18n::translate($explode_fact[1])." pradziadka";
+				else if ($sex2 == "F")  $fact = i18n::translate($explode_fact[1])." prababci";
+				break;
+			case "COUS":
+				if ($sex2 == "M")		$fact = i18n::translate($explode_fact[1])." kuzyna";
+				else if ($sex2 == "F")  $fact = i18n::translate($explode_fact[1])." kuzynki";
+				break;
+			case "FSIB":
+				if ($sex2 == "M")		$fact = i18n::translate($explode_fact[1])." brata ojca";
+				else if ($sex2 == "F")  $fact = i18n::translate($explode_fact[1])." siostry ojca";
+				break;
+			case "MSIB":
+				if ($sex2 == "M")		$fact = i18n::translate($explode_fact[1])." brata matki";
+				else if ($sex2 == "F")  $fact = i18n::translate($explode_fact[1])." siostry matki";
+				break;
+			case "SPOU":
+				if ($sex2 == "M"  || $sex1 == "F") 		$fact = i18n::translate($explode_fact[1])." męża";
+				else if ($sex2 == "F"  || $sex1 == "M") $fact = i18n::translate($explode_fact[1])." żony";
+				break;
+			case "NEPH":
+				$node = get_relationship($pid, $pid2);
+				if (isset($node["path"][1])) {
+					$sex3 = Person::getInstance($node["path"][1])->getSex();
+					if ($sex2 == "M") {
+						if ($sex3 == "M")		$fact = i18n::translate($explode_fact[1])." bratanka";
+						else if ($sex3 == "F")	$fact = i18n::translate($explode_fact[1])." siostrzeńca";
+					}
+					else if ($sex2 == "F") {
+						if ($sex3 == "M")		$fact = i18n::translate($explode_fact[1])." bratanicy";
+						else if ($sex3 == "F")	$fact = i18n::translate($explode_fact[1])." siostrzenicy";
+					}
+				}
+				break;
+			}
+		}
+	}
+}
+////////////////////////////////////////////////////////////////////////////////
+// Localise the relationships. Lokalizacja pokrewieństwa.
+////////////////////////////////////////////////////////////////////////////////
+function rela_localisation_pl(&$rela, &$pid2) {
+	if (isset($pid2)) {
+		$record = Person::getInstance($pid2);
+		if (!empty($record)) {
+			$sex = $record->getSex();
+			switch ($rela) {
+				case i18n::translate('Informant'):
+					if ($sex == "M")		$rela = "Informator";
+					else if ($sex == "F")   $rela = "Informatorka";
+					break;
+				case i18n::translate('Lodger'):
+					if ($sex == "M")		$rela = "Lokator";
+					else if ($sex == "F")   $rela = "Lokatorka";
+					break;
+				case i18n::translate('Slave'):
+					if ($sex == "M")		$rela = "Niewolnik";
+					else if ($sex == "F")   $rela = "Niewolnica";
+					break;
+				case i18n::translate('Attending'):
+					if ($sex == "M")		$rela = "Obsługujący";
+					else if ($sex == "F")   $rela = "Obsługująca";
+					break;
+				case i18n::translate('Guardian'):
+					if ($sex == "M")		$rela = "Opiekun";
+					else if ($sex == "F")   $rela = "Opiekunka";
+					break;
+				case i18n::translate('Nurse'):
+					if ($sex == "M")		$rela = "Pielęgniarz";
+					else if ($sex == "F")   $rela = "Pielęgniarka";
+					break;
+				case i18n::translate('Attendant'):
+					if ($sex == "M")		$rela = "Pomocnik";
+					else if ($sex == "F")   $rela = "Pomocnica";
+					break;
+				case i18n::translate('Employee'):
+					if ($sex == "M")		$rela = "Pracownik";
+					else if ($sex == "F")   $rela = "Pracownica";
+					break;
+				case i18n::translate('Friend'):
+					if ($sex == "M")		$rela = "Przyjaciel";
+					else if ($sex == "F")   $rela = "Przyjaciółka";
+					break;
+				case i18n::translate('Servant'):
+					if ($sex == "M")		$rela = "Służący";
+					else if ($sex == "F")   $rela = "Służąca";
+					break;
+				case i18n::translate('Seller'):
+					if ($sex == "M")		$rela = "Sprzedawca";
+					else if ($sex == "F")   $rela = "Sprzedawczyni";
+					break;
+				case i18n::translate('Owner'):
+					if ($sex == "M")		$rela = "Właściciel";
+					else if ($sex == "F")   $rela = "Właścicielka";
+					break;
+				case i18n::translate('Ward'):
+					if ($sex == "M")		$rela = "Wychowanek";
+					else if ($sex == "F")   $rela = "Wychowanka";
+					break;
+			}
+		}
+	}
+	return $rela;
+}
+
+function getRelationshipText_pl($relationshipDescription, $node, $pid1, $pid2) {
+	if ($relationshipDescription != false) {
+		return utf8_strtolower($relationshipDescription);
+	}
+	return false;
+}
+
+//-- functions to calculate polish specific genitive names
+function getFirstRelationsName_pl($pid) {
+	// In Polish we want the genitive form of the name
+	$person=Person::getInstance($pid);
+	if ($person) {
+		$fname=$person->getFullName();
+	}
+	else {
+		$fname='';
+	}
+	//return $fname;
+	
+	// tested
+	$pname='';
+	$sex = Person::getInstance($pid)->getSex();
+	if ($sex == "M") {
+		$names = explode(" ", $fname);
+		foreach ($names as $name) {
+			if (preg_match('/ski$/', $name)) {
+				$pname .= " ".preg_replace('/ski$/', 'skiego', $name);
+			}
+			else if (preg_match('/cki$/', $name)) {
+				$pname .= " ".preg_replace('/cki$/', 'ckiego', $name);
+			}
+			else if (preg_match('/dzki$/', $name)) {
+				$pname .= " ".preg_replace('/dzki$/', 'dzkiego', $name);
+			}
+			else if (preg_match('/żki$/', $name)) {
+				$pname .= " ".preg_replace('/żki$/', 'żkiego', $name);
+			}
+			else if (preg_match('/y$/', $name)) {
+				$pname .= " ".preg_replace('/y$/','ego', $name);
+			}
+			else if (preg_match('/i$/', $name)) {
+				$pname .= " ".preg_replace('/i$/','iego', $name);
+			}
+			else if (preg_match('/ek$/', $name)) {
+				$pname .= " ".preg_replace('/ek$/','ka', $name);
+			}
+			else if (preg_match('/eł$/', $name)) {
+				$pname .= " ".preg_replace('/eł$/','ła', $name);
+			}
+			else if (preg_match('/el$/', $name)) {
+				$pname .= " ".preg_replace('/el$/','la', $name);
+			}
+			else if (preg_match('/ń$/', $name)) {
+				$pname .= " ".preg_replace('/ń$/','nia', $name);
+			}
+			else if (preg_match('/ź$/', $name)) {
+				$pname .= " ".preg_replace('/ź$/','zia', $name);
+			}
+			else if (preg_match('/niec$/', $name)) {
+				$pname .= " ".preg_replace('/niec$/','ńca', $name);
+			}
+			else if (preg_match('/iec$/', $name)) {
+				$pname .= " ".preg_replace('/iec$/','ca', $name);
+			}
+			else if (preg_match('/ec$/', $name)) {
+				$pname .= " ".preg_replace('/ec$/','ca', $name);
+			}
+			else if (preg_match('/er$/', $name)) {
+				$pname .= " ".preg_replace('/er$/','ra', $name);
+			}
+			// go
+			else if (preg_match('/go$/', $name)) {
+				$pname .= " ".preg_replace('/go$/','gi', $name);
+			}
+			// io
+			else if (preg_match('/io$/', $name)) {
+				$pname .= " ".preg_replace('/io$/','ii', $name);
+			}
+			// jo
+			else if (preg_match('/jo$/', $name)) {
+				$pname .= " ".preg_replace('/jo$/','ji', $name);
+			}
+			// ko
+			else if (preg_match('/ko$/', $name)) {
+				$pname .= " ".preg_replace('/ko$/','ki', $name);
+			}
+			// bo, co, do, fo, ho, lo, ło, mo, no, po, ro, so, to, wo, zo
+			else if (preg_match('/o$/', $name)) {
+				$pname .= " ".preg_replace('/o$/','y', $name);
+			}
+			// ga
+			else if (preg_match('/ga$/', $name)) {
+				$pname .= " ".preg_replace('/ga$/','gi', $name);
+			}
+			// ia
+			else if (preg_match('/ia$/', $name)) {
+				$pname .= " ".preg_replace('/ia$/','i', $name);
+			}
+			// ja
+			else if (preg_match('/ja$/', $name)) {
+				$pname .= " ".preg_replace('/ja$/','ji', $name);
+			}
+			// ka
+			else if (preg_match('/ka$/', $name)) {
+				$pname .= " ".preg_replace('/ka$/','ki', $name);
+			}
+			// ba, ca, da, fa, ha, la, ła, ma, na, pa, ra, sa, ta, wa, za
+			else if (preg_match('/a$/', $name)) {
+				$pname .= " ".preg_replace('/a$/','y', $name);
+			}
+			else if (preg_match('/ek]$/', $name)) {
+				$pname .= " ".preg_replace('/ek]$/','ka]', $name);
+			}
+			else if (preg_match('/"$/', $name)) {
+				$pname .= " ".preg_replace('/"$/','a"', $name);
+			}
+			else
+				$pname .= " ".$name."a";
+		}
+	}
+	else if ($sex == "F") {
+		$names = explode(" ", $fname);
+		foreach ($names as $name) {
+			if (preg_match('/raska$/', $name)) {
+				$pname .= " ".preg_replace('/ska$/', 'ski', $name);
+			}
+			else if (preg_match('/ska$/', $name)) {
+				$pname .= " ".preg_replace('/ska$/', 'skiej', $name);
+			}
+			else if (preg_match('/cka$/', $name)) {
+				$pname .= " ".preg_replace('/cka$/', 'ckiej', $name);
+			}
+			else if (preg_match('/dzka$/', $name)) {
+				$pname .= " ".preg_replace('/dzka$/', 'dzkiej', $name);
+			}
+			else if (preg_match('/żka$/', $name)) {
+				$pname .= " ".preg_replace('/żka$/', 'żkiej', $name);
+			}
+			else if (preg_match('/ka"$/', $name)) {
+				$pname .= " ".preg_replace('/ka"$/', 'ki"', $name);
+			}
+			else if (preg_match('/ska]$/', $name)) {
+				$pname .= " ".preg_replace('/ska]$/', 'skiej]', $name);
+			}
+			else if (preg_match('/cka]$/', $name)) {
+				$pname .= " ".preg_replace('/cka]$/', 'ckiej]', $name);
+			}
+			else if (preg_match('/dzka]$/', $name)) {
+				$pname .= " ".preg_replace('/dzka]$/', 'dzkiej]', $name);
+			}
+			else if (preg_match('/żka]$/', $name)) {
+				$pname .= " ".preg_replace('/żka]$/', 'żkiej]', $name);
+			}
+			else if (preg_match('/ka]$/', $name)) {
+				$pname .= " ".preg_replace('/ka]$/', 'ki]', $name);
+			}
+			else if (preg_match('/a]$/', $name)) {
+				$pname .= " ".preg_replace('/a]$/','y]', $name);
+			}
+			else
+				$pname .= " ".preg_replace(array('/eja$/','/ja$/','/ia$/','/la$/','/ga$/','/ea$/','/ka$/','/a$/'), array('ei','ji','ii','li','gi','ei','ki','y'), $name);
+		}
+	}
+	else {
+		$pname = "osoby: ".$pname;
+	}
+	if (!empty($pname)) return trim($pname);
+	else return $fname;
+}
+
+function century_localisation_pl($n, $show=true) {
+	$arab = array(1, 4, 5, 9, 10);
+	$roman = array("I", "IV", "V", "IX", "X");
+	$roman_century = "";
+	for ($i=4; $i>=0; $i--) {
+		while ($n>=$arab[$i]) {
+			$n-=$arab[$i];
+			$roman_century .= $roman[$i];
+		}
+	}
+	if ($show) return $roman_century." w.";
+	else return $roman_century;
+}
+?>
diff --git a/includes/extras/functions.sl.php b/includes/extras/functions.sl.php
new file mode 100644
index 0000000000..6038e8a1c6
--- /dev/null
+++ b/includes/extras/functions.sl.php
@@ -0,0 +1,182 @@
+<?php
+/**
+ *
+ * webtrees: Web based Family History software
+ * Copyright (C) 2010 webtrees development team.
+ *
+ * Derived from PhpGedView
+ * Copyright (C) 2002 to 2010  PGV Development Team.  All rights reserved.
+ *
+ * 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 2 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, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ * @package webtrees
+ * @version $Id$
+ */
+
+if (!defined('WT_WEBTREES')) {
+	header('HTTP/1.0 403 Forbidden');
+	exit;
+}
+
+define('WT_FUNCTIONS_SL_PHP', '');
+
+////////////////////////////////////////////////////////////////////////////////
+// Localise a date. Lokalizacja datumov
+////////////////////////////////////////////////////////////////////////////////
+function date_localisation_sl(&$q1, &$d1, &$q2, &$d2, &$q3) {
+	static $NOMINATIVE_MONTHS=NULL;
+	static $GENITIVE_MONTHS=NULL;
+	static $INSTRUMENTAL_MONTHS=NULL;
+	static $LOCATIVE_MONTHS=NULL;
+
+	if (empty($NOMINATIVE_MONTHS)) {
+		$NOMINATIVE_MONTHS=array(i18n::translate('January'), i18n::translate('February'), i18n::translate('March'), i18n::translate('April'), i18n::translate('May'), i18n::translate('June'), i18n::translate('July'), i18n::translate('August'), i18n::translate('September'), i18n::translate('October'), i18n::translate('November'), i18n::translate('December'));
+		$GENITIVE_MONTHS=array('januarja', 'februarja', 'marca', 'aprila', 'maja', 'junija', 'julija', 'avgusta', 'septembra', 'oktobra', 'novembra', 'decembra');
+		$INSTRUMENTAL_MONTHS=array('januarjem', 'feruarjem', 'marcem', 'aprilom', 'majem', 'julijem', 'junijem', 'avgustom', 'septembrom', 'oktobrom', 'novembrom', 'decembrom');
+		$LOCATIVE_MONTHS=array('januarju', 'februarju', 'marcu', 'aprilu', 'maju', 'juniju', 'juliju', 'avgustu', 'septembru', 'oktobru', 'novembru', 'decembru');
+	}
+
+	// Months with a day number are genitive, regardless of qualifier
+	for ($i=0; $i<12; ++$i) {
+		$d1=preg_replace("/(\d+\. ){$NOMINATIVE_MONTHS[$i]}/", "$1{$GENITIVE_MONTHS[$i]}", $d1);
+		$d2=preg_replace("/(\d+\. ){$NOMINATIVE_MONTHS[$i]}/", "$1{$GENITIVE_MONTHS[$i]}", $d2);
+	}
+
+	// Months without a day number (i.e. month at start) depend on the qualifier
+	switch ($q1) {
+	case 'from': case 'to': case 'abt': case 'apx': case 'cir':
+		for ($i=0; $i<12; ++$i)
+			$d1=preg_replace("/^{$NOMINATIVE_MONTHS[$i]}/", $GENITIVE_MONTHS[$i], $d1);
+		break;
+	case 'bet': case 'bef':
+		for ($i=0; $i<12; ++$i)
+			$d1=preg_replace("/^{$NOMINATIVE_MONTHS[$i]}/", $INSTRUMENTAL_MONTHS[$i], $d1);
+		break;
+	case 'aft':
+		for ($i=0; $i<12; ++$i)
+			$d1=preg_replace("/^{$NOMINATIVE_MONTHS[$i]}/", $LOCATIVE_MONTHS[$i], $d1);
+	 	break;
+	}
+	switch ($q2) {
+	case 'to':
+		for ($i=0; $i<12; ++$i)
+			$d2=preg_replace("/^{$NOMINATIVE_MONTHS[$i]}/", $GENITIVE_MONTHS[$i], $d2);
+		break;
+	case 'and':
+		for ($i=0; $i<12; ++$i)
+			$d2=preg_replace("/^{$NOMINATIVE_MONTHS[$i]}/", $INSTRUMENTAL_MONTHS[$i], $d2);
+		break;
+	}
+}
+
+////////////////////////////////////////////////////////////////////////////////
+// Localise an age. Lokalizacja starosti.
+////////////////////////////////////////////////////////////////////////////////
+function age_localisation_sl(&$agestring, &$show_years) {
+	$show_years=true;
+	$agestring=preg_replace(
+		array(
+			'/\bchi(ld)?\b/i',
+			'/\binf(ant)?\b/i',
+			'/\bsti(llborn)?\b/i',
+			'/\b1y/i',
+			'/\b2y/i','/\b3y/i','/\b4y/i',
+			'/\b101y/i','/\b102y/i','/\b103y/i',
+			'/\b104y/i',
+			'/(\d+)y/i',
+			'/\b1m/i',
+			'/\b2m/i','/\b3m/i','/\b4m/i',
+			'/(\d+)m/i',
+			'/\b1d/i',
+			'/(\d+)d/i'
+		),
+		array(
+			i18n::translate('Child'),
+			i18n::translate('Infant'),
+	 		i18n::translate('Stillborn'),
+			$show_years ? '1 '.i18n::translate('year') : '1',
+			$show_years ? '2 '."leti" : '2', $show_years ? '3 '."leta" : '3', $show_years ? '4 '."leta" : '4',
+			$show_years ? '101 '."leto" : '101', $show_years ? '102 '."leti" : '102', $show_years ? '103 '."leta" : '103',
+			$show_years ? '104 '."leta" : '104',
+			$show_years ? '$1 '.i18n::translate('years') : '$1',
+			'1 '.i18n::translate('month'),
+			'2 '."meseca", '3 '."mesece", '4 '."mesece",
+	 		'$1 '.i18n::translate('months'),
+			'1 '.i18n::translate('day'),
+			'$1 '.i18n::translate('days')
+		),
+		$agestring
+	);
+}
+////////////////////////////////////////////////////////////////////////////////
+// Localise a date differences. Lokalizacja razlik datumov.
+////////////////////////////////////////////////////////////////////////////////
+function date_diff_localisation_sl(&$label, &$gap) {
+	$yrs = round($gap/12);
+	if ($gap == 12 || $gap == -12) $label .= $yrs." ".i18n::translate('year'); // 1 leto
+	else if (($yrs == 2 ) || ($yrs == -2 )) $label .= $yrs." leti"; // 2 leti
+	else if (($yrs > 2 && $yrs < 5) || ($yrs < -2 && $yrs > -5)) $label .= $yrs." leta"; // +- 3 in 4 leta
+	else if ($yrs > 4 or $yrs < -4) $label .= $yrs." ".i18n::translate('years'); // x let
+	else if ($gap == 1 || $gap == -1) $label .= $gap." ".i18n::translate('month'); // 1 meses
+	else if (($gap == 2 ) || ($gap == -2 )) $label .= $gap." meseca"; // 2 meseca
+	else if (($gap > 2 && $gap < 5) || ($gap < -2 && $gap > -5)) $label .= $gap." mesece"; // 3-4 mesece
+	else if ($gap != 0) $label .= $gap." ".i18n::translate('months'); // x mesecev
+}
+////////////////////////////////////////////////////////////////////////////////
+// Localise a number of people. Lokalizacija �tevila oseb. //Glej  lifespan.php
+////////////////////////////////////////////////////////////////////////////////
+function num_people_localisation_sl(&$count) {
+	if ($count == 1)
+		print "<br /><b>".$count." ".i18n::translate('Individual')."</b>"; // 1 oseba
+	else if ($count == 2)
+		print "<br /><b>".$count." osebi</b>"; // 2 osebi
+	else if ($count > 2 && $count < 5)
+		print "<br /><b>".$count." osebe</b>"; // 3-4 osebe
+	else
+		print "<br /><b>".$count." ".i18n::translate('Individuals')."</b>"; // x oseb
+}
+///////////////////////////////////////////////////////////////////////////////////////////
+// Localise the _AKAN, _AKA, ALIA and _INTE facts. Lokalizacja dejstev _AKAN, _AKA, ALIA i _INTE.
+///////////////////////////////////////////////////////////////////////////////////////////
+function fact_AKA_localisation_sl(&$fact, &$pid) {
+
+	$person = Person::getInstance($pid);
+	$sex = $person->getSex();
+	if ($fact == "_INTE") {
+		if ($sex == "M")      $fact = "Pokopan"; // mo�ki
+		else if ($sex == "F") $fact = "Pokopana"; // �enska
+	}
+	else {
+		if ($sex == "M")      $fact = "Znan tudi kot"; // mo�ki
+		else if ($sex == "F") $fact = "Znana tudi kot "; // �enska
+	}
+}
+///////////////////////////////////////////////////////////////////////////////////////////
+// Localise the _NMR facts. Lokalizacja dejstev _NMR.
+///////////////////////////////////////////////////////////////////////////////////////////
+function fact_NMR_localisation_sl($fact, &$fid) {
+
+	$family = Family::getInstance($fid);
+	$husb = $family->getHusband();
+	$wife = $family->getWife();
+	if ($fact == "_NMR") {
+		if (empty($wife) && !empty($husb))	$fact = "Samski"; // mo�ki
+		else if (empty($husb) && !empty($wife))	$fact = "Samska"; // �enska
+	}
+	else if ($fact == "_NMAR") {
+		if (empty($wife) && !empty($husb))	$fact = "Nikoli poro�en"; // mo�ki
+		else if (empty($husb) && !empty($wife))	$fact = "Nikoli poro�ena"; // �enska
+	}
+}
diff --git a/includes/extras/functions.tr.php b/includes/extras/functions.tr.php
new file mode 100644
index 0000000000..e002de10e3
--- /dev/null
+++ b/includes/extras/functions.tr.php
@@ -0,0 +1,112 @@
+<?php
+/**
+ * Turkish Date Functions that can be used by any page in PGV
+ * Other functions that are specific to Turkish can be added here too
+ *
+ * The functions in this file are common to all PGV pages and include date conversion
+ * routines and sorting functions.
+ *
+ * webtrees: Web based Family History software
+ * Copyright (C) 2010 webtrees development team.
+ *
+ * Derived from PhpGedView
+ * Copyright (C) 2002 to 2003  John Finlay and Others
+ *
+ * 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 2 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, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ * @package webtrees
+ * @version $Id$
+ */
+
+if (!defined('WT_WEBTREES')) {
+	header('HTTP/1.0 403 Forbidden');
+	exit;
+}
+
+define('WT_FUNCTIONS_TR_PHP', '');
+
+////////////////////////////////////////////////////////////////////////////////
+// Localise a date. "[qualifier] date [qualifier date] [qualifier]"
+////////////////////////////////////////////////////////////////////////////////
+function date_localisation_tr(&$q1, &$d1, &$q2, &$d2, &$q3) {
+	global $pgv_lang;
+
+	switch ($q1) {
+	case 'from':
+	case 'bef':
+	case 'aft':
+		if (preg_match('/(\d{3,4})/', $d1, $match)) { // Extract year
+			switch ($match[1] % 10) {
+			case 0:
+				switch ($match[1] % 100) {
+				case 0:
+				case 20:
+				case 50:
+				case 70:
+				case 80: $q1=str_replace('#EXT#', 'den', $pgv_lang[$q1]); break;
+				default: $q1=str_replace('#EXT#', 'dan', $pgv_lang[$q1]); break;
+				}
+				break;
+			case 6:
+			case 9: $q1=str_replace('#EXT#', 'dan', $pgv_lang[$q1]); break;
+			default: $q1=str_replace('#EXT#', 'den', $pgv_lang[$q1]); break;
+			}
+		} else {
+			$q1=str_replace('#EXT#', 'den', $pgv_lang[$q1]);
+		}
+		break;
+	case 'to':
+		if (preg_match('/(\d{3,4})/', $d1, $match)) { // Extract year
+			switch ($match[1]) {
+			case '0':
+			case '9': $q1=str_replace('#EXT#', 'a', $pgv_lang[$q1]); break;
+			case '2':
+			case '7': $q1=str_replace('#EXT#', 'ye', $pgv_lang[$q1]); break;
+			case '6': $q1=str_replace('#EXT#', 'ya', $pgv_lang[$q1]); break;
+			default: $q1=str_replace('#EXT#', 'e', $pgv_lang[$q1]); break;
+			}
+		} else {
+			$q1=str_replace('#EXT#', 'e', $pgv_lang[$q1]);
+		}
+		break;
+	default:
+		if (isset($pgv_lang[$q1]))
+			$q1=$pgv_lang[$q1];
+		break;
+	}
+
+	switch ($q2) {
+	case 'to':
+		if (preg_match('/(\d{3,4})/', $d2, $match)) { // Extract year
+			switch ($match[1] % 10) {
+			case 0:
+			case 9: $q2=str_replace('#EXT#', 'a', $pgv_lang[$q2]); break;
+			case 2:
+			case 7: $q2=str_replace('#EXT#', 'ye', $pgv_lang[$q2]); break;
+			case 6: $q2=str_replace('#EXT#', 'ya', $pgv_lang[$q2]); break;
+			default: $q2=str_replace('#EXT#', 'e', $pgv_lang[$q2]); break;
+			}
+		} else {
+			$q2=str_replace('#EXT#', 'e', $pgv_lang[$q2]);
+		}
+		break;
+	default:
+		if (isset($pgv_lang[$q2]))
+			$q2=$pgv_lang[$q2];
+		break;
+	}
+}
+
+?>
diff --git a/includes/extras/sample_custom_welcome_menu.php b/includes/extras/sample_custom_welcome_menu.php
new file mode 100644
index 0000000000..2cefb6a97b
--- /dev/null
+++ b/includes/extras/sample_custom_welcome_menu.php
@@ -0,0 +1,95 @@
+<?php
+/**
+* Menu Extension
+*
+* webtrees: Web based Family History software
+ * Copyright (C) 2010 webtrees development team.
+ *
+ * Derived from PhpGedView
+* Copyright (C) 2007 to 2009 PGV Development Team. All rights reserved.
+*
+* 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 2 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, write to the Free Software
+* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+*
+* @package webtrees
+* @subpackage Themes
+* @version $Id$
+*/
+/*
+* This is a sample customizable sub-menu for the Home Page menu in the top links of each page.
+*
+* To make this sub-menu appear within the Home Page menu, this file needs to be named
+* "custom_welcome_menu.php". Furthermore, the individual sub-menu entries need to
+* be valid. You can remove the extra comments but, for copyright reasons, the first comment
+* block at the top of this file should be retained.
+*
+* Use the code in "includes/classes/class_menubar.php" as a guide to how valid menus and sub-menus
+* should be constructed.
+*/
+/*
+* Explanation of the '$submenu = new Menu("whatever 1", "whatever 2")' line:
+* 'whatever 1' is the text that is to appear for this sub-menu entry. If you code this as
+* shown, the text will appear exactly as entered no matter what the page language is.
+*
+* 'whatever 2' is the URL required to launch the desired module, web site, or webtrees
+* script. You need to provide all of the input parameters or variables that the script
+* needs. For example, to get to the Yahoo web site, you'd replace '"whatever 2"' with
+* '"http://www.yahoo.com"'. Note that the URL you enter here is enclosed in quotation marks.
+*
+* If the URL requires something enclosed in quotation marks, you should precede each of them
+* with a backslash or enclose the entire URL in apostrophes instead of quotation marks.
+*/
+
+if (!defined('WT_WEBTREES')) {
+	header('HTTP/1.0 403 Forbidden');
+	exit;
+}
+
+// Menu separator line
+$menu->addSeparator();
+
+// First sub-menu (visible even when Search robots are looking at the site)
+$submenu = new Menu("Custom Menu Item 1", "custom link #1");
+$submenu->addClass("submenuitem$ff", "submenuitem_hover$ff");
+$menu->addSubmenu($submenu);
+
+// Second sub-menu (invisible to Search robots)
+if (empty($SEARCH_SPIDER)) {
+	$submenu = new Menu("Custom Menu Item 2", "custom link #2");
+	$submenu->addClass("submenuitem$ff", "submenuitem_hover$ff");
+	$menu->addSubmenu($submenu);
+}
+
+// Third sub-menu (visible only to users with site Admin rights)
+if (WT_USER_IS_ADMIN) {
+	$submenu = new Menu("Custom Menu Item 3", "custom link #2");
+	$submenu->addClass("submenuitem$ff", "submenuitem_hover$ff");
+	$menu->addSubmenu($submenu);
+}
+
+// Fourth sub-menu (visible only to users with GEDCOM Admin rights)
+if (WT_USER_GEDCOM_ADMIN) {
+	$submenu = new Menu("Custom Menu Item 4", "custom link #2");
+	$submenu->addClass("submenuitem$ff", "submenuitem_hover$ff");
+	$menu->addSubmenu($submenu);
+}
+
+// Fifth sub-menu (visible only Clippings Cart is enabled and not a Search robot)
+if (empty($SEARCH_SPIDER) && $GLOBALS["ENABLE_CLIPPINGS_CART"]) {
+	$submenu = new Menu("Custom Menu Item 5", "custom link #2");
+	$submenu->addClass("submenuitem$ff", "submenuitem_hover$ff");
+	$menu->addSubmenu($submenu);
+}
+
+?>
diff --git a/includes/extras/sample_optional_menu.php b/includes/extras/sample_optional_menu.php
new file mode 100644
index 0000000000..b1161405c5
--- /dev/null
+++ b/includes/extras/sample_optional_menu.php
@@ -0,0 +1,103 @@
+<?php
+/**
+ * Menu Extension
+ *
+ * webtrees: Web based Family History software
+ * Copyright (C) 2010 webtrees development team.
+ *
+ * Derived from PhpGedView
+ * Copyright (C) 2007 to 2009  PGV Development Team.  All rights reserved.
+ *
+ * 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 2 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, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ * @package webtrees
+ * @subpackage Themes
+ * @version $Id$
+ */
+ /*
+ * This is a sample customizable menu, with sub-menus, that will appear in the top links of each
+ * page.
+ *
+ * To make this menu appear between the Search and the Help menus at the top of each page, this
+ * file needs to be named "optional_menu.php".  Furthermore, the individual menu and sub-menu
+ * entries need to be valid.  You can remove the extra comments but, for copyright reasons, the
+ * first comment block at the top of this file should be retained.
+ *
+ * Please note:
+ * This menu is NEVER visible when a Search robot is accessing the site.  This is controlled by
+ * "includes/classes/class_menubar.php".
+ *
+ * Use the code in "includes/classes/class_menubar.php" as a guide to how valid menus and sub-menus 
+ * should be constructed.
+ */
+ /*
+ * Explanation of the '$menu = new Menu("whatever 1", "whatever 2")' and
+ * '$submenu = new Menu("whatever 1", "whatever 2")'line:
+ *	'whatever 1' is the text that is to appear for this sub-menu entry.  If you code this as
+ *		shown, the text will appear exactly as entered no matter what the page language is.
+ *
+ * 'whatever 2' is the URL required to launch the desired module, web site, or webtrees
+ *		script.  You need to provide all of the input parameters or variables that the script
+ *		needs.  For example, to get to the Yahoo web site, you'd replace '"whatever 2"' with
+ *		'"http://www.yahoo.com"'.  Note that the URL you enter here is enclosed in quotation marks.
+ *
+ *		If the URL requires something enclosed in quotation marks, you should precede each of them
+ *		with a backslash or enclose the entire URL in apostrophes instead of quotation marks.
+ */
+
+if (!defined('WT_WEBTREES')) {
+	header('HTTP/1.0 403 Forbidden');
+	exit;
+}
+
+	//-- main Optional menu item
+	$menu = new Menu("Optional Menu name", "custom link #1", "down");
+	if (!empty($WT_IMAGES["gedcom"]["large"]))
+		$menu->addIcon($WT_IMAGE_DIR."/".$WT_IMAGES["gedcom"]["large"]);
+	$menu->addClass("menuitem$ff", "menuitem_hover$ff", "submenu$ff");
+
+	// First sub-menu (visible even when Search robots are looking at the site)
+	$submenu = new Menu("Custom Menu Item 1", "custom link #1");
+	$submenu->addClass("submenuitem$ff", "submenuitem_hover$ff");
+	$menu->addSubmenu($submenu);
+
+	// Second sub-menu (invisible to Search robots)
+	if (empty($SEARCH_SPIDER)) {
+		$submenu = new Menu("Custom Menu Item 2", "custom link #2");
+		$submenu->addClass("submenuitem$ff", "submenuitem_hover$ff");
+		$menu->addSubmenu($submenu);
+	}
+
+	// Third sub-menu (visible only to users with site Admin rights)
+	if (WT_USER_IS_ADMIN) {
+		$submenu = new Menu("Custom Menu Item 3", "custom link #2");
+		$submenu->addClass("submenuitem$ff", "submenuitem_hover$ff");
+		$menu->addSubmenu($submenu);
+	}
+
+	// Fourth sub-menu (visible only to users with GEDCOM Admin rights)
+	if (WT_USER_GEDCOM_ADMIN) {
+		$submenu = new Menu("Custom Menu Item 4", "custom link #2");
+		$submenu->addClass("submenuitem$ff", "submenuitem_hover$ff");
+		$menu->addSubmenu($submenu);
+	}
+
+	// Fifth sub-menu (visible only Clippings Cart is enabled and not a Search robot)
+	if (empty($SEARCH_SPIDER) && $GLOBALS["ENABLE_CLIPPINGS_CART"]) {
+		$submenu = new Menu("Custom Menu Item 5", "custom link #2");
+		$submenu->addClass("submenuitem$ff", "submenuitem_hover$ff");
+		$menu->addSubmenu($submenu);
+	}
+?>