diff options
| author | Gunnar Wrobel <wrobel@pardus.de> | 2010-03-30 06:41:50 (GMT) |
|---|---|---|
| committer | Gunnar Wrobel <wrobel@pardus.de> | 2010-03-30 06:41:50 (GMT) |
| commit | 5acf7990487c4641081c17149b4c89980c0b4b82 (patch) | |
| tree | 134d75185f30593341395c8c43719c71cd589883 /lib | |
| parent | a3e6cedc9867833cd2ca6bfb4e75a14b5879447f (diff) | |
| download | perl-Kolab-5acf7990487c4641081c17149b4c89980c0b4b82.tar.gz | |
Do not interpret every folder as calendar. kolab/issue4237 (additional event.default folder created by kolabd (rt#6038))
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Kolab/Cyrus.pm | 3 |
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; } } |