Index: openacs-4/packages/acs-content-repository/tcl/filter-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/filter-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-content-repository/tcl/filter-procs-oracle.xql	14 Sep 2001 04:53:02 -0000	1.3
+++ openacs-4/packages/acs-content-repository/tcl/filter-procs-oracle.xql	21 Sep 2001 05:01:38 -0000	1.4
@@ -32,6 +32,30 @@
       </querytext>
 </fullquery>
 
+<fullquery name="content::get_content_value.gcv_get_revision_id">
+	<querytext>
+
+	  begin
+	    content_revision.to_temporary_clob(:revision_id);
+	  end;
+
+	</querytext>
+</fullquery>
+
+<fullquery name="content::get_content_value.gcv_get_previous_content">
+	<querytext>
+
+    select 
+      content
+    from 
+      cr_content_text
+    where 
+      revision_id = :revision_id
+
+	</querytext>
+</fullquery>
+
+
 <fullquery name="content::init.get_item_info">      
       <querytext>
 
@@ -62,6 +86,7 @@
       <querytext>
 
         select 
+          (select live_revision from cr_items where item_id = content_item.get_template(:item_id, :context)) as template_id,
           content_template.get_path(
           content_item.get_template(:item_id, :context),:template_root) as template_url 
         from