Monotone-Parent: 4693003507fe98c458c21286d91ac2a4d897dbe9

Monotone-Revision: 2ff14c56a17684b19765d7bcced2675ab78095b7

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2008-11-24T21:26:36
Monotone-Branch: ca.inverse.sogo

ChangeLog

@@ -1,3 +1,11 @@
+2008-11-24  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
+
+	* SoObjects/SOGo/SOGoParentFolder.m ([SOGoParentFolder
+	-toManyRelationshipKeys]): return the subfolders in the order by
+	which they appear in the web interface, to avoid confusing
+	Lighting with its Inbox management and so that the folders appear
+	in an ordered way.
+
 2008-11-23  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
 	* UI/MainUI/SOGoUserHomePage.m ([SOGoUserHomePage

SoObjects/SOGo/SOGoParentFolder.m

@@ -349,14 +349,6 @@ static SoSecurityManager *sm = nil;
   return obj;
 }
 
-- (NSArray *) toManyRelationshipKeys
-{
-  if (!subFolders)
-    [self initSubFolders];
-
-  return [subFolders allKeys];
-}
-
 - (NSArray *) subFolders
 {
   if (!subFolders)
@@ -366,6 +358,20 @@ static SoSecurityManager *sm = nil;
 	   sortedArrayUsingSelector: @selector (compare:)];
 }
 
+- (NSArray *) toManyRelationshipKeys
+{
+  NSEnumerator *sortedSubFolders;
+  NSMutableArray *keys;
+  SOGoGCSFolder *currentFolder;
+
+  keys = [NSMutableArray array];
+  sortedSubFolders = [[self subFolders] objectEnumerator];
+  while ((currentFolder = [sortedSubFolders nextObject]))
+    [keys addObject: [currentFolder nameInContainer]];
+
+  return keys;
+}
+
 - (NSException *) davCreateCollection: (NSString *) pathInfo
 			    inContext: (WOContext *) localContext
 {