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

Adding karma.

Browse source
This commit is contained in:
JT Smith 2002-06-29 01:02:56 +00:00
parent 67a7d41ce2
commit dbd1d77926
2 changed files with 47 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/User.pm
View file

@ -304,17 +304,17 @@ sub new {
%profile = WebGUI::SQL->buildHash("select userProfileField.fieldName, userProfileData.fieldData
from userProfileField, userProfileData where userProfileField.fieldName=userProfileData.fieldName and
userProfileData.userId='$user{userId}'");
# %default = WebGUI::SQL->buildHash("select fieldName, dataDefault from userProfileField where profileCategoryId=4");
#foreach $key (keys %default) {
# if ($profile{$key} eq "") {
# $value = eval($default{$key});
# if (ref $value eq "ARRAY") {
# $profile{$key} = $$value[0];
# } else {
# $profile{$key} = $value;
# }
# }
#}
%default = WebGUI::SQL->buildHash("select fieldName, dataDefault from userProfileField where profileCategoryId=4");
foreach $key (keys %default) {
if ($profile{$key} eq "") {
$value = eval($default{$key});
if (ref $value eq "ARRAY") {
$profile{$key} = $$value[0];
} else {
$profile{$key} = $value;
}
}
}
bless {_userId => $userId, _user => \%user, _profile =>\%profile }, $class;
}