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.22 -r1.23
--- openacs-4/packages/assessment/tcl/as-checks-procs.tcl 28 Feb 2005 23:09:05 -0000 1.22
+++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl 2 Mar 2005 20:59:01 -0000 1.23
@@ -1,5 +1,4 @@
-ad_library {
- Assessment Checks procs
+ad_library { Assessment Checks procs
@author Anny Flores (annyflores@viaro.net) Viaro Networks (www.viaro.net)
@creation-date 2005-01-13
}
@@ -393,7 +392,7 @@
foreach check_id $checks {
set info [db_0or1row check_info {}]
- set perform [db_string check_sql $check_sql]
+ set perform [db_string check_sql $check_sql -default 0]
if {$action_p == "t"} {
if {$perform == 1} {
as::assessment::check::action_exec -inter_item_check_id $inter_item_check_id -session_id $session_id
@@ -413,7 +412,7 @@
db_foreach assessment_checks {} {
if {$action_p == "t"} {
- set perform [db_string check_sql $check_sql]
+ set perform [db_string check_sql $check_sql -default 0]
if {$perform == 1} {
Index: openacs-4/packages/assessment/tcl/as-checks-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs.xql,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/assessment/tcl/as-checks-procs.xql 28 Feb 2005 23:09:05 -0000 1.16
+++ openacs-4/packages/assessment/tcl/as-checks-procs.xql 2 Mar 2005 20:59:01 -0000 1.17
@@ -247,7 +247,7 @@
- select c.inter_item_check_id from as_inter_item_checks c,as_action_map am where c.inter_item_check_id=am.inter_item_check_id and am.action_perform='aa' and c.assessment_id=:assessment_id
+ select c.inter_item_check_id from as_inter_item_checks c,as_action_map am where c.inter_item_check_id=am.inter_item_check_id and am.action_perform='aa' and c.assessment_id=:assessment_id order by am.order_by