diff options
Diffstat (limited to 'includes/extras')
| -rw-r--r-- | includes/extras/functions.ar.php | 47 | ||||
| -rw-r--r-- | includes/extras/functions.el.php | 54 | ||||
| -rw-r--r-- | includes/extras/functions.en.php | 51 | ||||
| -rw-r--r-- | includes/extras/functions.fi.php | 168 | ||||
| -rw-r--r-- | includes/extras/functions.fr.php | 54 | ||||
| -rw-r--r-- | includes/extras/functions.pl.php | 592 | ||||
| -rw-r--r-- | includes/extras/functions.sl.php | 182 | ||||
| -rw-r--r-- | includes/extras/functions.tr.php | 112 | ||||
| -rw-r--r-- | includes/extras/sample_custom_welcome_menu.php | 95 | ||||
| -rw-r--r-- | includes/extras/sample_optional_menu.php | 103 |
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"; // moki + else if ($sex == "F") $fact = "Pokopana"; // enska + } + else { + if ($sex == "M") $fact = "Znan tudi kot"; // moki + 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"; // moki + else if (empty($husb) && !empty($wife)) $fact = "Samska"; // enska + } + else if ($fact == "_NMAR") { + if (empty($wife) && !empty($husb)) $fact = "Nikoli poroen"; // moki + else if (empty($husb) && !empty($wife)) $fact = "Nikoli poroena"; // 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); + } +?> |