Honor PREC with field readout, too. One can override with -prec.

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
         }