From 1cad2f87766265d1c0c0294e1bbd570d6c3c20ff Mon Sep 17 00:00:00 2001
From: DS_Starter <DS_Starter@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 5 Sep 2021 19:05:18 +0000
Subject: [PATCH] 76_SolarForecast.pm: contrib 0.55.1

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

diff --git a/fhem/contrib/DS_Starter/76_SolarForecast.pm b/fhem/contrib/DS_Starter/76_SolarForecast.pm
index b6cf59f2f..3b05dd4f2 100644
--- a/fhem/contrib/DS_Starter/76_SolarForecast.pm
+++ b/fhem/contrib/DS_Starter/76_SolarForecast.pm
@@ -6113,8 +6113,9 @@ sub listDataPool {
       }
       for my $idx (sort{$a<=>$b} keys %{$h}) {
           if ($idx !~ /^[0-9]{2}$/ix) {                                   # bereinigen ungültige consumer, Forum: https://forum.fhem.de/index.php/topic,117864.msg1173219.html#msg1173219
-              delete $data{$type}{$name}{consumers}{$idx};
+              delete $data{$type}{$name}{consumers}{"$idx"};
               Log3 ($name, 3, qq{$name - INFO - invalid consumer key "$idx" was deleted from consumer Hash});
+              next;
           }
           my $cret;
           for my $ckey (sort keys %{$h->{$idx}}) {