FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-09 14:47:00 +00:00
Code Issues Releases Wiki Activity

73_AutoShuttersControl: fix Can't locate object method

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@22028 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
LeonGaultier 2020-05-25 11:22:29 +00:00
parent f9af673cdd
commit cb92a29a2b
2 changed files with 28 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it.
- bugfix: 73_AutoShuttersControl: fix Can't locate object method
- new: 60_Watches: little helper module for some kind of watches or
digital text display, Forum: #93454
- changed: 57_SSCal: changes according to PBP, switch to packages, minor fixes

40
fhem/FHEM/73_AutoShuttersControl.pm
View File

@ -2151,7 +2151,10 @@ sub EventProcessingShadingBrightness {
my $name = $hash->{NAME};
$shutters->setShuttersDev($shuttersDev);
my $reading = $shutters->getBrightnessReading;
my $outTemp = ( $shutters->getOutTemp != -100 ? $shutters->getOutTemp : $ascDev->getOutTemp );
my $outTemp =
( $shutters->getOutTemp != -100
? $shutters->getOutTemp
: $ascDev->getOutTemp );
Log3( $name, 4,
"AutoShuttersControl ($shuttersDev) - EventProcessingShadingBrightness"
@ -2222,16 +2225,16 @@ sub EventProcessingTwilightDevice {
);
if ( $events =~ m{(azimuth|elevation|SunAz|SunAlt):\s(\d+.\d+)}xms ) {
my $name = $device;
my $name = $device;
my ( $azimuth, $elevation );
my $outTemp = $ascDev->getOutTemp;
$azimuth = $2 if ( $1 eq 'azimuth' || $1 eq 'SunAz' );
$elevation = $2 if ( $1 eq 'elevation' || $1 eq 'SunAlt' );
$azimuth = $2 if ( $1 eq 'azimuth' || $1 eq 'SunAz' );
$elevation = $2 if ( $1 eq 'elevation' || $1 eq 'SunAlt' );
$azimuth = $ascDev->getAzimuth
$azimuth = $ascDev->getAzimuth
if ( !defined($azimuth) && !$azimuth );
$elevation = $ascDev->getElevation
$elevation = $ascDev->getElevation
if ( !defined($elevation) && !$elevation );
ASC_Debug( 'EventProcessingTwilightDevice: '
@ -2343,10 +2346,10 @@ sub ShadingProcessing {
. $shuttersDev
. " Nach dem return" );
my $getShadingPos = $shutters->getShadingPos;
my $getStatus = $shutters->getStatus;
my $oldShadingStatus = $shutters->getShadingStatus;
my $homemode = $shutters->getHomemode;
my $getShadingPos = $shutters->getShadingPos;
my $getStatus = $shutters->getStatus;
my $oldShadingStatus = $shutters->getShadingStatus;
my $homemode = $shutters->getHomemode;
ASC_Debug( 'ShadingProcessing: '
. $shutters->getShuttersDev
@ -2776,9 +2779,11 @@ sub EventProcessingExternalTriggerDevice {
$shutters->setLastDrive('external trigger device inactive');
$shutters->setNoDelay(1);
$shutters->setExternalTriggerState(1);
ShuttersCommandSet( $hash, $shuttersDev,
ShuttersCommandSet(
$hash,
$shuttersDev,
(
$shutters->getIsDay
$shutters->getIsDay
? $triggerPosInactive
: $shutters->getClosedPos
)
@ -5002,6 +5007,15 @@ sub setAdvDelay {
return;
}
sub getHomemode {
my $self = shift;
my $homemode = $shutters->getRoommatesStatus;
$homemode = $ascDev->getResidentsStatus
if ( $homemode eq 'none' );
return $homemode;
}
sub getAdvDelay {
my $self = shift;
@ -8440,7 +8454,7 @@ sub getBlockAscDrivesAfterManual {
],
"release_status": "testing",
"license": "GPL_2",
"version": "v0.8.30",
"version": "v0.8.31",
"author": [
"Marko Oldenburg <leongaultier@gmail.com>"
],