Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	25 Sep 2007 15:22:34 -0000	1.22
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	20 Jan 2008 16:19:52 -0000	1.23
@@ -271,6 +271,19 @@
 }
 
 
+ad_proc -public content::revision::export_xml {
+    -revision_id:required
+} {
+    @param revision_id
+
+    @return NUMBER(38)
+} {
+    return [package_exec_plsql -var_list [list \
+        [list revision_id $revision_id ] \
+    ] content_revision export_xml]
+}
+
+
 ad_proc -public content::revision::get_number {
     -revision_id:required
 } {
@@ -284,6 +297,25 @@
 }
 
 
+ad_proc -public content::revision::import_xml {
+    -item_id:required
+    -revision_id:required
+    -doc_id:required
+} {
+    @param item_id
+    @param revision_id
+    @param doc_id
+
+    @return NUMBER(38)
+} {
+    return [package_exec_plsql -var_list [list \
+        [list item_id $item_id ] \
+        [list revision_id $revision_id ] \
+        [list doc_id $doc_id ] \
+    ] content_revision import_xml]
+}
+
+
 ad_proc -public content::revision::index_attributes {
     -revision_id:required
 } {
@@ -334,7 +366,25 @@
 }
 
 
+ad_proc -public content::revision::read_xml {
+    -item_id:required
+    -revision_id:required
+    -clob_loc:required
+} {
+    @param item_id
+    @param revision_id
+    @param clob_loc
 
+    @return NUMBER
+} {
+    return [package_exec_plsql -var_list [list \
+        [list item_id $item_id ] \
+        [list revision_id $revision_id ] \
+        [list clob_loc $clob_loc ] \
+    ] content_revision read_xml]
+}
+
+
 ad_proc -public content::revision::replace {
     -revision_id:required
     -search:required
@@ -387,6 +437,29 @@
 }
 
 
+ad_proc -public content::revision::write_xml {
+    -revision_id:required
+    -clob_loc:required
+} {
+    @param revision_id
+    @param clob_loc
+
+    @return NUMBER
+} {
+    return [package_exec_plsql -var_list [list \
+        [list revision_id $revision_id ] \
+        [list clob_loc $clob_loc ] \
+    ] content_revision write_xml]
+}
+
+
+ad_proc -public content::revision::update_attribute_index {
+} {
+} {
+    return [package_exec_plsql content_revision update_attribute_index]
+}
+
+
 ad_proc -public content::revision::get_cr_file_path {
     -revision_id 
 } {