From 5aacbfc515cd2cc0073fb63f033d9013cdafcc47 Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Sat, 13 Aug 2022 06:31:36 +0000
Subject: [PATCH] 93_DbRep: contrib 8.50.0

git-svn-id: https://svn.fhem.de/fhem/trunk@26318 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/DS_Starter/93_DbRep.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/fhem/contrib/DS_Starter/93_DbRep.pm b/fhem/contrib/DS_Starter/93_DbRep.pm
index 2283a3e08..7662b6fe1 100644
--- a/fhem/contrib/DS_Starter/93_DbRep.pm
+++ b/fhem/contrib/DS_Starter/93_DbRep.pm
@@ -9359,8 +9359,7 @@ sub _DbRep_rl_updateHour {
       return $err if ($err);
   }
   
-  my ($max, $params);
-  my $sum = 0;
+  my $params;
   my $i   = 0;
   my $k   = 1;
   my $th  = _DbRep_rl_logThreshold ($c);
@@ -9395,17 +9394,18 @@ sub _DbRep_rl_updateHour {
           $paref->{reading}    = $hourHash->{$hourKey}->[3];
           $paref->{oldvalue}   = $hourHash->{$hourKey}->[4]->[0];
                                      
-          if ($mstr eq 'average') {                                                            # Berechnung Average 
+          if ($mstr eq 'average') {                                                           # Berechnung Average 
               if (scalar @{$hourHash->{$hourKey}->[4]} > 1) {                                 # wahr wenn reading hat mehrere Datensätze diese Stunde
                   
                   $i++;
                   
+                  my $sum = 0;
+                  
                   for my $val (@{$hourHash->{$hourKey}->[4]}) { 
                       $sum += $val; 
                   }
                 
                   my $value = sprintf "%.${ndp}f", $sum / scalar @{$hourHash->{$hourKey}->[4]};
-                  $sum      = 0;
                   
                   $paref->{logtxt}     = "(hourly-$mstr) updating";
                   $paref->{newvalue}   = $value;
@@ -9429,6 +9429,8 @@ sub _DbRep_rl_updateHour {
                   
                   $i++;
                   
+                  my $max;
+                  
                   for my $val (@{$hourHash->{$hourKey}->[4]}) { 
                       if (!defined $max) {
                           $max = $val;
@@ -9439,7 +9441,6 @@ sub _DbRep_rl_updateHour {
                   }
                 
                   my $value = sprintf "%.${ndp}f", $max;
-                  undef $max;
                   
                   $paref->{logtxt}     = "(hourly-$mstr) updating";
                   $paref->{newvalue}   = $value;