From b819b09d35981f5b188e25471bd5f7de9e677e05 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 22 Dec 2008 09:27:33 +0000
Subject: [PATCH] Bugfix: attributes get deleted

git-svn-id: https://svn.fhem.de/fhem/trunk@293 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/90_at.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/90_at.pm b/fhem/FHEM/90_at.pm
index 95a12fc07..e2cebd111 100755
--- a/fhem/FHEM/90_at.pm
+++ b/fhem/FHEM/90_at.pm
@@ -81,24 +81,28 @@ at_Exec($)
   my ($name) = @_;
   my ($skip, $disable);
 
+  return if(!$defs{$name}{DEF});           # Just deleted
+
   if(defined($attr{$name})) {
     $skip    = 1 if($attr{$name} && $attr{$name}{skip_next});
     $disable = 1 if($attr{$name} && $attr{$name}{disable});
   }
 
   delete $attr{$name}{skip_next} if($skip);
-  return if(!$defs{$name}{DEF});           # Just deleted
   my (undef, $command) = split("[ \t]+", $defs{$name}{DEF}, 2);
   $command = SemicolonEscape($command);
   AnalyzeCommandChain(undef, $command) if(!$skip && !$disable);
 
   my $count = $defs{$name}{REP};
   my $def = $defs{$name}{DEF};
+
+  my $oldattr = $attr{$name};           # delete removes the attributes too
   CommandDelete(undef, $name);          # Recreate ourselves
 
   if($count) {
     $def =~ s/{\d+}/{$count}/ if($def =~ m/^\+?\*{/);   # Replace the count }
     CommandDefine(undef, "$name at $def");   # Recompute the next TRIGGERTIME
+    $attr{$name} = $oldattr;
   }
 }