Index: openacs-4/packages/assessment/tcl/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	6 Dec 2004 12:26:53 -0000	1.8
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	8 Dec 2004 15:30:34 -0000	1.9
@@ -197,6 +197,7 @@
 					     [list section_navigation $a(section_navigation)] ] ]
 	
 	copy_sections -assessment_id $a(assessment_rev_id) -new_assessment_id $new_rev_id
+	copy_categories -from_id $a(assessment_rev_id) -to_id $new_rev_id
     }
 
     return $new_rev_id
@@ -213,3 +214,15 @@
 } {
     db_dml copy_sections {}
 }
+
+ad_proc as::assessment::copy_categories {
+    {-from_id:required}
+    {-to_id:required}
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+    @creation-date 2004-12-07
+
+    Copies all categories from one object to new object
+} {
+    db_dml copy_categories {}
+}