Index: openacs-4/packages/search/tcl/extra-args-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/extra-args-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/search/tcl/extra-args-procs.tcl	7 Aug 2017 23:48:29 -0000	1.2
+++ openacs-4/packages/search/tcl/extra-args-procs.tcl	3 Sep 2024 15:37:54 -0000	1.3
@@ -19,7 +19,7 @@
     if {$object_table_alias eq "" || ![info exists object_table_alias] || $value eq ""} {
         return [list]
     }
-    return [list from_clause {} where_clause "$object_table_alias.object_type = '[db_quote $value]'"]
+    return [list from_clause {} where_clause "$object_table_alias.object_type = [ns_dbquotevalue $value]"]
 
 }
 
@@ -32,7 +32,7 @@
     if {$object_table_alias eq "" || ![info exists object_table_alias] || $value eq ""} {
         return [list]
     }
-    return [list from_clause {} where_clause "$object_table_alias.package_id in ([template::util::tcl_to_sql_list $value])"]
+    return [list from_clause {} where_clause "$object_table_alias.package_id in ([ns_dbquotelist $value])"]
 }
 # Local variables:
 #    mode: tcl