fixing bug

This commit is contained in:
JT Smith 2005-12-07 16:31:54 +00:00
parent 58df04b36c
commit c6035f338a
2 changed files with 3 additions and 1 deletions

View file

@ -262,6 +262,7 @@ sub set {
$properties->{visible} = 0 unless ($properties->{visible} == 1);
$properties->{editable} = 0 unless ($properties->{editable} == 1);
$properties->{label} = 'Undefined' if ($properties->{label} =~ /^[\"\']*$/);
$properties->{profileCategoryId} = $self->getId;
WebGUI::SQL->setRow("userProfileCategory","profileCategoryId",$properties);
}

View file

@ -362,7 +362,8 @@ sub set {
$properties->{defaultValues} .= "]";
}
}
WebGUI::SQL->setRow("userProfileCategory","profileCategoryId",$properties);
$properties->{fieldName} = $self->getId;
WebGUI::SQL->setRow("userProfileField","fieldName",$properties);
foreach my $key (keys %{$properties}) {
$self->{_property}{$key} = $properties->{$key};
}