Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	7 Apr 2002 06:09:35 -0000	1.5
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	31 May 2002 21:31:18 -0000	1.6
@@ -24,6 +24,20 @@
 }
 
 set user_id [ad_conn user_id]
-db_multirow communities select_communities {}
 
+set comm_type ""
+db_multirow communities select_communities {} {
+
+    ns_log notice "XXX0 $simple_community_type $comm_type"
+
+    if {![string equal $simple_community_type dotlrn_community]} {
+        set comm_type $simple_community_type
+    } else {
+        set simple_community_type $comm_type
+    }
+
+    ns_log notice "XXX1 $simple_community_type $comm_type"
+
+}
+
 ad_return_template