steffen: server/perl-kolab/Kolab-Conf Conf.pm,1.35,1.36

cvs at intevation.de cvs at intevation.de
Wed Aug 18 00:41:12 CEST 2004


Author: steffen

Update of /kolabrepository/server/perl-kolab/Kolab-Conf
In directory doto:/tmp/cvs-serv1870/Kolab-Conf

Modified Files:
	Conf.pm 
Log Message:
Fix for Issue315 (dist list ACLs)

Index: Conf.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-Conf/Conf.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- Conf.pm	12 Aug 2004 12:37:24 -0000	1.35
+++ Conf.pm	17 Aug 2004 22:41:10 -0000	1.36
@@ -410,7 +410,10 @@
 					 scope => 'exact', 
 					 filter => '(objectClass=*)' );
 	      if ($umesg->code <= 0 && $umesg->count() == 1 ) {
-		$group .= $umesg->entry(0)->get_value('uid').',';		
+		my $mail;
+		($mail = $umesg->entry(0)->get_value('mail')) or
+		($mail = $umesg->entry(0)->get_value('uid'));
+		$group .= $mail.',';		
 	      }
 	    }
             $group =~ s/,$//;





More information about the commits mailing list