From dbc36222e86ffe3c5fcceab9288687527db70356 Mon Sep 17 00:00:00 2001
From: Jing Chen <jgn@ansto.gov.au>
Date: Wed, 4 Jan 2012 11:53:31 +1100
Subject: [PATCH] fix all motors before init r3327 | jgn | 2012-01-04 11:53:31
 +1100 (Wed, 04 Jan 2012) | 1 line

---
 .../instrument/pelican/pelican_configuration.tcl       | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/site_ansto/instrument/pelican/pelican_configuration.tcl b/site_ansto/instrument/pelican/pelican_configuration.tcl
index a4272991..c52bc2bc 100644
--- a/site_ansto/instrument/pelican/pelican_configuration.tcl
+++ b/site_ansto/instrument/pelican/pelican_configuration.tcl
@@ -19,6 +19,7 @@ source $cfPath(hipadaba)/hipadaba_configuration.tcl
 fileeval $cfPath(source)/source.tcl
 fileeval $cfPath(motors)/motor_configuration.tcl
 fileeval $cfPath(motors)/positmotor_configuration.tcl
+#fileeval $cfPath(motors)/extraconfig.tcl
 fileeval $cfPath(plc)/plc.tcl
 fileeval $cfPath(counter)/counter.tcl
 fileeval $cfPath(hmm)/hmm_configuration.tcl
@@ -34,6 +35,15 @@ source gumxml.tcl
 ::utility::mkVar ::anticollider::protect_detector text manager protect_detector false detector true false
 ::anticollider::protect_detector "true"
 
+# fix all motors
+foreach m [sicslist type motor] {
+   if {$m == "motor" || $m == "dummy_motor"} {
+       # skipit
+   } else {
+       clientput fix $m position
+       $m fixed 1
+   }
+}
 
 server_init
 ###########################################