From 33bc8587f5e86e6feb02135d00aea64141d1fd0a Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Mon, 13 May 2002 23:53:28 +0000
Subject: [PATCH] Bug #554650 fixed.

---
 lib/WebGUI/Session.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index a452e43e0..4879f8e8e 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -79,6 +79,7 @@ sub _getUserInfo {
 	}
 	%profile = WebGUI::SQL->buildHash("select userProfileField.fieldName, userProfileData.fieldData from userProfileData, userProfileField where userProfileData.fieldName=userProfileField.fieldName and userProfileData.userId=$user{userId}", $_[1]);
 	%user = (%user, %profile);
+	$user{language} = 'English' if ($user{language} eq "");
 	return \%user;
 }