From 1a28faabbf1ed9b49371023436d5c2ed78defeaf Mon Sep 17 00:00:00 2001
From: Douglas Clowes <dcl@ansto.gov.au>
Date: Mon, 19 May 2014 11:03:19 +1000
Subject: [PATCH] Add the <value></value> to regular getgumtreexml

---
 site_ansto/instrument/gumxml.tcl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/site_ansto/instrument/gumxml.tcl b/site_ansto/instrument/gumxml.tcl
index 8b430abd..bddf450a 100644
--- a/site_ansto/instrument/gumxml.tcl
+++ b/site_ansto/instrument/gumxml.tcl
@@ -61,6 +61,10 @@ proc make_nodes {path result indent} {
   }
   if {"$control" == "true"} {
     append result "$prefix<component id=\"$nodename\" dataType=\"$type\">\n"
+    if {[string compare -nocase $type "none"] != 0} {
+      set value [encode [hval $path]]
+      append result "$prefix  <value>$value</value>\n"
+    }
     foreach p [property_elements $path $newIndent] {
       append result $p
     }