Index: openacs-4/packages/assessment/tcl/as-assessment-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/tcl/as-assessment-procs.xql	26 Nov 2004 20:48:37 -0000	1.2
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.xql	8 Dec 2004 15:30:34 -0000	1.3
@@ -33,4 +33,15 @@
 </querytext>
 </fullquery>
 
+<fullquery name="as::assessment::copy_categories.copy_categories">
+<querytext>
+
+	insert into category_object_map
+	(select category_id, :to_id as object_id
+	 from category_object_map
+	 where object_id = :from_id)
+
+</querytext>
+</fullquery>
+
 </queryset>