This commit is contained in:
Marko Oldenburg 2018-09-21 22:12:24 +02:00
parent 294efb7eb8
commit e4a3a4aa05

View File

@ -42,7 +42,7 @@ use warnings;
my $version = "0.1.52";
my $version = "0.1.53";
sub AutoShuttersControl_Initialize($) {
@ -883,9 +883,8 @@ sub GetShuttersInformation($) {
$ret .= "<td> </td>";
$ret .= "<td><b>Lock-Out</b></td>";
$ret .= '</tr>';
Log3 $name, 2, "AutoShuttersControl ($name) - GetShuttersInformation - for if";
if( ref($shuttersInformations) eq "HASH" ) {
Log3 $name, 2, "AutoShuttersControl ($name) - GetShuttersInformation - fafter if";
my $linecount = 1;
foreach my $shutter (keys (%{$shuttersInformations}) ) {
if ( $linecount % 2 == 0 ) {