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.2 -r1.3
--- openacs-4/packages/assessment/tcl/as-checks-procs.tcl	25 Jan 2005 15:37:14 -0000	1.2
+++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl	25 Jan 2005 17:10:24 -0000	1.3
@@ -195,12 +195,13 @@
 } {
     
 } {
-    
+
     db_transaction {
 	set user_id [ad_conn user_id]
 	set log_id [db_string get_next_val {}]
 	set action_id [db_string action_id {}]
 	db_dml insert_action {}
+        ns_log notice "inserta en mannually"
     }
 }
 
@@ -346,7 +347,7 @@
 } {
     
 } {
-
+    ns_log notice "entra a eval_aa_checks"
     set assessment_rev_id [db_string get_assessment_id {}]
     
     set section_list [db_list_of_lists sections {}]
@@ -371,13 +372,15 @@
 } {
     
 } {
-    
+    ns_log notice "entra a mannually"
     set assessment_rev_id [db_string get_assessment_id {}]
     
     db_foreach sections {} { 
 	db_foreach section_checks {} {
-	    set perform [db_string check_sql $check_sql]
 	    if {$action_p == "t"} {
+	    set perform [db_string check_sql $check_sql]
+	    ns_log notice "-------------manual perform $perform"
+	    
 		if {$perform == 1} {
 		    set failed ""
 		    as::assessment::check::manual_action_log -check_id $inter_item_check_id -session_id $session_id