From d69fc55d337f3cb7be9790dd29ebe2fdcfe53416 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sun, 5 May 2013 18:34:35 +0000
Subject: [PATCH] wa-od level setup

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

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index c35621fac..fb4c6a352 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -237,7 +237,11 @@ sub CUL_HM_updateConfig($){
 	  }
 	}
 	$attr{$name}{webCmd} = $webCmd if ($webCmd);
-	push @getConfList,$name if (0 != CUL_HM_getAttrInt($name,"autoReadReg"));
+
+    no warnings 'numeric';
+    my $autoRead = int(AttrVal($name,"autoReadReg",0))+0;
+    use warnings 'numeric';
+	push @getConfList,$name if (0 != $autoRead);
   }
   $modules{CUL_HM}{helper}{updtCfgLst} = \@getConfList;
   CUL_HM_autoReadConfig("updateConfig");
@@ -729,7 +733,10 @@ sub CUL_HM_Parse($$) {##############################
 	    ($mTp eq "41"))                { 
 	  my $level = substr($p,4,2);
 	  my %lvl=("00"=>"normal","64"=>"added","C8"=>"addedStrong");
-      $level = hex($level)/2 if($model eq "HM-Sen-Wa-Od");
+	  if($model eq "HM-Sen-Wa-Od"){
+        $level = hex($level)/2 ;
+	    push @event, "level:$level%";
+	  }
 	  $level = $lvl{$level}  if($model eq "HM-CC-SCD");
 	  push @event, "state:".$level."%";
 	  
@@ -4799,6 +4806,7 @@ sub CUL_HM_putHash($) {# provide data for HMinfo
   <li>smokeDetector<br>
       [off|smoke-Alarm|alive]             # for team leader<br>
 	  [off|smoke-forward|smoke-alarm]     # for team members<br>
+	  [normal|added|addedStrong]          #HM-CC-SCD<br>
  	  SDteam [add|remove]_$dname<br>
       battery [low|ok]<br>
       smoke_detect on from $src<br>
@@ -4837,6 +4845,14 @@ sub CUL_HM_putHash($) {# provide data for HMinfo
       lock [unlocked|locked]<br>
       [unlocked|locked|uncertain]<br>
   </li>
+  <li>HM-CC-SCD<br>
+	  [normal|added|addedStrong]<br>
+      battery [low|ok]<br>
+  </li>
+  <li>HM-Sen-Wa-Od<br>
+	  $level%<br>
+	  level $level%<br>
+  </li>
   </ul>
   <br>
 </ul>