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.28.2.2 -r1.28.2.3 --- openacs-4/packages/assessment/tcl/as-checks-procs.tcl 3 Oct 2015 18:26:39 -0000 1.28.2.2 +++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl 4 Jul 2016 11:35:25 -0000 1.28.2.3 @@ -229,7 +229,7 @@ } { set error_txt "" - db_foreach get_check_params { } { + db_foreach get_check_params {} { set parameter_name [db_1row select_name {}] set $varname "" @@ -298,7 +298,7 @@ } { db_0or1row subject_id {select subject_id from as_sessions where session_id=:session_id} - db_foreach get_check_params { } { + db_foreach get_check_params {} { set parameter_name [db_1row select_name {}] set $varname "" @@ -368,7 +368,7 @@ } { - set section_checks [db_list_of_lists section_checks { }] + set section_checks [db_list_of_lists section_checks {}] foreach check $section_checks { set check_sql [lindex $check 1] @@ -400,7 +400,7 @@ set perform [db_string check_sql "[lindex $check 0]" -default 0] if {$perform == 1} { - set order [db_string get_order { }] + set order [db_string get_order {}] } } @@ -468,7 +468,7 @@ } { - set section_checks [db_list_of_lists section_checks { }] + set section_checks [db_list_of_lists section_checks {}] foreach check $section_checks { set check_sql [lindex $check 1]