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

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

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