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 -N -r1.22 -r1.23
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	7 Aug 2017 23:48:09 -0000	1.22
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	8 Apr 2018 05:13:01 -0000	1.23
@@ -24,19 +24,19 @@
 } {
 }
 
-if {(![info exists show_buttons_p] || $show_buttons_p eq "")} {
+if {![info exists show_buttons_p] || $show_buttons_p eq ""} {
     set show_buttons_p 0
 }
 
-if {(![info exists show_archived_p] || $show_archived_p eq "")} {
+if {![info exists show_archived_p] || $show_archived_p eq ""} {
     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 { ([info exists community_filter] && $community_filter ne "") } {
+if { [info exists community_filter] && $community_filter ne "" } {
     set show_subtitle_p 0
     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')"
@@ -79,17 +79,18 @@
         set base_level $tree_level
         set new_type_p 1
     }
-    if { [info exists old_simple_community_type] &&
-         $old_simple_community_type ne $simple_community_type } {
+    if { [info exists old_simple_community_type]
+         && $old_simple_community_type ne $simple_community_type
+     } {
         append previous_type_ul_tags [string repeat "</li></ul>" $old_depth]
         set old_depth 0
     }
 
     set depth [expr {$tree_level - $base_level}]
     if { $depth > $old_depth } {
         append intra_type_ul_tags [string repeat "<ul><li>" [expr {$depth - $old_depth}]]
-    }
-    if { $old_depth > $depth } {
+
+    } elseif { $old_depth > $depth } {
         append intra_type_ul_tags [string repeat "</li></ul>" [expr {$old_depth - $depth}]]
         append intra_type_ul_tags "</li><li>"
     }