Monotone-Parent: 2914b9eab0b116cea42ae4eefee3758488d098c7

Monotone-Revision: 1159908dc1415c3892d49b916e424c7360c2d205

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-03-21T14:28:42
Monotone-Branch: ca.inverse.sogo

ChangeLog

@@ -1,5 +1,9 @@
 2007-03-21  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* UI/Contacts/UIxContactsListView.m ([UIxContactsListView
+	-deleteAction]): new web method to delete personal addressbook
+	folders.
+
 	* SoObjects/Contacts/SOGoContactGCSFolder.m ([SOGoContactGCSFolder
 	-delete]): override method to refuse the deletion of the folder if
 	its nameInContainer is "personal".

UI/Contacts/UIxContactsListView.m

@@ -19,6 +19,9 @@
   02111-1307, USA.
 */
 
+#import <NGObjWeb/WOContext.h>
+#import <NGObjWeb/WOResponse.h>
+
 #import <Contacts/SOGoContactObject.h>
 #import <Contacts/SOGoContactFolder.h>
 #import <Contacts/SOGoContactFolders.h>
@@ -104,6 +107,25 @@
   return self;
 }
 
+- (id <WOActionResults>) deleteAction
+{
+  id <WOActionResults> result;
+  NSException <WOActionResults> *ex;
+  WOResponse *response;
+
+  ex = [[self clientObject] delete];
+  if (ex)
+    result = ex;
+  else
+    {
+      response = [context response];
+      [response setStatus: 200];
+      result = response;
+    }
+
+  return result;
+}
+
 - (NSString *) defaultSortKey
 {
   return @"fn";

UI/Contacts/product.plist

@@ -111,6 +111,11 @@
               pageName    = "UIxContactsListView";
               actionName = "addressBooksContacts";
            };
+	   delete = {
+              protectedBy = "View";
+              pageName    = "UIxContactsListView";
+              actionName = "delete";
+	   };
         };
      };