From b0b7227ef8e9af5063e9b7408932434ea8570d70 Mon Sep 17 00:00:00 2001
From: DS_Starter <DS_Starter@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 24 Jan 2021 11:08:40 +0000
Subject: [PATCH] 76_SolarForecast.pm: contrib 0.3.0

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

diff --git a/fhem/contrib/DS_Starter/76_SolarForecast.pm b/fhem/contrib/DS_Starter/76_SolarForecast.pm
index 4b369daa8..8021766ca 100644
--- a/fhem/contrib/DS_Starter/76_SolarForecast.pm
+++ b/fhem/contrib/DS_Starter/76_SolarForecast.pm
@@ -2281,8 +2281,25 @@ sub calcPVforecast {
   if($kw eq "Wh") {
       $pv = int $pv;
   }
- 
-  Log3($name, 5, "$name - calcPVforecast -> Hour: ".sprintf("%02d",$fh)." ,moduleTiltAngle factor: ".$htilt{"$ta"}.", Cloudfactor: $ccf, Rainfactor: $rcf, pvCorrectionFactor: $hc");
+  
+  my $lh = {                                                                            # Log-Hash zur Ausgabe
+      "moduleTiltAngle factor"  => $htilt{"$ta"},
+      "Cloudfactor"             => $ccf,
+      "Rainfactor"              => $rcf,
+      "pvCorrectionFactor"      => $hc,
+      "moduleArea"              => $ma,
+      "moduleEfficiency"        => $me/100,
+      "inverterEfficiency"      => $ie/100,
+      "Radiation"               => $rad,
+      "Factor kJ to kWh"        => $kJtokWh
+  };
+  
+  my $sq;
+  for my $idx (sort keys %{$lh}) {
+      $sq .= $idx." => ".$lh->{$idx}."\n";             
+  }
+
+  Log3($name, 5, "$name - PV forecast calc factors for hour ".sprintf("%02d",$fh)." ->\n$sq");
   
 return $pv;
 }