Index: openacs-4/packages/calendar/tcl/calendar-2-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/calendar-2-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/tcl/calendar-2-procs.xql	16 Mar 2002 21:11:36 -0000	1.1
@@ -0,0 +1,36 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="calendar::get_item_types.select_item_types">
+<querytext>
+select item_type_id, type 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>
+
+</queryset>