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 -N -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl	18 May 2004 16:43:56 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl	22 Aug 2005 16:02:45 -0000	1.10
@@ -79,6 +79,11 @@
     return [$node_id getAttribute $attribute_name $default]
 }
 
+# Set Node Attribute
+proc xml_node_set_attribute {node_id attribute_name value} {
+  $node_id setAttribute $attribute_name $value
+}
+
 # Get Content
 proc xml_node_get_content {node_id} {
 #   ns_log notice "xml_node_get_content [$node_id nodeName] --> [$node_id text]"