FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 10:46:53 +00:00
Code Issues Releases Wiki Activity

93_DbRep: contrib 8.23.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@20056 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2019-08-25 13:40:35 +00:00
parent d78a1dcfa4
commit d9e028d244
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/contrib/DS_Starter/93_DbRep.pm
View File

@ -1351,7 +1351,7 @@ sub DbRep_Notify($$) {
$event = "" if(!defined($event)); $event = "" if(!defined($event));
my @evl = split("[ \t][ \t]*", $event); my @evl = split("[ \t][ \t]*", $event);
if($event =~ /DELETED|INITIALIZED/) { if($event =~ /DELETED/) {
my $awdev = AttrVal($own_hash->{NAME}, "device", ""); my $awdev = AttrVal($own_hash->{NAME}, "device", "");
DbRep_modAssociatedWith ($own_hash,"set",$awdev); DbRep_modAssociatedWith ($own_hash,"set",$awdev);
} }
@ -9601,7 +9601,7 @@ sub DbRep_delread($;$$) {
# Log3 ($name, 1, "DbRep $name - Reading Schlüssel: $key"); # Log3 ($name, 1, "DbRep $name - Reading Schlüssel: $key");
my $dodel = 1; my $dodel = 1;
foreach my $rdpfdel(@rdpfdel) { foreach my $rdpfdel(@rdpfdel) {
if($key =~ /$rdpfdel/ || $key eq "state") { if($key =~ /$rdpfdel/ || $key =~ /\bstate\b|\bassociatedWith\b/) {
$dodel = 0; $dodel = 0;
} }
} }
@ -9612,9 +9612,9 @@ sub DbRep_delread($;$$) {
} }
} else { } else {
foreach my $key(@allrds) { foreach my $key(@allrds) {
# Log3 ($name, 1, "DbRep $name - Reading Schlüssel: $key");
# delete($defs{$name}{READINGS}{$key}) if($key ne "state"); # delete($defs{$name}{READINGS}{$key}) if($key ne "state");
readingsDelete($hash,$key) if($key ne "state"); next if($key =~ /\bstate\b|\bassociatedWith\b/);
readingsDelete($hash,$key);
} }
} }
return undef; return undef;
@ -10800,7 +10800,7 @@ sub DbRep_modAssociatedWith ($$$) {
# $hash->{DEF} = $def[0]; # $hash->{DEF} = $def[0];
if($cmd eq "del") { if($cmd eq "del") {
delete $hash->{HELPER}{PAW}; readingsDelete($hash,".associatedWith");
return; return;
} }
@ -10819,7 +10819,7 @@ sub DbRep_modAssociatedWith ($$$) {
} }
if(@naw) { if(@naw) {
$hash->{HELPER}{PAW} = join(" ",@naw); ReadingsSingleUpdateValue ($hash, ".associatedWith", join(" ",@naw), 0);
} }
return; return;