From 376c0091808a3eec93814aeb1d1e208f847eb66b Mon Sep 17 00:00:00 2001
From: Wolfgang Sourdeau <wsourdeau@inverse.ca>
Date: Wed, 21 Mar 2007 14:28:42 +0000
Subject: [PATCH] Monotone-Parent: 2914b9eab0b116cea42ae4eefee3758488d098c7
 Monotone-Revision: 1159908dc1415c3892d49b916e424c7360c2d205

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-03-21T14:28:42
Monotone-Branch: ca.inverse.sogo
---
 ChangeLog                         |  4 ++++
 UI/Contacts/UIxContactsListView.m | 22 ++++++++++++++++++++++
 UI/Contacts/product.plist         |  5 +++++
 3 files changed, 31 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 71173d93b..07cc5fd38 100644
--- a/ChangeLog
+++ b/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".
diff --git a/UI/Contacts/UIxContactsListView.m b/UI/Contacts/UIxContactsListView.m
index 7a3cdd99d..a709758b7 100644
--- a/UI/Contacts/UIxContactsListView.m
+++ b/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";
diff --git a/UI/Contacts/product.plist b/UI/Contacts/product.plist
index a3424d7ba..6e4d7ea82 100644
--- a/UI/Contacts/product.plist
+++ b/UI/Contacts/product.plist
@@ -111,6 +111,11 @@
               pageName    = "UIxContactsListView";
               actionName = "addressBooksContacts";
            };
+	   delete = {
+              protectedBy = "View";
+              pageName    = "UIxContactsListView";
+              actionName = "delete";
+	   };
         };
      };