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.13.2.4 -r1.13.2.5
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	14 May 2006 00:36:27 -0000	1.13.2.4
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	18 May 2006 00:39:34 -0000	1.13.2.5
@@ -32,12 +32,15 @@
     set show_archived_p 0
 }
 
+#DRB: This is a hack that depends on .LRN having clubs and classes.  Done quickly for
+#theme-selva for .LRN 2.2.
+
 set community_type_clause ""
 if { [exists_and_not_null community_filter] } {
     if { $community_filter eq "class_instances" } {
         set community_type_clause "and dotlrn_communities_all.community_type not in ('dotlrn_community', 'dotlrn_club', 'dotlrn_pers_community')"
     } elseif { $community_filter eq "communities" } {
-        set community_type_clause "and dotlrn_communities_all.community_type in ('dotlrn_community', 'dotlrn_club', 'dotlrn_pers_community')"
+        set community_type_clause "and dotlrn_communities_all.community_type in ('dotlrn_club', 'dotlrn_pers_community')"
     }
 }