From 7970a94acf1e51e9689959d86a359ee0fdc94713 Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Wed, 13 Jan 2010 16:12:16 +1100
Subject: [PATCH] Remove obsolete hlistplainprop procedure.

r2861 | ffr | 2010-01-13 16:12:16 +1100 (Wed, 13 Jan 2010) | 2 lines
---
 site_ansto/instrument/util/check/query_sics.tcl | 2 +-
 site_ansto/instrument/util/utility.tcl          | 8 --------
 2 files changed, 1 insertion(+), 9 deletions(-)

diff --git a/site_ansto/instrument/util/check/query_sics.tcl b/site_ansto/instrument/util/check/query_sics.tcl
index 5c863798..007457aa 100644
--- a/site_ansto/instrument/util/check/query_sics.tcl
+++ b/site_ansto/instrument/util/check/query_sics.tcl
@@ -77,7 +77,7 @@ proc _query_nameval {query nameval_list} {
 }
 
 proc query_propval {hp query} {
-    return [ query_nameval $query [::utility::hlistplainprop $hp] ]
+    return [ query_nameval $query [hlistprop $hp tcllist] ]
 }
 proc query_attval {sobj query} {
     return [ query_nameval $query [attlist $sobj] ]
diff --git a/site_ansto/instrument/util/utility.tcl b/site_ansto/instrument/util/utility.tcl
index b8d9ddf0..f67deeaf 100644
--- a/site_ansto/instrument/util/utility.tcl
+++ b/site_ansto/instrument/util/utility.tcl
@@ -530,14 +530,6 @@ proc ::utility::hgetplainprop {hpath prop} {
   }
   return $propStr
 }
-proc ::utility::hlistplainprop {hpath} {
-  if [ catch {
-    set propStr [string trim [join [split [string map {" " _} [regsub {[^
]*= *
} [hlistprop $hpath] {} ]] =] ]]
-  } message ] {
-    return -code error "([info level 0]) $message"
-  }
-  return $propStr
-}
 
 proc ::utility::GetUID {userName} {
   if [ catch {