From 24a0e0c2b002a9f33bebe075a7e92b4433b6f00d Mon Sep 17 00:00:00 2001
From: DS_Starter <DS_Starter@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 21 Apr 2021 19:52:20 +0000
Subject: [PATCH] 76_SolarForecast.pm: contrib 0.38.3

git-svn-id: https://svn.fhem.de/fhem/trunk@24302 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/DS_Starter/76_SolarForecast.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/fhem/contrib/DS_Starter/76_SolarForecast.pm b/fhem/contrib/DS_Starter/76_SolarForecast.pm
index e6e780127..2d945537c 100644
--- a/fhem/contrib/DS_Starter/76_SolarForecast.pm
+++ b/fhem/contrib/DS_Starter/76_SolarForecast.pm
@@ -2725,9 +2725,10 @@ sub forecastGraphic {
   
   my $pcfa = ReadingsVal ($name,"pvCorrectionFactor_Auto", "off");
   
-  my $pvcorrf    = NexthoursVal($hash, "NextHour00", "pvcorrf", "-/m");
-  my ($pcf,$pcq) = split "/", $pvcorrf;
-  $pcq          =~ s/m/15/xs;
+  my $pvcorrf00  = NexthoursVal($hash, "NextHour00", "pvcorrf", "-/m");
+  my ($pcf,$pcq) = split "/", $pvcorrf00;
+  $pcq           =~ s/m/15/xs;
+  my $pvfc00     =  NexthoursVal($hash, "NextHour00", "pvfc", undef);
 
   if ($kw eq 'kWh') {
       $co4h = sprintf("%.1f" , $co4h/1000)."&nbsp;kWh";
@@ -2836,6 +2837,7 @@ sub forecastGraphic {
           $pcqicon = $pcq < 10 ? "<img src=\"$FW_ME/www/images/default/10px-kreis-rot.png\">"   :
                      $pcq < 20 ? "<img src=\"$FW_ME/www/images/default/10px-kreis-gelb.png\">"  :
                      "<img src=\"$FW_ME/www/images/default/10px-kreis-gruen.png\">";
+          $pcqicon = "-" if(!$pvfc00);
           
   
           ## erste Header-Zeilen