gunnar: server/perl-kolab/perl-kolab/lib/Kolab Cyrus.pm,1.2,1.3

[cvs at kolab.org]

Author: gunnar

Update of /kolabrepository/server/perl-kolab/perl-kolab/lib/Kolab
In directory doto:/tmp/cvs-serv10651/perl-kolab/lib/Kolab

Modified Files:
	Cyrus.pm 
Log Message:
Do not interpret every folder as calendar. kolab/issue4237 (additional event.default folder created by kolabd (rt#6038)) 

Index: Cyrus.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/perl-kolab/lib/Kolab/Cyrus.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- Cyrus.pm	23 Mar 2010 18:02:11 -0000	1.2
+++ Cyrus.pm	30 Mar 2010 06:41:50 -0000	1.3
@@ -126,7 +126,8 @@
     foreach my $mailbox (@mailboxes) {
 	my $u = @{$mailbox}[0];
 	%info = $cyrus->info($u, ('/vendor/kolab/folder-type'));
-	if ($info{'/vendor/kolab/folder-type'} == 'event.default') {
+	my $key = '/mailbox/{' . $u . '}/vendor/kolab/folder-type';
+	if (exists($info{$key}) && $info{$key} eq 'event.default') {
 	    $calendar = $u;
 	}
     }