From fdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 7 Sep 1999 20:28:22 +0000
Subject: no_comment

---
 perl-install/timezone.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'perl-install/timezone.pm')

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;
-- 
cgit v1.2.1