Index: openacs-4/packages/ecommerce/www/admin/customer-service/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/index.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/ecommerce/www/admin/customer-service/index.tcl	20 Aug 2008 20:34:33 -0000	1.7
+++ openacs-4/packages/ecommerce/www/admin/customer-service/index.tcl	25 Jul 2018 02:09:22 -0000	1.8
@@ -46,8 +46,7 @@
 # same query for issues that aren't in issue_type_list
 if { $issue_type_list_len > 0 } {
     # taking advantage of the fact that tcl lists are just strings
-    set safe_issue_type_list [DoubleApos $issue_type_list]
-    set last_bit_of_query "and 1 <= (select count(*) from ec_cs_issue_type_map map where map.issue_id=issues.issue_id and map.issue_type not in ('[join $safe_issue_type_list "', '"]'))"
+    set last_bit_of_query "and 1 <= (select count(*) from ec_cs_issue_type_map map where map.issue_id=issues.issue_id and map.issue_type not in ([template::util::tcl_to_sql_list $issue_type_list]))"
 } else {
     set last_bit_of_query "and 1 <= (select count(*) from ec_cs_issue_type_map map where map.issue_id=issues.issue_id)"
 }