diff --git a/FHEM/46_TeslaPowerwall2AC.pm b/FHEM/46_TeslaPowerwall2AC.pm index b04fdf1..ca302f0 100644 --- a/FHEM/46_TeslaPowerwall2AC.pm +++ b/FHEM/46_TeslaPowerwall2AC.pm @@ -721,19 +721,21 @@ sub ReadingsProcessing_Powerwalls { my $i = 0; for my $powerwall ( @{ $decode_json->{powerwalls} } ) { if ( ref($powerwall) eq 'HASH' ) { - - while ( my ( $r, $v ) = each %{$powerwall} ) { + while ( my ($r,$v) = each %{$powerwall} ) { $readings{ 'wall_' . $i . '_' . $r } = $v if ( ref($v) ne 'HASH' ); if ( ref($v) eq 'HASH' ) { - while ( my ( $s, $ts ) = each %{$v} ) { - if ( ref( $ts ) eq 'ARRAY' - && scalar( @{ $ts } ) > 0 ) + while ( ($r,$v) = each %{$v} ) { + if ( ref($v) eq 'ARRAY' + && scalar( @{$v} ) > 0 ) { my $j = 0; - for my $t ( @{ $ts } ) { - $readings{ 'wall_' . $i . '_' . $r . '_' . $s . '_' . $j } = $t; + for ( @{ $v } ) { + my $text = $r; + while ( ($r,$v) = each %{$_} ) { + $readings{ 'wall_' . $i . '_' . $r . '_' . $text . '_' . $j . '_' . $r } = $v + } $j++; } } @@ -1096,7 +1098,7 @@ sub Rename { ], "release_status": "stable", "license": "GPL_2", - "version": "v1.0.2", + "version": "v1.0.3", "author": [ "Marko Oldenburg " ], diff --git a/controls_TeslaPowerwall2AC.txt b/controls_TeslaPowerwall2AC.txt index 68baf0d..0a08447 100644 --- a/controls_TeslaPowerwall2AC.txt +++ b/controls_TeslaPowerwall2AC.txt @@ -1 +1 @@ -UPD 2021-02-27_17:20:40 31370 FHEM/46_TeslaPowerwall2AC.pm +UPD 2021-03-02_09:01:53 31521 FHEM/46_TeslaPowerwall2AC.pm