Monotone-Parent: 1b7e32ba68558b623b1ae7c252ace2acac8680fd

Monotone-Revision: a157cdab1102429e9d7b24c14204d15f42e774f5

Monotone-Author: flachapelle@inverse.ca
Monotone-Date: 2008-01-15T21:45:48
Monotone-Branch: ca.inverse.sogo

UI/Scheduler/UIxCalendarSelector.m

@@ -1,6 +1,6 @@
 /* UIxCalendarSelector.m - this file is part of SOGo
  *
- * Copyright (C) 2007 Inverse groupe conseil
+ * Copyright (C) 2007, 2008 Inverse groupe conseil
  *
  * Author: Wolfgang Sourdeau <wsourdeau@inverse.ca>
  *
@@ -24,8 +24,11 @@
 #import <Foundation/NSDictionary.h>
 #import <Foundation/NSValue.h>
 
+#import <NGObjWeb/WOResponse.h>
+
 #import <SOGo/NSDictionary+Utilities.h>
 
+#import <SoObjects/SOGo/NSArray+Utilities.h>
 #import <SoObjects/SOGo/SOGoUser.h>
 
 #import <Appointments/SOGoAppointmentFolder.h>
@@ -171,4 +174,16 @@ colorForNumber (unsigned int number)
 	   keysWithFormat: @"color: %{color}; background-color: %{color};"];
 }
 
+- (WOResponse *) calendarsListAction
+{
+  WOResponse *response;
+
+  response = [self responseWithStatus: 200];
+  [response setHeader: @"text/plain; charset=utf-8"
+	    forKey: @"content-type"];
+  [response appendContentString: [[self calendars] jsonRepresentation]];
+
+  return response;
+}
+
 @end /* UIxCalendarSelector */