From 4229c8ff8beed073321102d52e2f06074d33b782 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Wed, 22 May 2002 04:40:07 +0000
Subject: [PATCH] Fixed preference defaults bug.

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

diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index a33a4890f..d13be1c54 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -70,7 +70,7 @@ sub _getSessionVars {
 
 #-------------------------------------------------------------------
 sub _getUserInfo {
-	my (%default, $key, %user, $uid, %profile);
+	my (%default, $key, %user, $uid, %profile, $value);
 	tie %user, 'Tie::CPHash';
 	$uid = $_[0] || 1;
 	%user = WebGUI::SQL->quickHash("select * from users where userId='$uid'", $_[1]);
@@ -82,7 +82,12 @@ sub _getUserInfo {
 	%default = WebGUI::SQL->buildHash("select fieldName, dataDefault from userProfileField where profileCategoryId=4", $_[1]);
 	foreach $key (keys %default) {
 		if ($user{$key} eq "") {
-			$user{$key} = eval($default{$key});
+			$value = eval($default{$key});
+			if (ref $value eq "ARRAY") {
+				$user{$key} = $$value[0];
+			} else {
+				$user{$key} = $value;
+			}
 		}
 	}
 	return \%user;