Index: openacs-4/packages/dotlrn-portlet/tcl/test/dotlrn-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/tcl/test/Attic/dotlrn-portlet-procs.tcl,v
diff -u -N -r1.1.2.8 -r1.1.2.9
--- openacs-4/packages/dotlrn-portlet/tcl/test/dotlrn-portlet-procs.tcl	12 Apr 2023 15:11:41 -0000	1.1.2.8
+++ openacs-4/packages/dotlrn-portlet/tcl/test/dotlrn-portlet-procs.tcl	14 Feb 2024 10:15:31 -0000	1.1.2.9
@@ -33,8 +33,13 @@
                  on s.parent_community_id = c.community_id
          order by s.community_id, c.community_id
         fetch first 1 rows only
-    }]
+    } -default ""]
 
+    if {$community_id eq ""} {
+        aa_log_result fail "No communities. This test cannot be performed."
+        return
+    }
+
     foreach shaded_p {true false} {
 
         set cf [list \