diff --git a/fhem/FHEM/98_DOIF.pm b/fhem/FHEM/98_DOIF.pm
index 2fa6e8d76..d68c40d0f 100644
--- a/fhem/FHEM/98_DOIF.pm
+++ b/fhem/FHEM/98_DOIF.pm
@@ -2837,7 +2837,7 @@ CmdDoIfPerl($$)
my $ret;
my $err="";
my $i=0;
-
+ $hs=$hash;
#def modify
if ($init_done)
{
@@ -3296,6 +3296,7 @@ sub DOIF_ExecTimer
my $subname=${$timer}->{subname};
my $param=${$timer}->{param} if (defined ${$timer}->{param});
$hs=$hash;
+ delete ($::defs{$name}{READINGS}{"timer_$timername"});
if (!defined ($param)) {
eval ("package DOIF;$subname");
} else {
@@ -3306,7 +3307,6 @@ sub DOIF_ExecTimer
::Log3 ($::defs{$name}{NAME},1 , "$name error in $subname: $@");
::readingsSingleUpdate ($hash, "error", "in $subname: $@",0);
}
- delete ($::defs{$name}{READINGS}{"timer_$timername"});
}
sub set_Exec
@@ -6069,7 +6069,7 @@ subs {
set_Exec ("$window",1800,"logwin",$window); # setze Timer auf 30 Minuten für eine wiederholte Meldung
}
}
-{ if (["_window$:open"]) {set_Exec ("$DEVICE",600,'logwin("$DEVICE")')}} # wenn, Fenster geöffnet wird, dann setze Timer auf Funktion zum Loggen namens "logwin"
+{ if (["_window$:open"]) {set_Exec ("$DEVICE",600,'logwin',"$DEVICE")}} # wenn, Fenster geöffnet wird, dann setze Timer auf Funktion zum Loggen namens "logwin"
{ if (["_window$:closed"]) {del_Exec ("$DEVICE")}} # wenn, Fenster geschlossen wird, dann lösche Timer