linse/sea
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
l_samenv
2022-10-24 14:46:49 +02:00
parent 8df949dac1 e91a753b87
commit c687eff0b8
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
tcl/drivers/ccu4.tcl
View File

@ -539,7 +539,13 @@ proc ccu4::update {} {
set errvar [silent "" hgetpropval [sct]/$name errvar] set errvar [silent "" hgetpropval [sct]/$name errvar]
if {$errvar ne ""} { if {$errvar ne ""} {
set errval [hvali [sct]/$errvar] 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] hsetprop [sct]/$name geterror [lindex [split [hgetpropval [sct]/$errvar enum] ,] $errval]
hupdate [sct]/$name $value hupdate [sct]/$name $value
} else { } else {