Index: openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/tcl/Attic/dotlrn-calendar-procs.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.xql	17 May 2002 21:08:09 -0000	1.1
@@ -0,0 +1,17 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+<fullquery name="dotlrn_calendar::add_applet_to_community.copy_cal_item_types">
+  <querytext>
+
+    insert into cal_item_types
+    (item_type_id, calendar_id, type)
+    select acs_object_id_seq.nextval, :group_calendar_id, type
+    from cal_item_types
+    where calendar_id = :old_calendar_id
+
+  </querytext>
+</fullquery>
+
+</queryset>