summaryrefslogtreecommitdiffstats
path: root/perl-install/timezone.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-07 20:28:22 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-07 20:28:22 +0000
commitfdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc (patch)
treec490fb5b33d6b0a0816303cc7b7d4c1a88262da6 /perl-install/timezone.pm
parentb1f24e0e6c2b5dd8870d1ee89bf7911fe871bfac (diff)
downloaddrakx-fdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc.tar
drakx-fdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc.tar.gz
drakx-fdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc.tar.bz2
drakx-fdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc.tar.xz
drakx-fdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc.zip
no_comment
Diffstat (limited to 'perl-install/timezone.pm')
-rw-r--r--perl-install/timezone.pm10
1 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm
index 8ff037a0f..b6f9cb364 100644
--- a/perl-install/timezone.pm
+++ b/perl-install/timezone.pm
@@ -3,6 +3,7 @@ package timezone;
use diagnostics;
use strict;
+use common;
sub getTimeZones {
@@ -43,9 +44,16 @@ my %l2t = (
'Russian (Russia)' => 'Europe/Moscow',
'Slovak (Slovakia)' => 'Europe/Bratislava',
'Spanish (Spain)' => 'Europe/Madrid',
-'Swedish (Finland)' => 'Europe/Helsinki'
+'Swedish (Finland)' => 'Europe/Helsinki',
'Swedish (Sweden)' => 'Europe/Stockholm',
'Turkish (Turkey)' => 'Europe/Istanbul',
'Ukrainian (Ukraine)' => 'Europe/Kiev',
'Walon (Belgium)' => 'Europe/Brussels',
);
+
+sub bestTimezone {
+ my ($langtext) = @_;
+ $l2t{common::bestMatchSentence($langtext, keys %l2t)};
+}
+
+1;