From d695737c8baac541cc538a784558a108db5b71c9 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 7 Aug 2011 10:33:22 +0000
Subject: [PATCH] peak corrections for EM1000WZ by hmayr

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

diff --git a/fhem/FHEM/15_CUL_EM.pm b/fhem/FHEM/15_CUL_EM.pm
index c833429a8..deaa874c6 100755
--- a/fhem/FHEM/15_CUL_EM.pm
+++ b/fhem/FHEM/15_CUL_EM.pm
@@ -150,6 +150,12 @@ CUL_EM_Parse($$)
     my $current  = $current_cnt*$corr1;
     my $peak     = $peak_cnt*$corr1;
 
+    if($tpe ne 2) {
+      $peak      = 3000/($peak_cnt > 1 ? $peak_cnt : 1)*$corr1;
+      $peak      = ($current > 0 ? $peak : 0);
+    }
+
+
     $val = sprintf("CNT: %d CUM: %0.3f  5MIN: %0.3f  TOP: %0.3f",
                          $seqno, $total, $current, $peak);
     $hash->{STATE} = $val;