From bbabcd53125f8202c61f13dad29c767fb005b22f Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 22 Apr 2011 08:13:47 +0000
Subject: [PATCH] 4Dis text bugfix

git-svn-id: https://svn.fhem.de/fhem/trunk@891 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 0e7e8c8d4..5c2010808 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -244,6 +244,7 @@ CUL_HM_Parse($$)
 
   if($cmd eq "8002") {                       # Ack
     if($shash->{cmdStack}) {                     # Send next msg from the stack
+Log 1, "PopCmd:" . $shash->{cmdStack}->[0];
       CUL_HM_SendCmd($shash, shift @{$shash->{cmdStack}}, 1, 1);
       delete($shash->{cmdStack}) if(!@{$shash->{cmdStack}});
       $shash->{lastStackAck} = 1;
@@ -781,8 +782,7 @@ CUL_HM_Pair(@)
 
   }
 
-  delete($hash->{cmdStack});
-
+  # delete($hash->{cmdStack}); # Why? Disables 4Dis text commands
   if($stn ne "remote") {
     CUL_HM_pushConfig($hash, $id, $src, 0, 0, "0201$idstr");
     CUL_HM_SendCmd($hash, shift @{$hash->{cmdStack}}, 1, 1);
@@ -846,6 +846,7 @@ CUL_HM_PushCmdStack($$)
   my ($hash, $cmd) = @_;
   my @arr = ();
   $hash->{cmdStack} = \@arr if(!$hash->{cmdStack});
+  Log 1, "PushStack: $cmd";
   push(@{$hash->{cmdStack}}, $cmd);
 }