diff --git a/73_AutoShuttersControl.pm b/73_AutoShuttersControl.pm index c153bf1..a6a9e6d 100644 --- a/73_AutoShuttersControl.pm +++ b/73_AutoShuttersControl.pm @@ -391,11 +391,11 @@ sub Undef { sub Notify { my $hash = shift; my $dev = shift; - + my $name = $hash->{NAME}; my $devname = $dev->{NAME}; my $devtype = $dev->{TYPE}; - my $events = deviceEvents( shift, 1 ); + my $events = deviceEvents( $dev, 1 ); return if ( !$events ); Log3( $name, 4, @@ -802,6 +802,7 @@ sub ShuttersDeviceScan { } $hash->{NOTIFYDEV} = $notifyDevString; } + readingsSingleUpdate( $hash, 'userAttrList', 'rolled out', 1 ); } @@ -2780,7 +2781,7 @@ sub ShuttersCommandSet { sub CreateSunRiseSetShuttersTimer { my $hash = shift; my $shuttersDev = shift; - + my $name = $hash->{NAME}; my $shuttersDevHash = $defs{$shuttersDev}; my %funcHash; @@ -3264,13 +3265,18 @@ sub CreateNewNotifyDev { } sub ShuttersInformation { - return - if ( !defined($shutters->getSunriseUnixTime) - or !defined($shutters->getSunsetUnixTime) ); - my ( $FW_wname, $d, $room, $pageHash ) = @_; + my $hash = $defs{$d}; + return + if ( !exists($hash->{helper}) + or !defined($hash->{helper}->{shuttersList}) + or ref($hash->{helper}->{shuttersList}) ne 'ARRAY' + or scalar( @{$hash->{helper}->{shuttersList}} ) == 0 + or !defined($shutters->getSunriseUnixTime) + or !defined($shutters->getSunsetUnixTime) ); + my $ret = '
';
$ret .= ' |