Index: openacs-4/packages/acs-subsite/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-subsite/www/index.tcl	22 Sep 2003 08:21:50 -0000	1.10
+++ openacs-4/packages/acs-subsite/www/index.tcl	22 Sep 2003 08:40:04 -0000	1.11
@@ -50,4 +50,8 @@
 set group_member_p [group::member_p -group_id $group_id -user_id $user_id]
 set group_admin_p [group::admin_p -group_id $group_id -user_id $user_id]
 
+set main_site_p [string equal [ad_conn package_url] "/"]
+
 set can_join_p [expr !$group_admin_p && $group_member_p == 0 && $user_id != 0 && ![string equal $group_join_policy "closed"]]
+
+set communities_label [ad_decode $main_site_p 1 "Communities" "Subcommunities"]