From c6035f338a4c08d71dfd30ea22b9840b8798a918 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Wed, 7 Dec 2005 16:31:54 +0000
Subject: [PATCH] fixing bug

---
 lib/WebGUI/ProfileCategory.pm | 1 +
 lib/WebGUI/ProfileField.pm    | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/ProfileCategory.pm b/lib/WebGUI/ProfileCategory.pm
index e0a0b8347..563a99bb9 100644
--- a/lib/WebGUI/ProfileCategory.pm
+++ b/lib/WebGUI/ProfileCategory.pm
@@ -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);
 }
 
diff --git a/lib/WebGUI/ProfileField.pm b/lib/WebGUI/ProfileField.pm
index fbda28573..6961bdd4c 100644
--- a/lib/WebGUI/ProfileField.pm
+++ b/lib/WebGUI/ProfileField.pm
@@ -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};
 	}