Index: openacs-4/packages/dotlrn/www/one-community-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-type.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/one-community-type.tcl	6 Oct 2001 18:24:42 -0000	1.1
+++ openacs-4/packages/dotlrn/www/one-community-type.tcl	7 Oct 2001 19:21:08 -0000	1.2
@@ -28,8 +28,20 @@
 # communities should be a data source
 template::multirow create communities community_id community_type pretty_name description url
 
+# Loop and create the data source (I am very unhappy with db_multirow. VERY - bma)
 foreach comm $list_of_communities {
     template::multirow append communities [lindex $comm 0] [lindex $comm 1] [lindex $comm 2] [lindex $comm 3] [lindex $comm 4]
 }
 
+# Load all active communities for this community type
+set list_of_active_communities [dotlrn_community::get_active_communities $community_type]
+
+# data source
+template::multirow create active_communities community_id community_type pretty_name description url
+
+# Loop and create the data source (I am very unhappy with db_multirow. VERY - bma)
+foreach comm $list_of_active_communities {
+    template::multirow append active_communities [lindex $comm 0] [lindex $comm 1] [lindex $comm 2] [lindex $comm 3] [lindex $comm 4]
+}
+
 ad_return_template