Monotone-Parent: 6ea44b1efa1edb28f1218a700087fee83cb79305

Monotone-Revision: 2b0145bf6bbc08cf0fb2fc9d65b3fd914daa72c2

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2011-12-01T21:13:09
Monotone-Branch: ca.inverse.sogo

OpenChange/MAPIStoreContactsMessage.m

@@ -33,6 +33,7 @@
 #import <NGCards/NSString+NGCards.h>
 #import <Contacts/SOGoContactGCSEntry.h>
 #import <Mailer/NSString+Mail.h>
+#import <SOGo/SOGoPermissions.h>
 
 #import "MAPIStoreContactsAttachment.h"
 #import "MAPIStoreContactsFolder.h"
@@ -847,6 +848,22 @@
     }
 }
 
+- (BOOL) subscriberCanReadMessage
+{
+  return [[self activeUserRoles] containsObject: SOGoRole_ObjectViewer];
+}
+
+- (BOOL) subscriberCanModifyMessage
+{
+  NSArray *roles;
+
+  roles = [self activeUserRoles];
+
+  return ((isNew
+           && [roles containsObject: SOGoRole_ObjectCreator])
+          || (!isNew && [roles containsObject: SOGoRole_ObjectEditor]));
+}
+
 //
 //
 //