From e26b7c980847a0b8524dfb299fe58fd0c9db2e5d Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 4 Dec 2005 23:20:38 +0000
Subject: [PATCH] check for definedness vs veracity in quote

---
 lib/WebGUI/User.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm
index 51d0fae1b..a9d14356b 100644
--- a/lib/WebGUI/User.pm
+++ b/lib/WebGUI/User.pm
@@ -305,11 +305,15 @@ sub profileField {
 	$self = shift;
         $fieldName = shift;
         $value = shift;
+	warn "value 0: $value\n";
 	WebGUI::Macro::negate(\$value);	
+	warn "value 1: $value\n";
 	if (defined $value) {
+		warn "storing: $value\n";
 		$self->uncache;
 		$self->{_profile}{$fieldName} = $value;
 		WebGUI::SQL->write("delete from userProfileData where userId=".quote($self->{_userId})." and fieldName=".quote($fieldName));
+		warn("insert into userProfileData values (".quote($self->{_userId}).", ".quote($fieldName).", ".quote($value).")");
 		WebGUI::SQL->write("insert into userProfileData values (".quote($self->{_userId}).", ".quote($fieldName).", ".quote($value).")");
         	WebGUI::SQL->write("update users set lastUpdated=".time()." where userId=".quote($self->{_userId}));
 	}