steffen: server/perl-kolab/Kolab-LDAP LDAP.pm,1.36,1.37

[cvs at intevation.de]

Author: steffen

Update of /kolabrepository/server/perl-kolab/Kolab-LDAP
In directory doto:/tmp/cvs-serv7430/Kolab-LDAP

Modified Files:
	LDAP.pm 
Log Message:
Fix for Issue801 (lowercase value of mail attr)

Index: LDAP.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP/LDAP.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- LDAP.pm	28 Jul 2005 02:14:38 -0000	1.36
+++ LDAP.pm	17 Sep 2005 14:21:23 -0000	1.37
@@ -240,7 +240,7 @@
 
     # No action for groups or external
     return if( $objuidfield eq '' );
-    my $uid = trim($object->get_value($objuidfield)) || 0;
+    my $uid = lc(trim($object->get_value($objuidfield))) || 0;
     return unless $uid;
 
     my $kolabhomeserver = lc($object->get_value('kolabhomeserver'));