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

[cvs at intevation.de]

Author: steffen

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

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.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- LDAP.pm	17 Sep 2005 14:21:23 -0000	1.37
+++ LDAP.pm	17 Sep 2005 14:32:23 -0000	1.38
@@ -247,7 +247,7 @@
     my $islocal = 1;
     my $del = $object->get_value($Kolab::config{$p . '_field_deleted'}, asref => 1);
     if( ref($del) eq 'ARRAY' && @$del > 0 ) {
-      Kolab::log('L', "Kolab::LDAP::createObject() skipping object ".$object->get_value($objuidfield)
+      Kolab::log('L', "Kolab::LDAP::createObject() skipping object ".lc($object->get_value($objuidfield))
 		 ." because it is deleted");
       return;
     }