From d4a2b7c4412d2dbbcb709a2bf647f96388c038dc Mon Sep 17 00:00:00 2001
From: zimoch <zimoch>
Date: Mon, 2 Oct 2006 12:25:31 +0000
Subject: [PATCH] Honor PREC with field readout, too. One can override with
 -prec.

---
 ca | 16 +++-------------
 1 file changed, 3 insertions(+), 13 deletions(-)

diff --git a/ca b/ca
index 3376f62..43ad052 100755
--- a/ca
+++ b/ca
@@ -2,12 +2,12 @@
 
 # ca* by Dirk Zimoch
 # $Source: /cvs/G/EPICS/App/scripts/ca,v $
-# $Date: 2006/03/29 09:20:07 $
+# $Date: 2006/10/02 12:25:31 $
 
 regsub -all {\$} {ca* by Dirk Zimoch
 $Source: /cvs/G/EPICS/App/scripts/ca,v $
-$Revision: 1.13 $
-$Date: 2006/03/29 09:20:07 $} {} version
+$Revision: 1.14 $
+$Date: 2006/10/02 12:25:31 $} {} version
 
 set auto_path [concat $env(SLSBASE)/lib/tcl $auto_path]
 
@@ -92,16 +92,6 @@ proc formatval {channel {value {}} {sevr {}} {stat {}} {time {}}} {
         set channel ""
         set EGU ""
     } else {
-        if [string match *.* $channel] {
-            if [info exists PREC] {
-                if [info exists prec] {
-                    set PREC $prec
-                } else {
-	            unset PREC
-                }
-            }
-	    set EGU ""
-        }
         if {[info exists PREC] && [info exists prec]} {
             set PREC $prec
         }