Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -N -r1.216.2.6 -r1.216.2.7
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	24 Aug 2020 12:06:21 -0000	1.216.2.6
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	1 Sep 2020 17:24:47 -0000	1.216.2.7
@@ -2489,7 +2489,16 @@
 
 } {
     set ds_id [get_datasource_id $portlet_name]
-    return [db_string portlet_visible {}]
+    return [db_string portlet_visible {
+        select case when exists (select 1
+                       from portal_element_map,
+                       portal_pages
+                       where portal_pages.portal_id = :portal_id
+                       and portal_element_map.datasource_id = :ds_id
+                       and portal_element_map.page_id = portal_pages.page_id
+                       and portal_element_map.state <> 'hidden') then 1 else 0 end
+        from dual
+    }]
 }
 
 # Local variables: