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 -r1.5 -r1.6
--- 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 Sep 2024 15:37:35 -0000	1.6
@@ -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
     }