Monotone-Parent: 10fd99221b45b565526188e4580f4cd6b647df6d

Monotone-Revision: be74b6fb3582ef97515c3cb7410750aa6d1d7641

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-02-09T21:24:15
Monotone-Branch: ca.inverse.sogo

UI/Contacts/UIxContactFoldersView.m

@@ -25,6 +25,7 @@
 #import <NGObjWeb/NSException+HTTP.h>
 #import <NGObjWeb/SoObject.h>
 #import <NGObjWeb/WOResponse.h>
+#import <NGObjWeb/WOContext.h>
 
 #import <SoObjects/SOGo/SOGoUser.h>
 #import <SoObjects/SOGo/NSString+Utilities.h>
@@ -68,6 +69,21 @@
   return [self _selectActionForApplication: @"new"];
 }
 
+- (id <WOActionResults>) newAbAction
+{
+  id <WOActionResults> response;
+  NSString *name;
+
+  name = [self queryParameterForKey: @"name"];
+  if ([name length] > 0)
+    response = [[self clientObject] newFolderWithName: name];
+  else
+    response = [NSException exceptionWithHTTPStatus: 400
+                            reason: @"The name is missing"];
+  
+  return response;
+}
+
 - (id) selectForSchedulerAction
 {
   return [self _selectActionForApplication: @"scheduler-contacts"];

UI/Contacts/product.plist

@@ -17,6 +17,11 @@
               pageName    = "UIxContactFoldersView";
               actionName  = "new";
            };
+           newAb = {
+              protectedBy = "View";
+              pageName    = "UIxContactFoldersView";
+              actionName  = "newAb";
+           };
            scheduler-contacts = {
               protectedBy = "View";
               pageName    = "UIxContactFoldersView";