diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-07 20:28:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-07 20:28:22 +0000 |
| commit | fdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc (patch) | |
| tree | c490fb5b33d6b0a0816303cc7b7d4c1a88262da6 /perl-install/timezone.pm | |
| parent | b1f24e0e6c2b5dd8870d1ee89bf7911fe871bfac (diff) | |
| download | drakx-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.pm | 10 |
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; |