diff --git a/73_AutoShuttersControl.pm b/73_AutoShuttersControl.pm index 97467e7..3531d4d 100644 --- a/73_AutoShuttersControl.pm +++ b/73_AutoShuttersControl.pm @@ -296,13 +296,13 @@ sub Initialize($) { ## Da ich mit package arbeite müssen in die Initialize für die jeweiligen hash Fn Funktionen der Funktionsname # und davor mit :: getrennt der eigentliche package Name des Modules - $hash->{SetFn} = 'FHEM::AutoShuttersControl::Set'; - $hash->{GetFn} = 'FHEM::AutoShuttersControl::Get'; - $hash->{DefFn} = 'FHEM::AutoShuttersControl::Define'; - $hash->{NotifyFn} = 'FHEM::AutoShuttersControl::Notify'; - $hash->{UndefFn} = 'FHEM::AutoShuttersControl::Undef'; - $hash->{AttrFn} = 'FHEM::AutoShuttersControl::Attr'; - $hash->{AttrList} = + $hash->{SetFn} = 'FHEM::AutoShuttersControl::Set'; + $hash->{GetFn} = 'FHEM::AutoShuttersControl::Get'; + $hash->{DefFn} = 'FHEM::AutoShuttersControl::Define'; + $hash->{NotifyFn} = 'FHEM::AutoShuttersControl::Notify'; + $hash->{UndefFn} = 'FHEM::AutoShuttersControl::Undef'; + $hash->{AttrFn} = 'FHEM::AutoShuttersControl::Attr'; + $hash->{AttrList} = 'ASC_tempSensor ' . 'ASC_brightnessDriveUpDown ' . 'ASC_autoShuttersControlMorning:on,off ' @@ -322,8 +322,8 @@ sub Initialize($) { . 'ASC_blockAscDrivesAfterManual:0,1 ' . 'ASC_debug:1 ' . $readingFnAttributes; - $hash->{NotifyOrderPrefix} = '51-'; # Order Nummer für NotifyFn - $hash->{FW_detailFn} = 'FHEM::AutoShuttersControl::ShuttersInformation'; + $hash->{NotifyOrderPrefix} = '51-'; # Order Nummer für NotifyFn + $hash->{FW_detailFn} = 'FHEM::AutoShuttersControl::ShuttersInformation'; return FHEM::Meta::InitMod( __FILE__, $hash ); } @@ -3193,10 +3193,11 @@ sub CreateNewNotifyDev($) { sub ShuttersInformation($@) { - my ($FW_wname, $d, $room, $pageHash) = @_; + my ( $FW_wname, $d, $room, $pageHash ) = @_; my $hash = $defs{$d}; - my $ret = '

ASC Configuration and Information Summary

'; + my $ret = + '

ASC Configuration and Information Summary

'; $ret .= ''; $ret .= ''; $ret .= ""; @@ -4696,8 +4697,13 @@ sub getIsDay { sub getFreezeStatus { use POSIX qw(strftime); - my $self = shift; + my $self = shift; my $daytime = strftime( "%P", localtime() ); + $daytime = ( + defined($daytime) and $daytime + ? $daytime + : ( strftime( "%k", localtime() ) < 12 ? 'pm' : 'am' ) + ); my $outTemp = $ascDev->getOutTemp; $outTemp = $shutters->getOutTemp if ( $shutters->getOutTemp != -100 ); @@ -7891,7 +7897,7 @@ sub getblockAscDrivesAfterManual { ], "release_status": "testing", "license": "GPL_2", - "version": "v0.8.14", + "version": "v0.8.15", "author": [ "Marko Oldenburg " ],
Shutters