patch_ic24 #69
@@ -784,22 +784,6 @@ sub WriteReadings {
 | 
			
		||||
              readingsBulkUpdateIfChanged( $hash, 'scheduling-'.$decode_json->{settings}[$settings]{name},
 | 
			
		||||
                                  $decode_json->{settings}[$settings]{value} );
 | 
			
		||||
            }
 | 
			
		||||
            if ($decode_json->{settings}[$settings]{name} eq 'valve_names') {
 | 
			
		||||
              Log3 $name, 3,  "[DEBUG] - GardenaSmartDevice ($name) - ".ref( $decode_json->{settings}[$settings]{value} );
 | 
			
		||||
            }
 | 
			
		||||
 | 
			
		||||
            if ($decode_json->{settings}[$settings]{name} eq 'valve_names'
 | 
			
		||||
                && ref( $decode_json->{settings}[$settings]{value} ) eq "ARRAY" ) { # or HASH ?
 | 
			
		||||
              #_name_1  =  
 | 
			
		||||
              Log3 $name, 3,  "GardenaSmartDevice ($name) valve_names ";
 | 
			
		||||
              my @valves = @{$decode_json->{settings}[$settings]{value}};
 | 
			
		||||
              foreach my $valve( @valves ) {
 | 
			
		||||
                Log3 $name, 3,  "GardenaSmartDevice ($name) valve_name $valve->{'name'}";
 | 
			
		||||
 | 
			
		||||
              readingsBulkUpdateIfChanged( $hash, 'valve-valve_name_'.$valve->{"id"},
 | 
			
		||||
                                                  $valve->{"name"} );
 | 
			
		||||
              }
 | 
			
		||||
            }
 | 
			
		||||
 | 
			
		||||
            ######
 | 
			
		||||
            # save winter mode as reading
 | 
			
		||||
@@ -811,6 +795,22 @@ sub WriteReadings {
 | 
			
		||||
            }
 | 
			
		||||
        }
 | 
			
		||||
 | 
			
		||||
        if ($decode_json->{settings}[$settings]{name} eq 'valve_names') {
 | 
			
		||||
            Log3 $name, 3,  "[DEBUG] - GardenaSmartDevice ($name) - ".ref( $decode_json->{settings}[$settings]{value} );
 | 
			
		||||
        }
 | 
			
		||||
 | 
			
		||||
        if ($decode_json->{settings}[$settings]{name} eq 'valve_names'
 | 
			
		||||
          && ref( $decode_json->{settings}[$settings]{value} ) eq "ARRAY" ) { # or HASH ?
 | 
			
		||||
          #_name_1  =  
 | 
			
		||||
            Log3 $name, 3,  "GardenaSmartDevice ($name) valve_names ";
 | 
			
		||||
            my @valves = @{$decode_json->{settings}[$settings]{value}};
 | 
			
		||||
            foreach my $valve( @valves ) {
 | 
			
		||||
              Log3 $name, 3,  "GardenaSmartDevice ($name) valve_name $valve->{'name'}";
 | 
			
		||||
              readingsBulkUpdateIfChanged( $hash, 'valve-valve_name_'.$valve->{"id"},
 | 
			
		||||
                                           $valve->{"name"} );
 | 
			
		||||
            }
 | 
			
		||||
        }
 | 
			
		||||
 | 
			
		||||
        if ( ref( $decode_json->{settings}[$settings]{value} ) eq "ARRAY"
 | 
			
		||||
            && $decode_json->{settings}[$settings]{name} eq 'starting_points' )
 | 
			
		||||
        {
 | 
			
		||||
 
 | 
			
		||||
@@ -1,2 +1,2 @@
 | 
			
		||||
UPD 2022-03-29_13:42:09 49520 FHEM/73_GardenaSmartBridge.pm
 | 
			
		||||
UPD 2022-04-18_19:16:13 65595 FHEM/74_GardenaSmartDevice.pm
 | 
			
		||||
UPD 2022-04-28_20:17:10 65550 FHEM/74_GardenaSmartDevice.pm
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user