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.11 -r1.12
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	4 Dec 2002 09:51:04 -0000	1.11
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	29 Jun 2004 10:18:00 -0000	1.12
@@ -28,9 +28,19 @@
     set show_buttons_p 0
 }
 
+if {![exists_and_not_null show_archived_p]} {
+    set show_archived_p 0
+}
+
 set user_id [ad_conn user_id]
 set user_can_browse_p [dotlrn::user_can_browse_p -user_id $user_id]
 
+if { $show_archived_p } {
+    set archived_clause ""
+} else {
+    set archived_clause "and archived_p='f'"
+}
+
 set comm_type ""
 db_multirow communities select_communities {} {
     set tree_level [expr $tree_level - $community_type_level]