Index: openacs-4/packages/assessment/tcl/as-checks-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/tcl/as-checks-procs.tcl	25 Jan 2005 22:03:44 -0000	1.5
+++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl	26 Jan 2005 23:14:29 -0000	1.6
@@ -302,11 +302,14 @@
     
 } {
     
-    db_foreach section_checks {} {
+    set section_checks [db_list_of_lists section_checks { }]
+    ns_log notice "$section_checks"
+    foreach check $section_checks  {
+	set check_sql [lindex $check 1]
 	set perform [db_string check_sql $check_sql]
-	if {$action_p == "t"} {
+	if {[lindex $check 2] == "t"} {
 	    if {$perform == 1} {
-		as::assessment::check::action_exec -inter_item_check_id $inter_item_check_id -session_id $session_id
+		as::assessment::check::action_exec -inter_item_check_id [lindex $check 0] -session_id $session_id
 	    }
 	}
     }
@@ -452,3 +455,12 @@
     set display_info $action
     return $display_info
 }
+
+ad_proc -public as::assessment::check::copy_checks{
+    {-section_id:required}
+    {-new_section_id:required}
+} {
+    
+} {
+
+}
\ No newline at end of file