oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Trying to fix some of the more serious bugs found in the 3.8.0 log files.

Browse source
This commit is contained in:
JT Smith 2002-05-29 06:08:45 +00:00
parent 9b2a05de03
commit 6d95720e60
2 changed files with 24 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Session.pm
View file

@ -75,9 +75,11 @@ sub _getUserInfo {
$uid = $_[0] || 1;
%user = WebGUI::SQL->quickHash("select * from users where userId='$uid'", $_[1]);
if ($user{userId} eq "") {
%user = _getUserInfo("1",$_[1]);
%user = {_getUserInfo("1",$_[1])};
}
%profile = WebGUI::SQL->buildHash("select userProfileField.fieldName, userProfileData.fieldData from userProfileData, userProfileField where userProfileData.fieldName=userProfileField.fieldName and userProfileData.userId=$user{userId}", $_[1]);
%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);
%default = WebGUI::SQL->buildHash("select fieldName, dataDefault from userProfileField where profileCategoryId=4", $_[1]);
foreach $key (keys %default) {