fix: keys on reference is experimental (thx to rapster)

git-svn-id: https://svn.fhem.de/fhem/trunk@9377 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hexenmeister
2015-10-04 19:33:03 +00:00
parent db9a0fba56
commit ad8c9e80cb

View File

@@ -4319,7 +4319,7 @@ sub SYSMON_ShowBarChartHtml($;$) {
my $sysmon = {};
my $html='';
if(defined($main::defs{$dev}{READINGS})) {
foreach my $r (keys($main::defs{$dev}{READINGS})){
foreach my $r (keys %{$main::defs{$dev}->{READINGS}}){
$sysmon->{$r} = $main::defs{$dev}{READINGS}{$r}{VAL};
}
} else {
@@ -4597,7 +4597,7 @@ sub SYSMON_ShowBarChartHtml_alt($;$$){
# access sysmon data..
#my $sysmon = SYSMON_getValues($dev);
my $sysmon = {};
foreach my $r (keys($main::defs{$dev}{READINGS})){
foreach my $r (keys %{$main::defs{$dev}->{READINGS}}){
$sysmon->{$r} = $main::defs{$dev}{READINGS}{$r}{VAL};
}