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.15 -r1.16
--- openacs-4/packages/dotlrn/www/communities-chunk.tcl	15 Sep 2017 07:28:53 -0000	1.15
+++ openacs-4/packages/dotlrn/www/communities-chunk.tcl	13 Jun 2018 16:27:20 -0000	1.16
@@ -23,7 +23,7 @@
 } -query {
     {filter "select_all_memberships"}
 } -properties {
-    n_communities:onevalue
+    communities_p:onevalue
     communities:multirow
 }
 
@@ -33,26 +33,22 @@
 
 set user_id [ad_conn user_id]
 
-if {$community_type ne ""} {
-    set n_communities [db_string select_all_communities_count_by_type {}]
-} else {
-    set n_communities [db_string select_all_communities_count {}]
-}
+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
+}]
 
 set filter_bar [ad_dimensional [list [list filter "[_ dotlrn.Memberships_1]" select_all_memberships \
         {
             {select_all_memberships current {}}
             {select_all_non_memberships join {}}
         }]]]
 
-if {$community_type ne ""} {
-    append filter "_by_type"
-}
-
-db_multirow -extend {query referer} communities $filter {} {
-    if {(![info exists referer] || $referer eq "")} {
-	set referer "./"
-    }
+db_multirow -extend {query url referer} communities $filter {} {
+    set referer "./"
+    set url [dotlrn_community::get_community_url $community_id]
     set query $filter
 }
 
@@ -82,9 +78,6 @@
 	}
     } 
 
-ad_return_template
-
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4