Index: openacs-4/packages/cms/tcl/form-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/tcl/form-procs.xql	12 Jul 2001 06:37:26 -0000	1.3
+++ openacs-4/packages/cms/tcl/form-procs.xql	29 Jul 2001 17:26:29 -0000	1.4
@@ -27,10 +27,10 @@
 
 <fullquery name="insert_revision_form">
 	<querytext>
-              insert into $last_table (
-                [join $columns ", "]
+              insert into $__last_table (
+                [join $__columns ", "]
               ) values (
-                [join $values ", "]
+                [join $__values ", "]
               )"
 	</querytext>
 </fullquery>
@@ -54,10 +54,10 @@
 
 <fullquery name="process_insert_statement">
 	<querytext>
-              insert into $last_table (
-                [join $columns ", "]
+              insert into $__last_table (
+                [join $__columns ", "]
               ) values (
-                [join $values ", "]
+                [join $__values ", "]
               )"
 	</querytext>
 </fullquery>
@@ -193,4 +193,17 @@
 	</querytext>
 </fullquery>
 
+<fullquery name="gcv_get_previous_content">
+	<querytext>
+
+    select 
+      content
+    from 
+      cr_content_text
+    where 
+      revision_id = :revision_id
+
+	</querytext>
+</fullquery>
+
 </queryset>
\ No newline at end of file