55_InfoPanel.pm: fix 5.24.1 compatibility

git-svn-id: https://svn.fhem.de/fhem/trunk@12511 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2016-11-06 13:57:40 +00:00
parent 0c6e554d4f
commit 4aa67cad94

View File

@ -223,12 +223,12 @@ sub btIP_Get {
when ("layout") { when ("layout") {
$ret = $defs{$name}{fhem}{layout}; $ret = $defs{$name}{fhem}{layout};
} }
# when ("overrides") { when ("overrides") {
# last if(!defined($defs{$name}{fhem}{override})); last if(!defined($defs{$name}{fhem}{override}));
# foreach my $key ( keys $defs{$name}{fhem}{override} ) { foreach my $key ( keys %{$defs{$name}{fhem}{override}} ) {
# $ret .= "$key => $defs{$name}{fhem}{override}{$key} \n"; $ret .= "$key => $defs{$name}{fhem}{override}{$key} \n";
# } }
# } }
default { default {
$ret = $usage; $ret = $usage;
} }
@ -1160,7 +1160,7 @@ sub btIP_evalLayout {
when("pop") { when("pop") {
return unless $pstackcount; return unless $pstackcount;
foreach my $key ( keys $pstack{$pstackcount} ) { foreach my $key ( keys %{$pstack{$pstackcount}} ) {
# Debug "pop key: $key, value: $pstack{$pstackcount}{$key}"; # Debug "pop key: $key, value: $pstack{$pstackcount}{$key}";
$params{$key} = $pstack{$pstackcount}{$key}; $params{$key} = $pstack{$pstackcount}{$key};
} }