Index: openacs-4/packages/new-portal/tcl/portal-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.xql,v
diff -u -r1.48 -r1.49
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	20 Dec 2007 13:49:54 -0000	1.48
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	11 Mar 2008 19:31:30 -0000	1.49
@@ -808,4 +808,18 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::portlet_visible_p.portlet_visible">
+        <querytext>
+            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'
+            order by portal_element_map.pretty_name
+        </querytext>
+    </fullquery>
+    
 </queryset>
+