From a4cb62b17daf8c676872bd1d59e054eaf353bedf Mon Sep 17 00:00:00 2001 From: DS_Starter Date: Thu, 22 Apr 2021 09:17:29 +0000 Subject: [PATCH] 76_Solarforcast: contrib 0.38.3 git-svn-id: https://svn.fhem.de/fhem/trunk@24309 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/contrib/DS_Starter/76_SolarForecast.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/fhem/contrib/DS_Starter/76_SolarForecast.pm b/fhem/contrib/DS_Starter/76_SolarForecast.pm index 4b71b2f9a..d81a52759 100644 --- a/fhem/contrib/DS_Starter/76_SolarForecast.pm +++ b/fhem/contrib/DS_Starter/76_SolarForecast.pm @@ -2727,7 +2727,8 @@ sub forecastGraphic { my $pvcorrf00 = NexthoursVal($hash, "NextHour00", "pvcorrf", "-/m"); my ($pcf,$pcq) = split "/", $pvcorrf00; - $pcq =~ s/m/100/xs; + my $pvcanz = "factor: $pcf / quality: $pcq"; + $pcq =~ s/m/-1/xs; my $pvfc00 = NexthoursVal($hash, "NextHour00", "pvforecast", undef); if ($kw eq 'kWh') { @@ -2837,13 +2838,13 @@ sub forecastGraphic { $pcqicon = $pcq < 10 ? "" : $pcq < 20 ? "" : ""; - $pcqicon = "-" if(!$pvfc00 || $pcq == 100); + $pcqicon = "-" if(!$pvfc00 || $pcq == -1); ## erste Header-Zeilen ####################### - $header .= "".$dlink."".$lupt. " ".$lup." ".$upicon." "; - $header .= " ".$autoct." " .$acicon."".$lbpcq." " .$pcqicon. ""; + $header .= "".$dlink."".$lupt. " ".$lup." ".$upicon." "; + $header .= " ".$autoct." " .$acicon."".$lbpcq." " .$pcqicon. ""; } ########################