From d1170397c2988e738d986e258db52cba0ff62b7a Mon Sep 17 00:00:00 2001
From: l_samenv <l_samenv@samenv.psi.ch>
Date: Thu, 27 Jun 2024 14:52:25 +0200
Subject: [PATCH] fix issue when unplug and plug happen within wshort time

see issue with MA10 on ZEBRA at 2024-04-26
http://samenv.psi.ch:8080/sample_environment/437
---
 tcl/drivers/ccu4.tcl | 1 -
 tcl/seacom.tcl       | 4 ++++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/tcl/drivers/ccu4.tcl b/tcl/drivers/ccu4.tcl
index 576a6c0..a4cabaa 100644
--- a/tcl/drivers/ccu4.tcl
+++ b/tcl/drivers/ccu4.tcl
@@ -649,7 +649,6 @@ clientlog "SELECTED $newdevice"
         device makeitem action "selected on touch display"
       }
       # set device state to "loading"
-      clientput loading
       sct send cds=2
     } elseif {$deviceaction == 3} {
       # clientput "plugged [string tolower $newdevice] but autodevice off"
diff --git a/tcl/seacom.tcl b/tcl/seacom.tcl
index 31ea428..cd1c0da 100644
--- a/tcl/seacom.tcl
+++ b/tcl/seacom.tcl
@@ -1786,6 +1786,10 @@ clientput "CONFIG $device/$stick/$addons"
     } else {
       if {[result device name] ne "none" && $act eq "plugged"} {
         clientlog "unplugged time too short [result device name] -> $new"
+        device makeitem confirmed none
+        catch {samenv -q none} msg
+        clientput $msg
+        return
       } else {
         device makeitem confirmed $new
         clientput "LOAD $new $act"