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

Fixed some bugs in the profile setting stuff

Browse source
This commit is contained in:
Martin Kamerbeek 2006-05-03 15:08:55 +00:00
parent 12c10d56fe
commit c98308af17
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Operation/ProfileSettings.pm
View file

@ -334,9 +334,8 @@ sub www_editProfileFieldSave {
my $categoryId = $session->form->selectBox("profileCategoryId");
if ($session->form->process("new")) {
my $field = WebGUI::ProfileField->create($session,$session->form->text("fid"), \%data, $categoryId);
$session->stow->set("editSavedFid",$field->getId);
} else {
my $field = WebGUI::ProfileField->new($session,$session->stow->get("editSavedFid"));
my $field = WebGUI::ProfileField->new($session, $session->form->process("fid"));
$field->set(\%data);
$field->setCategory($categoryId);
}

3
lib/WebGUI/ProfileField.pm
View file

@ -543,6 +543,9 @@ sub setCategory {
my $categoryId = shift;
return undef unless ($categoryId);
my $currentCategoryId = $self->get("profileCategoryId");
return undef if ($categoryId eq $currentCategoryId);
my ($sequenceNumber) = $self->session->db->quickArray("select max(sequenceNumber) from userProfileField where profileCategoryId=".$self->session->db->quote($categoryId));
$self->session->db->setRow("userProfileField","fieldName",{fieldName=>$self->getId, profileCategoryId=>$categoryId, sequenceNumber=>$sequenceNumber+1});
$self->{_property}{profileCategoryId} = $categoryId;