summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGunnar Wrobel <wrobel@pardus.de>2010-03-30 06:41:50 (GMT)
committerGunnar Wrobel <wrobel@pardus.de>2010-03-30 06:41:50 (GMT)
commit5acf7990487c4641081c17149b4c89980c0b4b82 (patch)
tree134d75185f30593341395c8c43719c71cd589883
parenta3e6cedc9867833cd2ca6bfb4e75a14b5879447f (diff)
downloadperl-Kolab-5acf7990487c4641081c17149b4c89980c0b4b82.tar.gz
Do not interpret every folder as calendar. kolab/issue4237 (additional event.default folder created by kolabd (rt#6038))
-rw-r--r--lib/Kolab/Cyrus.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Kolab/Cyrus.pm b/lib/Kolab/Cyrus.pm
index 99d51af..4973add 100644
--- a/lib/Kolab/Cyrus.pm
+++ b/lib/Kolab/Cyrus.pm
@@ -126,7 +126,8 @@ sub createCalendar
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;
}
}