Merge branch 'master' of gitlab.psi.ch-samenv:samenv/sea

2022-10-24 14:46:49 +02:00
parent 8df949dac1 e91a753b87
commit c687eff0b8
1 changed files with 7 additions and 1 deletions
--- a/tcl/drivers/ccu4.tcl
+++ b/tcl/drivers/ccu4.tcl
@ -539,7 +539,13 @@ proc ccu4::update {} {
      set errvar [silent "" hgetpropval [sct]/$name errvar]
      if {$errvar ne ""} {
        set errval [hvali [sct]/$errvar]
-        if {$errval > 0} {
+        if {$errval == 1} {
+          # sens warm
+          updateval [sct]/$name -11
+        } elseif {$errval == 3} {
+          # timeout
+          updateval [sct]/$name 111
+        } elseif {$errval > 0} {
          hsetprop [sct]/$name geterror [lindex [split [hgetpropval [sct]/$errvar enum] ,] $errval]
          hupdate [sct]/$name $value
        } else {