Index: openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl	29 May 2003 18:49:01 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl	15 Oct 2003 03:27:18 -0000	1.8
@@ -84,3 +84,18 @@
 #   ns_log notice "xml_node_get_content [$node_id nodeName] --> [$node_id text]"
     return [$node_id text]
 }
+
+# Get Node Type
+proc xml_node_get_type {node_id} {
+    return [$node_id nodeType]
+}
+
+# Render the doc
+proc xml_doc_render {doc_id {indent_p f}} {
+    if { [string is true $indent_p] } {
+        return [$doc_id asXML]
+    } else {
+        return [$doc_id asXML -indent none]
+    }
+}
+