Monotone-Parent: 30ddfff1991c7e39d67fc5f3c46b308d273ee14a

Monotone-Revision: ea3e5a63ba8435e702b8af87dceec9a5c5e21e6a

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2006-09-06T22:25:46
Monotone-Branch: ca.inverse.sogo

UI/SOGoUI/UIxComponent.m

@@ -27,6 +27,8 @@
 #import <NGObjWeb/WOResourceManager.h>
 
 #import <SOGo/SOGoUser.h>
+#import <SOGo/SOGoObject.h>
+#import <SOGo/SOGoCustomGroupFolder.h>
 
 @interface UIxComponent (PrivateAPI)
 - (void)_parseQueryString:(NSString *)_s;
@@ -306,7 +308,32 @@ static BOOL uixDebugEnabled = NO;
 
 - (NSString *) applicationPath
 {
-  return [self _urlForTraversalObject: 2];
+  SOGoObject *currentClient, *parent;
+  NSString *url;
+  BOOL found;
+  Class parentClass, groupFolderClass, userFolderClass;
+  WOContext *ctx;
+
+  found = NO;
+  groupFolderClass = [SOGoCustomGroupFolder class];
+  userFolderClass = [SOGoUserFolder class];
+
+  currentClient = [self clientObject];
+  while (!found && currentClient)
+    {
+      parent = [currentClient container];
+      parentClass = [parent class];
+      if (parentClass == groupFolderClass
+          || parentClass == userFolderClass)
+        found = YES;
+      else
+        currentClient = parent;
+    }
+
+  ctx = [self context];
+  url = [currentClient baseURLInContext: ctx];
+
+  return [[NSURL URLWithString: url] path];
 }
 
 - (NSString *) resourcesPath