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

fix fix_stick_sensors

Browse Source
This commit is contained in:
l_samenv
2023-10-30 14:56:11 +01:00
parent 325412e767
commit e5063b5693
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tcl/seacom.tcl
View File

@ -655,7 +655,7 @@ proc stick_sensors {sensor1 sensor2} {
proc fix_stick_sensors {} { proc fix_stick_sensors {} {
# fix stick sensors # fix stick sensors
foreach path {/tt/ts/curve /tt/ts_2/curve} { foreach path {/tt/ts/curve /tt/ts_2/curve} {
set curv [silent "" sctval $path] set curv [sctval $path ""]
if {$curv ne ""} { if {$curv ne ""} {
hset $path $curv hset $path $curv
} }