FHEM/mod-AutoShuttersControl
1
0
Fork 0
Code Issues 12 Pull Requests Releases 9 Wiki Activity

add more shading information at shutters

Browse Source
This commit is contained in:
Marko Oldenburg 2020-04-19 17:38:43 +02:00
parent 63ec20cde6
commit fc81592a32
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
73_AutoShuttersControl.pm
View File

@ -45,6 +45,7 @@ package main;
use strict; use strict;
use warnings; use warnings;
use utf8;
sub ascAPIget { sub ascAPIget {
my ( $getCommand, $shutterDev, $value ) = @_; my ( $getCommand, $shutterDev, $value ) = @_;
@ -59,6 +60,7 @@ use strict;
use warnings; use warnings;
use POSIX qw(strftime); use POSIX qw(strftime);
use utf8; use utf8;
use Encode; use Encode;
use FHEM::Meta; use FHEM::Meta;
use GPUtils qw(GP_Import GP_Export); use GPUtils qw(GP_Import GP_Export);
@ -4736,7 +4738,8 @@ sub _CheckASC_ConditionsForShadingFn {
my $error; my $error;
$error .= ' no valid data from the ASC temperature sensor, is ASC_tempSensor attribut set?' $error .=
' no valid data from the ASC temperature sensor, is ASC_tempSensor attribut set?'
if ( $ascDev->getOutTemp == -100 ); if ( $ascDev->getOutTemp == -100 );
$error .= ' no twilight device found' $error .= ' no twilight device found'
if ( $ascDev->_getTwilightDevice eq 'none' ); if ( $ascDev->_getTwilightDevice eq 'none' );
@ -4786,7 +4789,13 @@ sub _CheckShuttersConditionsForShadingFn {
$shutters->getShadingMode ne 'off' $shutters->getShadingMode ne 'off'
&& $ascDev->getAutoShuttersControlShading ne 'on' && $ascDev->getAutoShuttersControlShading ne 'on'
&& $ascDev->getAutoShuttersControlShading ne 'off' && $ascDev->getAutoShuttersControlShading ne 'off'
? ' ASC_Shading_Mode attribut is set but global shading has errors, look at ASC device' ? ' ASC_Shading_Mode attribut is set but global shading has errors, look at ASC device '
. '<a href="'
. '/fhem?detail='
. ReadingsVal( $shuttersDev, 'associatedWith', 'ASC device' )
. $::FW_CSRF . '">'
. ReadingsVal( $shuttersDev, 'associatedWith', 'ASC device' )
. '</a>'
: '' : ''
); );
@ -4802,7 +4811,8 @@ sub _CheckShuttersConditionsForShadingFn {
if ( defined($infoMessage) if ( defined($infoMessage)
&& $infoMessage ne '' ); && $infoMessage ne '' );
readingsSingleUpdate( $shuttersDevHash, 'ASC_ShadingMessage', $message, 1 ); readingsSingleUpdate( $shuttersDevHash, 'ASC_ShadingMessage',
'<html>' . $message . ' </html>', 1 );
} }
###################################### ######################################
@ -7121,6 +7131,11 @@ sub getASCenable {
## Klasse Fenster (Window) und die Subklassen Attr und Readings ## ## Klasse Fenster (Window) und die Subklassen Attr und Readings ##
package ASC_Window; package ASC_Window;
use strict;
use warnings;
use utf8;
our @ISA = qw(ASC_Window::Attr ASC_Window::Readings); our @ISA = qw(ASC_Window::Attr ASC_Window::Readings);
## Subklasse Attr von Klasse ASC_Window ## ## Subklasse Attr von Klasse ASC_Window ##
@ -8781,7 +8796,7 @@ sub getBlockAscDrivesAfterManual {
], ],
"release_status": "testing", "release_status": "testing",
"license": "GPL_2", "license": "GPL_2",
"version": "v0.9.11", "version": "v0.9.12",
"author": [ "author": [
"Marko Oldenburg <leongaultier@gmail.com>" "Marko Oldenburg <leongaultier@gmail.com>"
], ],