From 73554a77ae8ff077c8f5b04953cccfd872dd62d8 Mon Sep 17 00:00:00 2001 From: nasseeder1 Date: Fri, 2 Apr 2021 12:20:29 +0000 Subject: [PATCH] 76_SolarForecast.pm: contrib 0.26.0 git-svn-id: https://svn.fhem.de/fhem/trunk@24125 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/contrib/DS_Starter/76_SolarForecast.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/fhem/contrib/DS_Starter/76_SolarForecast.pm b/fhem/contrib/DS_Starter/76_SolarForecast.pm index c5fc38c05..e2d7c717c 100644 --- a/fhem/contrib/DS_Starter/76_SolarForecast.pm +++ b/fhem/contrib/DS_Starter/76_SolarForecast.pm @@ -117,7 +117,7 @@ BEGIN { # Versions History intern my %vNotesIntern = ( - "0.26.0" => "02.04.2021 rename attr maxPV to maxValBeam ", + "0.26.0" => "02.04.2021 rename attr maxPV to maxValBeam, bugfix in _additionalEvents ", "0.25.0" => "28.03.2021 changes regarding perlcritic, new getter valCurrent ", "0.24.0" => "26.03.2021 the language setting of the system is taken into account in the weather texts ". "rename weatherColor_night to weatherColorNight, history_hour to historyHour ", @@ -693,7 +693,7 @@ sub _setmoduleTiltAngle { ## no critic "not used" } while (my ($key, $value) = each %$h) { - if($value !~ /^(?$tilt)$/x) { + if($value !~ /^(?:$tilt)$/x) { return qq{The tilt angle of "$key" is wrong}; } } @@ -724,7 +724,7 @@ sub _setmoduleDirection { ## no critic "not used" } while (my ($key, $value) = each %$h) { - if($value !~ /^(?$dirs)$/x) { + if($value !~ /^(?:$dirs)$/x) { return qq{The module direction of "$key" is wrong: $value}; } } @@ -1388,6 +1388,7 @@ sub _additionalEvents { my $tlim = "00"; # bestimmte Aktionen if($chour =~ /^($tlim)$/x) { if(!exists $hash->{HELPER}{H00DONE}) { + $date = strftime "%Y-%m-%d", localtime($t-7200); # Vortag (2 h Differenz reichen aus) $ts = $date." 23:59:59".$tsmsec; $pvfc = ReadingsNum($name, "Today_Hour24_PVforecast", undef);