Dont create control alias unless there is a name to use

2014-06-17 17:25:17 +10:00
parent bcb28e68c1
commit fa63ed8eed
1 changed files with 5 additions and 3 deletions
--- a/site_ansto/instrument/config/hipadaba/hipadaba_configuration_common.tcl
+++ b/site_ansto/instrument/config/hipadaba/hipadaba_configuration_common.tcl
@ -925,9 +925,11 @@ upvar #0 $instDict dictionary
    }
    foreach node [hmatchprop / permlink *] {
      set plink [hgetpropval $node permlink]
-      set target [lindex $plink 0]
-      if {$target == "data_set" && [hgetpropval $node control]} {
-        ::hdb::alias "/control" $node {*}$plink
+      if {[llength $plink] > 1} {
+        set target [lindex $plink 0]
+        if {$target == "data_set" && [hgetpropval $node control]} {
+          ::hdb::alias "/control" $node {*}$plink
+        }
      }
    }
  } message ]