Monotone-Parent: dcf442c860232fa8f419eeb330aab1bebfdb596c

Monotone-Revision: 29bd9d1c5051eac140806ad6a68c2587e599f1c8

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-02-21T21:11:40
Monotone-Branch: ca.inverse.sogo

SoObjects/SOGo/SOGoFolder.h

@@ -55,6 +55,8 @@
 - (GCSFolder *)ocsFolder;
 
 /* lower level fetches */
+- (BOOL) nameExistsInFolder: (NSString *) objectName;
+
 - (NSArray *)fetchContentObjectNames;
 - (NSDictionary *)fetchContentStringsAndNamesOfAllObjects;
 

SoObjects/SOGo/SOGoFolder.m

@@ -142,6 +142,23 @@
   return [records valueForKey:@"c_name"];
 }
 
+- (BOOL) nameExistsInFolder: (NSString *) objectName
+{
+  NSArray *fields, *records;
+  EOQualifier *qualifier;
+
+  qualifier
+    = [EOQualifier qualifierWithQualifierFormat:
+                     [NSString stringWithFormat: @"c_name='%@'", objectName]];
+
+  fields = [NSArray arrayWithObject: @"c_name"];
+  records = [[self ocsFolder] fetchFields: fields
+                              matchingQualifier: qualifier];
+  return (records
+          && ![records isKindOfClass:[NSException class]]
+          && [records count] > 0);
+}
+
 - (NSDictionary *)fetchContentStringsAndNamesOfAllObjects {
   NSDictionary *files;