From: Florian Forster <octo@leeloo.(none)>
Date: Sun, 11 Jun 2006 14:26:44 +0000 (+0200)
Subject: Merge branch 'htmlesc'
X-Git-Url: https://git.octo.it/?a=commitdiff_plain;h=e3e82a4771bf51037237e9aafa7cb4c89a9be964;hp=2131f22bf603d199fae97110c260a70f4cddc643;p=licom.git

Merge branch 'htmlesc'
---

diff --git a/lib/LiCoM/Person.pm b/lib/LiCoM/Person.pm
index 887e39e..0773f5b 100644
--- a/lib/LiCoM/Person.pm
+++ b/lib/LiCoM/Person.pm
@@ -492,7 +492,7 @@ sub set
 	}
 	if (!defined ($ValidFields{$field}))
 	{
-		return (undef);
+		return;
 	}
 
 	if (defined ($value))
@@ -514,7 +514,10 @@ sub set
 		$entry->update ($Ldap);
 	}
 
-	$obj->{$field} = [] unless (defined ($obj->{$field}));
+	if (!defined ($obj->{$field}) and $ValidFields{$field})
+	{
+		$obj->{$field} = [];
+	}
 	
 	if (wantarray () and $ValidFields{$field})
 	{
diff --git a/licom.cgi b/licom.cgi
index f96349b..190a9b6 100755
--- a/licom.cgi
+++ b/licom.cgi
@@ -24,7 +24,6 @@ use CGI (':cgi');
 use CGI::Carp (qw(fatalsToBrowser));
 use URI::Escape;
 use HTML::Entities (qw(encode_entities));
-use Data::Dumper;
 
 use LiCoM::Config (qw(get_config set_config read_config));
 use LiCoM::Connection ();