Index: openacs-4/packages/assessment/tcl/as-section-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-section-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/assessment/tcl/as-section-procs.tcl	25 Jan 2005 12:47:22 -0000	1.16
+++ openacs-4/packages/assessment/tcl/as-section-procs.tcl	28 Jan 2005 20:31:32 -0000	1.17
@@ -16,6 +16,7 @@
     {-num_items ""}
     {-display_type_id ""}
     {-points ""}
+    
 } {
     @author Eduardo Perez (eperez@it.uc3m.es)
     @creation-date 2004-07-26
@@ -59,6 +60,7 @@
     {-num_items ""}
     {-display_type_id ""}
     {-points ""}
+    {-assessment_id:required}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-10-26
@@ -82,13 +84,15 @@
 						 [list points $points] ] ]
 
 	copy_items -section_id $section_id -new_section_id $new_section_id
+	as::assessment::check::copy_checks -section_id $section_id -new_section_id $new_section_id -assessment_id $assessment_id
     }
 
     return $new_section_id
 }
 
 ad_proc -public as::section::new_revision {
     {-section_id:required}
+    {-assessment_id:required}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-11-07
@@ -112,6 +116,7 @@
 
 	copy_items -section_id $section_id -new_section_id $new_section_id
 	as::assessment::copy_categories -from_id $section_id -to_id $new_section_id
+	as::assessment::check::copy_checks -section_id $section_id -new_section_id $new_section_id -assessment_id $assessment_id
     }
 
     return $new_section_id
@@ -136,6 +141,7 @@
 ad_proc -public as::section::copy {
     {-section_id:required}
     {-name ""}
+    {-assessment_id:required}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-11-07
@@ -170,6 +176,7 @@
 
 	copy_items -section_id $section_id -new_section_id $new_section_id
 	as::assessment::copy_categories -from_id $section_id -to_id $new_section_id
+	as::assessment::check::copy_checks -section_id $section_id -new_section_id $new_section_id -assessment_id $assessment_id
     }
 
     return $new_section_id