From 6a1d881d05d497288861ba10314180a78209a779 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sat, 5 May 2007 18:15:05 +0000
Subject: * fixed syntax problems

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1006 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/OpenSLX/DBSchema.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'config-db/OpenSLX/DBSchema.pm')

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';
-- 
cgit v1.2.3-55-g7522