martin: server/perl-kolab/Kolab-LDAP LDAP.pm.in,1.3,1.4

[cvs at intevation.de]

Author: martin

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

Modified Files:
	LDAP.pm.in 
Log Message:
Martin Konold: Applied patch from Tobias König for setting foldertype for public folders after slight modification


Index: LDAP.pm.in
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP/LDAP.pm.in,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- LDAP.pm.in	9 Apr 2006 22:49:43 -0000	1.3
+++ LDAP.pm.in	21 Apr 2006 10:31:46 -0000	1.4
@@ -320,6 +320,13 @@
             # We have a object that we have no previous record of, so create everything
             if ($sync) { $newuid_db{$guid} = $uid; } else { $uid_db{$guid} = $uid; }
             Kolab::Cyrus::createMailbox($cyrus, $uid, ($p eq 'sf' ? 1 : 0));
+	      if( $p eq 'sf' ){
+    		my $foldertype = lc($object->get_value('foldertype'));
+
+		if ( $foldertype ne '' ){
+		  Kolab::Cyrus::setFolderType($cyrus,$uid,1,$foldertype);
+		}
+	      }
 	    if( $p ne 'sf' && !$islocal ) {
 	      # Hide user mailboxes on other servers
 	      Kolab::Cyrus::setACL($cyrus,$uid,0, ["$uid rswipcda"]);