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.44 -r1.45
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	13 Jan 2005 13:58:25 -0000	1.44
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	8 Aug 2006 21:26:59 -0000	1.45
@@ -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,
@@ -123,25 +132,29 @@
 
     <fullquery name="portal::configure_dispatch.revert_max_page_id_select">
         <querytext>
-            select max(page_id)
+            select page_id
             from portal_pages
             where portal_id = :portal_id
+	    order by sort_key desc
+	    limit 1
         </querytext>
     </fullquery>
 
     <fullquery name="portal::configure_dispatch.revert_min_page_id_select">
         <querytext>
-            select min(page_id)
+            select page_id
             from portal_pages
             where portal_id = :portal_id
+	    order by sort_key
+	    limit 1
         </querytext>
     </fullquery>
 
     <fullquery name="portal::configure_dispatch.revert_move_elements_for_del">
         <querytext>
             select element_id
             from portal_element_map
-            where page_id = :max_page_id
+            where page_id = :page_id
         </querytext>
     </fullquery>
 
@@ -164,25 +177,6 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="portal::configure_dispatch.revert_page_update">
-        <querytext>
-            update portal_pages
-            set pretty_name = :pretty_name,
-                layout_id = :layout_id
-            where page_id = :target_page_id
-        </querytext>
-    </fullquery>
-
-
-    <fullquery name="portal::configure_dispatch.revert_page_update">
-        <querytext>
-            update portal_pages
-            set pretty_name = :pretty_name,
-                layout_id = :layout_id
-            where page_id = :target_page_id
-        </querytext>
-    </fullquery>
-
     <fullquery name="portal::configure_dispatch.hide_all_elements">
         <querytext>
 		update portal_element_map		
@@ -191,7 +185,6 @@
         </querytext>
     </fullquery>
 
-
     <fullquery name="portal::configure_dispatch.revert_get_source_elements">
 	<querytext>
             select region,
@@ -238,11 +231,36 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::configure_dispatch.revert_source_pages">
+        <querytext>
+            select page_id, sort_key
+            from portal_pages
+            where portal_id = :template_id
+        </querytext>
+    </fullquery>
+
+    <fullquery name="portal::configure_dispatch.revert_set_target_page_sort_key">
+        <querytext>
+            update portal_pages
+            set sort_key = :sort_key
+            where page_id = :page_id
+        </querytext>
+    </fullquery>
+
+    <fullquery name="portal::configure_dispatch.revert_target_pages">
+        <querytext>
+            select page_id, sort_key
+            from portal_pages
+            where portal_id = :portal_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="portal::configure_dispatch.update_theme">
         <querytext>
             update portals
             set theme_id = :theme_id
-            where portal_id = :portal_id
+            where portal_id = :portal_id  or template_id=:portal_id
+            
         </querytext>
     </fullquery>
 
@@ -254,6 +272,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
@@ -378,6 +404,24 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::configure_dispatch.revert_get_source_page_id">
+        <querytext>
+            select page_id
+            from portal_pages
+            where portal_id = :template_id
+            and sort_key = :sort_key
+        </querytext>
+    </fullquery>
+
+    <fullquery name="portal::configure_dispatch.revert_page_update">
+        <querytext>
+            update portal_pages
+            set pretty_name = :pretty_name,
+                layout_id = :layout_id
+            where page_id = :target_page_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="portal::add_element_to_region.template_insert">
         <querytext>
             insert into portal_element_map