Index: openacs-4/packages/edit-this-page/tcl/etp-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/tcl/etp-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/edit-this-page/tcl/etp-procs-oracle.xql	24 Sep 2001 17:24:13 -0000	1.1
+++ openacs-4/packages/edit-this-page/tcl/etp-procs-oracle.xql	31 Oct 2001 05:13:54 -0000	1.2
@@ -63,5 +63,86 @@
 	     where node_id = site_node.node_id(:url_stub, null)
 </querytext>
 </fullquery>
+
+<fullquery name="etp::make_page.page_exists">      
+<querytext>
+	    select 1 from cr_items
+	     where parent_id = etp.get_folder_id(:package_id)
+	       and name = :name
+</querytext>
+</fullquery>
+
+<fullquery name="etp::get_pa.get_page_attributes">      
+<querytext>
+	select i.item_id, i.name, r.revision_id, r.title, 
+	       r.description, r.publish_date, r.content $extended_attributes
+	  from cr_items i, cr_revisions r
+	 where i.parent_id = etp.get_folder_id(:package_id)
+	   and i.name = :name
+	   and i.item_id = r.item_id
+	   and r.revision_id = i.live_revision
+</querytext>
+</fullquery>
  
+<fullquery name="etp::get_pa.get_page_attributes_other_revision">      
+<querytext>
+	select i.item_id, i.name, r.revision_id, r.title, 
+	       r.description, r.publish_date, r.content $extended_attributes
+	  from cr_items i, cr_revisions r
+	 where i.parent_id = etp.get_folder_id(:package_id)
+	   and i.name = :name
+	   and i.item_id = r.item_id
+	   and r.revision_id = :revision_id
+</querytext>
+</fullquery>
+
+<fullquery name="etp::get_latest_revision_id.get_latest_revision_id">
+<querytext>
+	select max(revision_id) as revision_id
+          from cr_revisions r, cr_items i
+         where i.parent_id = etp.get_folder_id(:package_id)
+           and i.name = :name
+           and i.item_id = r.item_id
+</querytext>
+</fullquery>
+
+<fullquery name="etp::get_live_revision_id.get_live_revision_id">
+<querytext>
+	select live_revision as revision_id
+          from cr_items i
+         where i.parent_id = etp.get_folder_id(:package_id)
+           and i.name = :name
+</querytext>
+</fullquery>
+
+<fullquery name="etp::get_content_items.get_content_items">
+<querytext>
+     select * from (
+	select $columns
+          from cr_items i 
+                 left join 
+               cr_revisions r
+            on (i.live_revision = r.revision_id)
+         where i.parent_id = etp.get_folder_id(:package_id)
+	   and i.name != 'index'
+     ) as attributes
+     where $extra_where_clauses
+     order by $orderby
+     $limit_clause
+</querytext>
+</fullquery>
+
+<fullquery name="etp::get_subtopics.get_subtopics">
+<querytext>
+select child.name, child.node_id, child.object_id as package_id,
+                   etp.package_title(child.object_id) as title,
+                   etp.package_description(child.object_id) as description
+  from site_nodes parent, site_nodes child, apm_packages p
+ where parent.object_id = :package_id
+   and child.parent_id = parent.node_id
+   and child.object_id = p.package_id
+   and p.package_key = 'edit-this-page'
+</querytext>
+</fullquery>
+ 
 </queryset>