linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add the <value></value> to regular getgumtreexml

Browse Source
This commit is contained in:
Douglas Clowes
2014-05-19 11:03:19 +10:00
parent 92d3acb5d5
commit 1a28faabbf
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
site_ansto/instrument/gumxml.tcl
View File

@ -61,6 +61,10 @@ proc make_nodes {path result indent} {
} }
if {"$control" == "true"} { if {"$control" == "true"} {
append result "$prefix<component id=\"$nodename\" dataType=\"$type\">\n" 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] { foreach p [property_elements $path $newIndent] {
append result $p append result $p
} }