From 70494b4bd92ae5e8530cc934456971da04499dda Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Sat, 9 Apr 2022 19:03:34 +0000
Subject: [PATCH] 93_DbRep: minor fix in reduceLog

git-svn-id: https://svn.fhem.de/fhem/trunk@25939 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED          | 2 ++
 fhem/FHEM/93_DbRep.pm | 9 +++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index d803c78a8..3c85d8445 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,7 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+ - bugfix:  93_DbRep: minor fix in reduceLog 
+            forum: topic,53584.msg1217329.html#msg1217329
  - bugfix:  73_AutoShuttersControl: fix awning value in shading conditions
  - feature: 49_TBot_List: acknowledge and categories
  - change:  98_monitoring: PBP code restructured (part I)
diff --git a/fhem/FHEM/93_DbRep.pm b/fhem/FHEM/93_DbRep.pm
index 9a97dee05..8ee4ffa1b 100644
--- a/fhem/FHEM/93_DbRep.pm
+++ b/fhem/FHEM/93_DbRep.pm
@@ -44,8 +44,8 @@ use warnings;
 use POSIX qw(strftime SIGALRM);
 use Time::HiRes qw(gettimeofday tv_interval ualarm);
 use Scalar::Util qw(looks_like_number);
-eval "use DBI;1" or my $DbRepMMDBI = "DBI";
-eval "use FHEM::Meta;1" or my $modMetaAbsent = 1;
+eval "use DBI;1"               or my $DbRepMMDBI = "DBI";
+eval "use FHEM::Meta;1"        or my $modMetaAbsent = 1;
 use DBI::Const::GetInfoType;
 use Blocking;
 use Color;                           # colorpicker Widget
@@ -57,6 +57,7 @@ no if $] >= 5.017011, warnings => 'experimental::smartmatch';
 
 # Version History intern
 my %DbRep_vNotesIntern = (
+  "8.48.3"  => "09.04.2022  minor code fix in DbRep_reduceLog ",
   "8.48.2"  => "22.02.2022  more code refacturing ",
   "8.48.1"  => "31.01.2022  minor fixes e.g. in file size determination, dump routines ",
   "8.48.0"  => "29.01.2022  new sqlCmdHistory params ___restore_sqlhistory___ , ___save_sqlhistory___ ".
@@ -9362,8 +9363,8 @@ sub DbRep_reduceLog {
                         $deletedCount += $c;
                         $updateCount  += keys(%averageHash);
                         
-                        my ($id,$iu) = 0;
-                        my ($kd,$ku) = 1;
+                        my ($id,$iu) = (0,0);
+                        my ($kd,$ku) = (1,1);
                         my $thd      = ($c <= 2000)  ? 100  : 
                                        ($c <= 30000) ? 1000 : 
                                        10000;