Index: openacs-4/packages/dotlrn/www/communities-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/communities-chunk.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/dotlrn/www/communities-chunk.tcl	29 Jun 2018 17:27:19 -0000	1.17
+++ openacs-4/packages/dotlrn/www/communities-chunk.tcl	3 Sep 2024 15:37:37 -0000	1.18
@@ -34,10 +34,10 @@
 set user_id [ad_conn user_id]
 
 set communities_p [db_string communities_p {
-    select exists (
-                   select 1 from dotlrn_communities_not_closed
-                   where (:community_type is null or community_type = :community_type)
-                   ) from dual
+    select case when exists (
+     select 1 from dotlrn_communities_not_closed
+     where (:community_type is null or community_type = :community_type)
+    ) then 1 else 0 end from dual
 }]
 
 set filter_bar [ad_dimensional [list [list filter "[_ dotlrn.Memberships_1]" select_all_memberships \