From e45e3231b1bc2a15fd5617b21bfe4b5b074db608 Mon Sep 17 00:00:00 2001 From: tobiasfaust <> Date: Wed, 4 Sep 2013 17:57:38 +0000 Subject: [PATCH] DBLog: Fix the following errors: Use of uninitialized value $modifier in string eq at fhem.pl line 3343. Use of uninitialized value $perlCode in eval "string" at fhem.pl line 3321 git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@3855 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- FHEM/93_DbLog.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/FHEM/93_DbLog.pm b/FHEM/93_DbLog.pm index 12a148ab1..2f2b09542 100644 --- a/FHEM/93_DbLog.pm +++ b/FHEM/93_DbLog.pm @@ -404,10 +404,10 @@ DbLog_Log($$) for (my $i=0; $i{NAME}}{'.userReadings'}{$reading}{"DBLOG_".$log->{NAME}}{TIME}; - my $lv = $defs{$dev->{NAME}}{'.userReadings'}{$reading}{"DBLOG_".$log->{NAME}}{VALUE}; + my $lt = $defs{$dev->{NAME}}{Helper}{DBLOG}{$reading}{$log->{NAME}}{TIME}; + my $lv = $defs{$dev->{NAME}}{Helper}{DBLOG}{$reading}{$log->{NAME}}{VALUE}; $lt = 0 if(!$lt); $lv = "" if(!$lv); @@ -420,8 +420,8 @@ DbLog_Log($$) } next if($DoIt == 0); - $defs{$dev->{NAME}}{'.userReadings'}{$reading}{"DBLOG_".$log->{NAME}}{TIME} = $now; - $defs{$dev->{NAME}}{'.userReadings'}{$reading}{"DBLOG_".$log->{NAME}}{VALUE} = $value; + $defs{$dev->{NAME}}{Helper}{DBLOG}{$reading}{$log->{NAME}}{TIME} = $now; + $defs{$dev->{NAME}}{Helper}{DBLOG}{$reading}{$log->{NAME}}{VALUE} = $value; my @is= ($ts, $n, $t, $s, $reading, $value, $unit);