From 094b50a6b3c8e7f55c7033217196aa97a9b502ec Mon Sep 17 00:00:00 2001
From: octo <octo>
Date: Fri, 6 May 2005 16:05:10 +0000
Subject: [PATCH] Fixed major bug..

---
 lib/LiCoM/Person.pm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/lib/LiCoM/Person.pm b/lib/LiCoM/Person.pm
index a5bf4e2..6ba43a9 100644
--- a/lib/LiCoM/Person.pm
+++ b/lib/LiCoM/Person.pm
@@ -47,6 +47,24 @@ our %ExternalNames =
 
 return (1);
 
+sub new
+{
+	my $pkg = shift;
+	my $entry = shift;
+	my $obj = {};
+
+	$obj->{'dn'} = $entry->dn ();
+	$obj->{'ldap'} = $entry;
+
+	for (keys %ValidFields)
+	{
+		my $key = $_;
+		$obj->{$key} = $entry->get_value ($key, asref => $ValidFields{$key});
+	}
+
+	return (bless ($obj, $pkg));
+}
+
 =head1 STATIC FUNCTIONS
 
 =over 4
-- 
2.11.0