Index: openacs-4/packages/xowiki/www/portlets/forums-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/portlets/forums-portlet.tcl,v
diff -u -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/xowiki/www/portlets/forums-portlet.tcl	20 Dec 2019 16:45:14 -0000	1.4.2.1
+++ openacs-4/packages/xowiki/www/portlets/forums-portlet.tcl	20 Dec 2019 16:48:27 -0000	1.4.2.2
@@ -4,12 +4,17 @@
 
 set portal_id [dotlrn::get_portal_id -user_id [ad_conn user_id]]
 set config(shaded_p) f
-set config(package_id) [db_list get_forum_ids "
-  select value from portal_pages, portal_element_map, portal_element_parameters 
-  where portal_id = $portal_id and portal_pages.page_id = portal_element_map.page_id 
-  and portal_element_parameters.element_id = portal_element_map.element_id 
-  and portal_element_map.name = 'forums_portlet' 
-  and key = 'package_id'"]
+set config(package_id) [::xo::dc list -prepare integer get_forum_ids {
+ select value
+   from portal_pages,
+        portal_element_map,
+        portal_element_parameters
+  where portal_id = :portal_id
+    and portal_pages.page_id = portal_element_map.page_id
+    and portal_element_parameters.element_id = portal_element_map.element_id
+    and portal_element_map.name = 'forums_portlet'
+    and key = 'package_id'
+}]
 set cf [array get config]
 # Local variables:
 #    mode: tcl