testing #80
2
CHANGED
2
CHANGED
@ -1 +1 @@
|
||||
[fix] - cast all propertie as string - fixed bulkupdateifchanged
|
||||
[fix] - removed "valveid" from reading
|
||||
|
@ -859,8 +859,8 @@ sub WriteReadings {
|
||||
use Data::Dumper;
|
||||
foreach my $dev_schedules ( sort keys %{ $hash->{READINGS} } ) {
|
||||
my $dev_reading = ReadingsVal( $name, $dev_schedules, "error" );
|
||||
push @ist, $dev_reading if $dev_schedules =~ /.*_id/; # push reading _id
|
||||
push @ist, $1 if $dev_schedules =~ /.*_(\d)_id/; # push readigs d from x_id
|
||||
push @ist, $dev_reading if $dev_schedules =~ /schedule.*_id/; # push reading _id
|
||||
push @ist, $1 if $dev_schedules =~ /schedule.*_(\d)_id/; # push readigs d from x_id
|
||||
|
||||
Log3 $name, 5, "[DEBUG] $name - Key ist : $dev_schedules ";
|
||||
Log3 $name, 5, "[DDDDD] $name - ID FOUND $dev_reading" if $dev_schedules =~ /.*_id/; # cloud hat SOLL
|
||||
@ -892,7 +892,9 @@ use Data::Dumper;
|
||||
}
|
||||
}
|
||||
Log3 $name, 5, "[REST] ". Dumper(@ist);
|
||||
if (scalar(@ist) > 0){
|
||||
# delete only if count soll != count ist. cos the will be overwritten
|
||||
if (scalar(@ist) > 0
|
||||
&& scalar(@soll) != scalar(@ist/2) ){
|
||||
while (my $old_schedule_id = shift(@ist)) {
|
||||
if (length($old_schedule_id) == 1) {
|
||||
foreach (keys %{$hash->{READINGS}}) {
|
||||
|
@ -1,2 +1,2 @@
|
||||
UPD 2022-07-21_19:43:48 49634 FHEM/73_GardenaSmartBridge.pm
|
||||
UPD 2022-08-08_20:47:00 107717 FHEM/74_GardenaSmartDevice.pm
|
||||
UPD 2022-08-08_20:59:37 107858 FHEM/74_GardenaSmartDevice.pm
|
||||
|
Loading…
x
Reference in New Issue
Block a user