From d89477b1b436603162aca6ab3345f8d3bdeef4fa Mon Sep 17 00:00:00 2001
From: DS_Starter <DS_Starter@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 24 Apr 2021 08:05:49 +0000
Subject: [PATCH] 76_SolarForecast.pm: contrib 0.39.0

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

diff --git a/fhem/contrib/DS_Starter/76_SolarForecast.pm b/fhem/contrib/DS_Starter/76_SolarForecast.pm
index b91a91303..7976df058 100644
--- a/fhem/contrib/DS_Starter/76_SolarForecast.pm
+++ b/fhem/contrib/DS_Starter/76_SolarForecast.pm
@@ -4288,9 +4288,9 @@ sub createNotifyDev {
   
   if($init_done == 1) {
       my @nd;
-      my ($afc,$ara,$ain,$ame,$h);
+      my ($afc,$ara,$ain,$ame,$aba,$h);
       
-      my $fcdev = ReadingsVal($name, "currentForecastDev", "");              # Weather forecast Device
+      my $fcdev = ReadingsVal($name, "currentForecastDev",  "");             # Weather forecast Device
       ($afc,$h) = parseParams ($fcdev);
       $fcdev    = $afc->[0] // "";      
       
@@ -4298,19 +4298,23 @@ sub createNotifyDev {
       ($ara,$h) = parseParams ($radev);
       $radev    = $ara->[0] // "";
       
-      my $indev = ReadingsVal($name, "currentInverterDev", "");              # Inverter Device
+      my $indev = ReadingsVal($name, "currentInverterDev",  "");             # Inverter Device
       ($ain,$h) = parseParams ($indev);
       $indev    = $ain->[0] // "";
       
-      my $medev = ReadingsVal($name, "currentMeterDev",    "");              # Meter Device
-      
+      my $medev = ReadingsVal($name, "currentMeterDev",     "");             # Meter Device
       ($ame,$h) = parseParams ($medev);
       $medev    = $ame->[0] // "";
       
+      my $badev = ReadingsVal($name, "currentBatteryDev",     "");           # Battery Device
+      ($aba,$h) = parseParams ($badev);
+      $badev    = $aba->[0] // "";
+      
       push @nd, $fcdev;
       push @nd, $radev if($radev ne $fcdev);
       push @nd, $indev;
       push @nd, $medev;
+      push @nd, $badev;
       
       if(@nd) {
           $hash->{NOTIFYDEV} = join ",", @nd;