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 -r1.25
--- openacs-4/packages/assessment/tcl/as-checks-procs.tcl	3 Mar 2005 22:46:41 -0000	1.24
+++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl	10 Jun 2005 16:11:45 -0000	1.25
@@ -580,3 +580,34 @@
 	}
     }
 }
+
+
+ad_proc -public as::assessment::check::eval_single_check {
+    {-session_id}
+    {-assessment_id}
+    {-inter_item_check_id}
+} {
+    
+} {
+    db_1row get_check_info {} 
+    
+    set perform [db_string check_sql $check_sql -default 0]
+    ns_log notice "$check_sql $perform"
+    if {$perform == 1} {
+	set failed ""
+	as::assessment::check::manual_action_log -check_id $inter_item_check_id -session_id $session_id 
+    }
+}
+
+
+ad_proc -public as::assessment::check::add_manual_check {
+    {-assessment_id:required}
+    {-inter_item_check_id:required}
+} {
+    
+} {
+    set sessions [db_list_of_lists get_sessions {select session_id from as_sessions where assessment_id=:assessment_id}]
+    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