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.42.6.3 -r1.42.6.4
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	9 Aug 2004 05:32:32 -0000	1.42.6.3
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	15 Jul 2005 19:01:35 -0000	1.42.6.4
@@ -80,6 +80,15 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::configure.get_page_info">
+        <querytext>
+            select pretty_name as pretty_name_unlocalized,
+                   hidden_p
+            from portal_pages
+            where page_id = :page_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="portal::configure.portal_and_page_info_select">
         <querytext>
             select portals.name,
@@ -254,6 +263,14 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::configure_dispatch.toggle_tab_visibility">
+        <querytext>
+            update portal_pages
+            set hidden_p = case when hidden_p = 't' then 'f' else 't' end
+            where page_id = :page_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="portal::configure_dispatch.toggle_pinned_update_pin">
         <querytext>
             update portal_element_map