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

fixed profile bugs

Browse source
This commit is contained in:
JT Smith 2003-05-26 01:24:27 +00:00
parent c8f8f40757
commit 0752423448
2 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Operation/Account.pm
View file

@ -87,7 +87,10 @@ sub _logLogin {
sub _validateProfileData {
my (%data, $error, $a, %field);
tie %field, 'Tie::CPHash';
$a = WebGUI::SQL->read("select dataType,fieldName,fieldLabel,required from userProfileField");
$a = WebGUI::SQL->read("select * from userProfileField,userProfileCategory
where userProfileField.profileCategoryId=userProfileCategory.profileCategoryId
and userProfileCategory.editable=1 and userProfileField.editable=1
order by userProfileCategory.sequenceNumber,userProfileField.sequenceNumber");
while (%field = $a->hash) {
$data{$field{fieldName}} = WebGUI::FormProcessor::process($field{fieldName},$field{dataType});
if ($field{required} && $data{$field{fieldName}} eq "") {