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 -N -r1.42.6.1 -r1.42.6.2
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	22 Jul 2004 05:47:00 -0000	1.42.6.1
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	28 Jul 2004 00:06:26 -0000	1.42.6.2
@@ -183,14 +183,30 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="portal::configure_dispatch.hide_all_element">
+    <fullquery name="portal::configure_dispatch.hide_all_elements">
         <querytext>
 		update portal_element_map		
 		set  state = 'hidden'
 		 where page_id = :target_page_id
         </querytext>
     </fullquery>
 
+
+    <fullquery name="portal::configure_dispatch.revert_get_source_elements">
+	<querytext>
+            select region,
+                   sort_key,
+                   state,
+                   pd.datasource_id as datasource_id,
+                   pd.name as name,
+                   pem.pretty_name as pretty_name
+            from portal_element_map pem,
+                 portal_datasources pd
+            where pem.page_id = :source_page_id
+            and pem.datasource_id = pd.datasource_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="portal::configure_dispatch.revert_get_target_element">
         <querytext>
             select element_id