Index: openacs-4/packages/assessment/tcl/callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/callback-procs.tcl,v diff -u -N -r1.5 -r1.5.2.1 --- openacs-4/packages/assessment/tcl/callback-procs.tcl 7 Aug 2017 23:48:03 -0000 1.5 +++ openacs-4/packages/assessment/tcl/callback-procs.tcl 3 May 2020 18:04:19 -0000 1.5.2.1 @@ -107,7 +107,7 @@ set node_id [dotlrn_community::get_community_node_id $community_id] set list_of_package_ids [site_node::get_children -node_id $node_id -element package_id -package_key assessment] if {[llength $list_of_package_ids]} { - set package_id_clause "and ass.package_id in ([join $list_of_package_ids ", "])" + set package_id_clause "and ass.package_id in ([ns_dbquotelist $list_of_package_ids])" } else { return } @@ -146,7 +146,7 @@ } set folder_id_clause "" if {[llength $list_of_folder_ids]} { - set folder_id_clause "and ci.parent_id in ([join $list_of_folder_ids ", "])" + set folder_id_clause "and ci.parent_id in ([ns_dbquotelist $list_of_folder_ids])" } else { return }