Index: openacs-4/packages/edit-this-page/www/etp-setup-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp-setup-2-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/edit-this-page/www/etp-setup-2-oracle.xql	31 Oct 2001 04:46:43 -0000	1.1
@@ -0,0 +1,17 @@
+<?xml version="1.0"?>
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="create_folder">
+<querytext>
+select content_folder.new(:name, :title, '', etp_get_folder_id(:parent_package_id));
+</querytext>
+</fullquery>
+ 
+<fullquery name="get_section_name">
+<querytext>
+select acs_object.name(:package_id) as title
+</querytext>
+</fullquery>
+
+</queryset>
Index: openacs-4/packages/edit-this-page/www/etp-swap-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/Attic/etp-swap-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/edit-this-page/www/etp-swap-oracle.xql	31 Oct 2001 04:55:52 -0000	1.1
@@ -0,0 +1,32 @@
+<?xml version="1.0"?>
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="get_prev_key">
+<querytext>
+  select tree_sortkey, item_id
+    from cr_items
+   where parent_id = etp.get_folder_id(:package_id)
+     and tree_sortkey < :sort_key
+   order by tree_sortkey desc
+</querytext>
+</fullquery>
+ 
+<fullquery name="get_all_keys">
+<querytext>
+  select tree_sortkey, item_id
+    from cr_items
+   where tree_sortkey >= :prev_sort_key
+   order by tree_sortkey
+</querytext>
+</fullquery>
+
+<fullquery name="update_key">
+<querytext>
+  update cr_items
+     set tree_sortkey = :new_sortkey
+   where item_id = :item_id
+</querytext>
+</fullquery>
+
+</queryset>
Index: openacs-4/packages/edit-this-page/www/etp-symlink-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp-symlink-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/edit-this-page/www/etp-symlink-oracle.xql	31 Oct 2001 04:56:26 -0000	1.1
@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="create_symlink">
+<querytext>
+    select etp.create_symlink(:package_id, :target_id);
+</querytext>
+</fullquery>
+
+<fullquery name="all_pages">
+<querytext>
+	select i.item_id, i.name, etp.get_title(i.item_id, null) as title,
+               repeat('&nbsp;',(tree_level(i.tree_sortkey) - 1) * 4) as indent
+          from cr_items i, acs_objects o
+         where i.item_id = o.object_id
+           and o.object_type in ('content_item', 'content_folder')
+           and i.name != 'index'
+           and i.tree_sortkey not like (select tree_sortkey 
+                                          from cr_items
+                                         where item_id = -400) || '%'
+         order by i.tree_sortkey
+</querytext>
+</fullquery>
+ 
+</queryset>