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

PSI UPDATE

Browse Source 
r2720 | ffr | 2008-10-13 15:40:07 +1100 (Mon, 13 Oct 2008) | 2 lines
This commit is contained in:
Ferdi Franceschini
2008-10-13 15:40:07 +11:00
committed by Douglas Clowes
parent f0973c6196 4baffb9b7a
commit 0adecdcec9
183 changed files with 20455 additions and 3661 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
site_ansto/instrument/util/utility.tcl
View File

@@ -1,7 +1,7 @@
# Some useful functions for SICS configuration.
# $Revision: 1.18 $
# $Date: 2008-10-01 04:10:50 $
# $Revision: 1.19 $
# $Date: 2008-10-13 04:40:06 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $
@@ -512,7 +512,7 @@ proc ::utility::hgetplainprop {hpath prop} {
}
proc ::utility::hlistplainprop {hpath} {
if [ catch {
return [string trim [join [split [hlistprop $hpath] =] ]]
return [string trim [join [split [string map {" " _} [hlistprop $hpath]] =] ]]
} message ] {
if {$::errorCode=="NONE"} {return $message}
return -code error $message