From 243e2c23c25af3d3e0b70b56f840b702c961826b Mon Sep 17 00:00:00 2001
From: Leendert Bottelberghs <bottelberghs@webgui-cvs>
Date: Fri, 4 Jun 2004 14:28:14 +0000
Subject: [PATCH] bugfix [966466] System crash when user language missing.

---
 lib/WebGUI/Session.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index e46a61c06..e8b6d9995 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -138,7 +138,7 @@ sub _setupUserInfo {
 			from userProfileData, userProfileField where userProfileData.fieldName=userProfileField.fieldName 
 			and userProfileData.userId='$user{userId}'");
 		%user = (%user, %profile);
-		$user{language} = $session{page}{languageId} if ($user{userId} == 1);
+		$user{language} = $session{page}{languageId} if ($user{userId} == 1 || $user{language} eq '');
 		%default = WebGUI::SQL->buildHash("select fieldName, dataDefault from userProfileField 
 			where profileCategoryId=4");
 		foreach $key (keys %default) {
@@ -433,7 +433,7 @@ sub open {
 	_setupUserInfo($session{var}{userId});
 	###----------------------------
 	### language settings
-	$session{language} = WebGUI::SQL->quickHashRef("select * from language where languageId=$session{user}{language}");
+	$session{language} = WebGUI::SQL->quickHashRef("select * from language where languageId=".quote($session{user}{language}));
 	###----------------------------
 	### loading plugins
 }