From d9b610e9250f73904b5c9230fdffa79b4bbecbc3 Mon Sep 17 00:00:00 2001
From: martinp876 <martinp876@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 16 Sep 2013 08:10:30 +0000
Subject: [PATCH] hmlan state aenderung

git-svn-id: https://svn.fhem.de/fhem/trunk@3912 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_HMLAN.pm  | 11 +++++------
 fhem/FHEM/98_HMinfo.pm | 16 ++++++++--------
 2 files changed, 13 insertions(+), 14 deletions(-)

diff --git a/fhem/FHEM/00_HMLAN.pm b/fhem/FHEM/00_HMLAN.pm
index d7e9d67c5..08d7ebeb7 100755
--- a/fhem/FHEM/00_HMLAN.pm
+++ b/fhem/FHEM/00_HMLAN.pm
@@ -100,6 +100,7 @@ sub HMLAN_Define($$) {#########################################################
   @{$hash->{helper}{q}{apIDs}} = \@arr;
   
   HMLAN_condUpdate($hash,253);#set disconnected
+  $hash->{STATE} = "disconnected";
   my $ret = DevIo_OpenDev($hash, 0, "HMLAN_DoInit");
   return $ret;
 }
@@ -161,7 +162,6 @@ sub HMLAN_Set($@) {############################################################
         if(!$arg || $arg !~ m/^\d+$/);
     $hash->{hmPair} = 1;
     InternalTimer(gettimeofday()+$arg, "HMLAN_RemoveHMPair", "hmPairForSec:".$hash, 1);
-
   } 
   elsif($type eq "hmPairSerial") { ################################
     return "Usage: set $name hmPairSerial <10-character-serialnumber>"
@@ -173,9 +173,8 @@ sub HMLAN_Set($@) {############################################################
     HMLAN_Write($hash, undef, sprintf("As15%02X8401%s000000010A%s",
                     $hash->{HM_CMDNR}, $id, unpack('H*', $arg)));
     $hash->{hmPairSerial} = $arg;
-
   }
-  return undef;
+  return ("",1);# no not generate trigger outof command
 }
 sub HMLAN_ReadAnswer($$$) {# This is a direct read for commands like get
   my ($hash, $arg, $regexp) = @_;
@@ -672,13 +671,13 @@ sub HMLAN_condUpdate($$) {#####################################################
   
   if ($HMcnd == 4 || $HMcnd == 253) {#transmission down
     $hashQ->{answerPend} = 0;
-	@{$hashQ->{apIDs}} = ();     #clear Q-status
+	@{$hashQ->{apIDs}} = ();       #clear Q-status
     $hash->{XmitOpen} = 0;         #deny transmit
   }
   elsif ($HMcnd == 255) {#reset counter after init
     $hashQ->{answerPend} = 0;
-	@{$hashQ->{apIDs}} = ();     #clear Q-status
-    $hash->{XmitOpen} = 1;         #deny transmit
+	@{$hashQ->{apIDs}} = ();       #clear Q-status
+    $hash->{XmitOpen} = 1;         #allow transmit
   }
   else{
     $hash->{XmitOpen} = 1 
diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm
index e59704d13..e0312c828 100644
--- a/fhem/FHEM/98_HMinfo.pm
+++ b/fhem/FHEM/98_HMinfo.pm
@@ -1290,14 +1290,6 @@ sub HMinfo_noDup(@) {#return list with no duplicates
 		Setting is meant to give user a fast overview of parameter that are expected to be system critical<br>
 	</li>
     <li><a name="#HMinfosumERROR">sumERROR</a>
-	    retriggers the command update periodically.<br>
-		Example:<br>
-		<ul><code>
-           attr hm autoUpdate 00:10<br>
-        </code></ul>
-		will trigger the update every 10 min<br>
-	</li>
-    <li><a name="#HMinfoautoUpdate">autoUpdate</a>
 	    Similar to sumStatus but with a focus on error conditions in the system. 
 		Here user can add reading<b>values</b> that are <b>not displayed</b>. I.e. the value is the
 		good-condition that will not be counted.<br>
@@ -1315,6 +1307,14 @@ sub HMinfo_noDup(@) {#return list with no duplicates
 		ERR_Activity dead:5<br>
 		</code></ul>
 	</li>
+    <li><a name="#HMinfoautoUpdate">autoUpdate</a>
+	    retriggers the command update periodically.<br>
+		Example:<br>
+		<ul><code>
+           attr hm autoUpdate 00:10<br>
+        </code></ul>
+		will trigger the update every 10 min<br>
+	</li>
    </ul>
    <br>
   <a name="HMinfovariables"><b>Variables</b></a>