Index: openacs-4/packages/cms/www/modules/items/export-xml.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/export-xml.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/items/export-xml.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/items/export-xml.tcl	24 May 2001 01:30:52 -0000	1.2
@@ -2,18 +2,16 @@
   revision_id -datatype integer
 }
 
-set db [template::get_db_transaction]
+db_transaction {
+    set doc_id [db_exec_plsql export_revision "
+                             begin
+                                 :1 := content_revision.export_xml(:revision_id);
+                             end;"]
 
-ns_ora exec_plsql_bind $db "begin
-  :doc_id := content_revision.export_xml(:revision_id);
-end;" doc_id
+    template::query get_xml_doc xml_doc onevalue "
+                select doc from cr_xml_docs where doc_id = :doc_id
+                "
+}
 
-template::query xml_doc onevalue "
-  select doc from cr_xml_docs where doc_id = :doc_id
-"
-
-template::end_db_transaction
-template::release_db_handle
-
 ns_return 200 text/xml $xml_doc