From c38d361539f688b277f88a90598115e568b2d658 Mon Sep 17 00:00:00 2001
From: DS_Starter <DS_Starter@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 20 Jun 2020 13:12:23 +0000
Subject: [PATCH] 76_SMAPortal: contrib 3.1.0

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

diff --git a/fhem/contrib/DS_Starter/76_SMAPortal.pm b/fhem/contrib/DS_Starter/76_SMAPortal.pm
index 836dfb28f..90f4b0be7 100644
--- a/fhem/contrib/DS_Starter/76_SMAPortal.pm
+++ b/fhem/contrib/DS_Starter/76_SMAPortal.pm
@@ -2590,9 +2590,11 @@ sub deleteData {
   my $name   = $hash->{NAME};
   my @allrds = keys%{$defs{$name}{READINGS}};
  
-  my $bl     = "state|lastCycleTime|Counter|loginState";             # Blacklist
+  my $bl     = "state|lastCycleTime|Counter|loginState";                   # Blacklist
   
-  if(!$subs{$name}{forecastData}{doit}) {                            # wenn forecastData nicht abgerufen werden sollen -> Wetterdaten im HELPER löschen
+  my $pblvl  = $stpl{plantLogbook}{level};                                 # Logbuch Level
+  
+  if(!$subs{$name}{forecastData}{doit}) {                                  # wenn forecastData nicht abgerufen werden sollen -> Wetterdaten im HELPER löschen
       my $fclvl = $stpl{forecastData}{level};
       delete $hash->{HELPER}{"${fclvl}_ThisHour_WeatherId"};
       for my $i (1..23) {
@@ -2601,17 +2603,17 @@ sub deleteData {
       }
   }
    
-  if($conspl) {                                                      # Readings löschen wenn nicht im providerLevel enthalten
+  if($conspl) {                                                            # Readings löschen wenn nicht im providerLevel enthalten
       for my $key(@allrds) {
           my ($lvl) = $key =~ m/^(L\d+)_/x;     
           if($lvl) {
               for my $p (keys %{$subs{$name}}) {
                   delete($defs{$name}{READINGS}{$key}) if($subs{$name}{$p}{level} eq $lvl && !$subs{$name}{$p}{doit});
-                  delete($defs{$name}{READINGS}{$key}) if($subs{$name}{plantLogbook}{level} eq $lvl);                  # Logbuchreadings immer löschen
               }
           } else {
               delete($defs{$name}{READINGS}{$key}) if($key !~ /$bl/x);
-          }        
+          }
+          delete $defs{$name}{READINGS}{$key} if($key =~ /^$pblvl/x);      # Logbuchreadings immer löschen          
       }
       return;
   }