fix for ...,0,... bug in <{...}>

git-svn-id: https://svn.fhem.de/fhem/trunk@4964 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme1968
2014-02-17 16:35:41 +00:00
parent 49ad0cd621
commit a57a49bd6a

View File

@@ -362,7 +362,7 @@ readingsGroup_2html($)
#foreach my $regex (@list) {
for( my $i = 0; $i <= $#list; ++$i ) {
my $regex = $list[$i];
while ($regex && $regex =~ m/^</ && $regex !~ m/>$/ && $list[++$i] ) {
while ($regex && $regex =~ m/^</ && $regex !~ m/>$/ && defined($list[++$i]) ) {
$regex .= ",". $list[$i];
}
my $h = $h;
@@ -659,7 +659,7 @@ readingsGroup_Notify($$)
#foreach my $regex (@list) {
for( my $i = 0; $i <= $#list; ++$i ) {
my $regex = $list[$i];
while ($regex && $regex =~ m/^</ && $regex !~ m/>$/ && $list[++$i] ) {
while ($regex && $regex =~ m/^</ && $regex !~ m/>$/ && defined($list[++$i]) ) {
$regex .= ",". $list[$i];
}
next if( $reading eq "state" && !$show_state && (!defined($regex) || $regex ne "state") );