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

Dont create control alias unless there is a name to use

Browse Source
This commit is contained in:
Douglas Clowes
2014-06-17 17:25:17 +10:00
parent bcb28e68c1
commit fa63ed8eed
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
site_ansto/instrument/config/hipadaba/hipadaba_configuration_common.tcl
View File

@ -925,9 +925,11 @@ upvar #0 $instDict dictionary
} }
foreach node [hmatchprop / permlink *] { foreach node [hmatchprop / permlink *] {
set plink [hgetpropval $node permlink] set plink [hgetpropval $node permlink]
set target [lindex $plink 0] if {[llength $plink] > 1} {
if {$target == "data_set" && [hgetpropval $node control]} { set target [lindex $plink 0]
::hdb::alias "/control" $node {*}$plink if {$target == "data_set" && [hgetpropval $node control]} {
::hdb::alias "/control" $node {*}$plink
}
} }
} }
} message ] } message ]