diff options
author | Oliver Tappe | 2007-05-05 20:15:05 +0200 |
---|---|---|
committer | Oliver Tappe | 2007-05-05 20:15:05 +0200 |
commit | 6a1d881d05d497288861ba10314180a78209a779 (patch) | |
tree | 69112bef0ad3b414e3c90632f06a6f6b7e058b71 | |
parent | * added default values for all attributes to default system (diff) | |
download | core-6a1d881d05d497288861ba10314180a78209a779.tar.gz core-6a1d881d05d497288861ba10314180a78209a779.tar.xz core-6a1d881d05d497288861ba10314180a78209a779.zip |
* fixed syntax problems
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1006 95ad53e4-c205-0410-b2fa-d234c58c8868
-rw-r--r-- | config-db/OpenSLX/DBSchema.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/config-db/OpenSLX/DBSchema.pm b/config-db/OpenSLX/DBSchema.pm index d93d4f21..88bbc1a8 100644 --- a/config-db/OpenSLX/DBSchema.pm +++ b/config-db/OpenSLX/DBSchema.pm @@ -208,9 +208,10 @@ $DbSchema = { ### 'cols' => contains a full list of resulting column descriptions ################################################################################ -my $lang = setlocale(LC_LANG); +use POSIX qw(locale_h); +my $lang = setlocale(LC_MESSAGES); my $country; -if ($lang =~ m[\w\w_(\w\w)]) { +if ($lang =~ m[^\w\w_(\w\w)]) { $country = lc($1); } else { $country = 'us'; |