From 174508b69b84cfbbe6ea4e2900e32853d028d1fa Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Tue, 27 Aug 2019 21:39:26 +0000
Subject: [PATCH] 93_DbRep: devices contained in the selection definition are
 marked as "Probably associated with" if possible

git-svn-id: https://svn.fhem.de/fhem/trunk@20074 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED          | 2 ++
 fhem/FHEM/93_DbRep.pm | 5 +++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 1a4ed0606..222f8d499 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,7 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+ - feature: 93_DbRep: devices contained in the selection definition are marked
+                      as "Probably associated with" if possible
  - bugfix:  76_SMAInverter: fix Perl warnings
  - bugfix:  93_DbRep: fix add newline at the end of DbReadingsVal result, 
                       Forum: #103295
diff --git a/fhem/FHEM/93_DbRep.pm b/fhem/FHEM/93_DbRep.pm
index bb753120b..ebb994230 100644
--- a/fhem/FHEM/93_DbRep.pm
+++ b/fhem/FHEM/93_DbRep.pm
@@ -58,6 +58,7 @@ no if $] >= 5.017011, warnings => 'experimental::smartmatch';
 
 # Version History intern
 our %DbRep_vNotesIntern = (
+  "8.24.0" => "24.08.2019  devices marked as \"Associated With\" if possible, fhem.pl 20069 2019-08-27 08:36:02Z is needed ",
   "8.23.1" => "26.08.2019  fix add newline at the end of DbRep_dbValue result, Forum: #103295 ",
   "8.23.0" => "24.08.2019  prepared for devices marked as \"Associated With\" if possible ",
   "8.22.0" => "23.08.2019  new attr fetchValueFn. When fetching the database content, manipulate the VALUE-field before create reading ",
@@ -1216,7 +1217,7 @@ sub DbRep_Attr($$$$) {
     
     if($aName eq "device") {
         my $awdev = $aVal;
-        # DbRep_modAssociatedWith ($hash,$cmd,$awdev);
+        DbRep_modAssociatedWith ($hash,$cmd,$awdev);
     }
                          
     if ($cmd eq "set") {
@@ -1354,7 +1355,7 @@ sub DbRep_Notify($$) {
      
      if($event =~ /DELETED/) {
          my $awdev = AttrVal($own_hash->{NAME}, "device", "");
-         # DbRep_modAssociatedWith ($own_hash,"set",$awdev);
+         DbRep_modAssociatedWith ($own_hash,"set",$awdev);
      }
      
      if ($own_hash->{ROLE} eq "Agent") {