Index: openacs-4/packages/calendar/tcl/calendar-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/calendar/tcl/calendar-procs.xql	17 May 2003 10:20:50 -0000	1.3
+++ openacs-4/packages/calendar/tcl/calendar-procs.xql	9 Jan 2004 20:36:13 -0000	1.4
@@ -38,4 +38,56 @@
     </querytext>
 </fullquery>
  
+<fullquery name="calendar::get_item_types.select_item_types">
+<querytext>
+select type, item_type_id from cal_item_types
+where calendar_id= :calendar_id
+</querytext>
+</fullquery>
+
+<fullquery name="calendar::item_type_new.insert_item_type">
+<querytext>
+insert into cal_item_types
+(item_type_id, calendar_id, type)
+values
+(:item_type_id, :calendar_id, :type)
+</querytext>
+</fullquery>
+
+<fullquery name="calendar::item_type_delete.reset_item_types">
+<querytext>
+update cal_items
+set item_type_id= NULL
+where item_type_id = :item_type_id
+and on_which_calendar= :calendar_id
+</querytext>
+</fullquery>
+ 
+<fullquery name="calendar::item_type_delete.delete_item_type">
+<querytext>
+delete from cal_item_types where item_type_id= :item_type_id
+and calendar_id= :calendar_id
+</querytext>
+</fullquery>
+
+    <fullquery name="calendar::rename.rename_calendar">
+        <querytext>
+            update calendars
+            set calendar_name = :name
+            where calendar_id = :calendar_id
+        </querytext>
+    </fullquery>
+
+<fullquery name="calendar::get.select_calendar">      
+      <querytext>
+	       select  calendar_id,
+                       calendar_name,
+                       private_p,
+                       owner_id,
+                       package_id
+	       from    calendars
+               where   calendar_id = :calendar_id
+      </querytext>
+</fullquery>
+
 </queryset>