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.18 -r1.19 --- openacs-4/packages/assessment/tcl/as-checks-procs.tcl 21 Feb 2005 22:16:51 -0000 1.18 +++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl 21 Feb 2005 22:18:45 -0000 1.19 @@ -249,7 +249,7 @@ set failed_p "t" set failed [catch $tcl_code errorMsg] - ns_log notice "error $errorMsg" + if { $failed > 0 } { set failed_p "f" } @@ -388,10 +388,10 @@ } { set assessment_rev_id [db_string get_assessment_id {}] - ns_log notice "-------------------------------> ENTRA 1" + set checks [db_list_of_lists section_checks {}] foreach check_id $checks { - ns_log notice "-------------------------------> ENTRA 2" + set info [db_0or1row check_info {}] set perform [db_string check_sql $check_sql] if {$action_p == "t"} {