From fa63ed8eed34d25cf716dbb4383bd5aada3ba0eb Mon Sep 17 00:00:00 2001
From: Douglas Clowes <dcl@ansto.gov.au>
Date: Tue, 17 Jun 2014 17:25:17 +1000
Subject: [PATCH] Dont create control alias unless there is a name to use

---
 .../config/hipadaba/hipadaba_configuration_common.tcl     | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/site_ansto/instrument/config/hipadaba/hipadaba_configuration_common.tcl b/site_ansto/instrument/config/hipadaba/hipadaba_configuration_common.tcl
index 8e5f4887..597860b5 100644
--- 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 ]