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.24.2.2 -r1.24.2.3
--- openacs-4/packages/assessment/tcl/as-checks-procs.tcl	27 Jun 2005 14:50:16 -0000	1.24.2.2
+++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl	26 Jul 2005 11:43:15 -0000	1.24.2.3
@@ -260,6 +260,7 @@
     set failed_p "t"
     set failed [catch $tcl_code errorMsg]
     
+    ns_log Notice "DEDS as::assessment::check::action_exec -- $tcl_code"
 
     if { $failed > 0 } {
 	set failed_p "f"
@@ -451,6 +452,27 @@
     
 }
 
+ad_proc -public as::assessment::check::eval_or_checks {
+    {-session_id}
+    {-section_id}
+} {
+    
+} {
+    
+    set section_checks [db_list_of_lists section_checks { }]
+    
+    foreach check $section_checks  {
+        set check_sql [lindex $check 1]
+        set perform [db_string check_sql $check_sql -default 0]
+        if {[lindex $check 2] == "t"} {
+            if {$perform == 1} {
+                as::assessment::check::action_exec -inter_item_check_id [lindex $check 0] -session_id $session_id
+            }
+        }
+    }
+}
+
+
 ad_proc -public as::assessment::check::confirm_display {
     {-check_id}
     {-index}
@@ -611,4 +633,4 @@
     foreach session_id $sessions {
 	as::assessment::check::eval_single_check -session_id $session_id -assessment_id $assessment_id  -inter_item_check_id $inter_item_check_id
     }
-}
\ No newline at end of file
+}