FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 18:59:33 +00:00
Code Issues Releases Wiki Activity

94_PWM.pm : fix content of IODev to support xmllist

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10641 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jamesgo 2016-01-26 18:23:40 +00:00
parent be1563f284
commit ee82d31e47
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/contrib/94_PWM.pm
View File

@ -13,6 +13,8 @@
# 22.10.15 GA add new definition for overall heating switch. Decision now based on threshold for pulseMax # 22.10.15 GA add new definition for overall heating switch. Decision now based on threshold for pulseMax
# 30.11.15 GA add new definition for overall heating switch. based on pulseMax or roomsOn # 30.11.15 GA add new definition for overall heating switch. based on pulseMax or roomsOn
# 30.11.15 GA add new followUpTime can now delay switching of OverallHeatingSwitch from "on" to "off" # 30.11.15 GA add new followUpTime can now delay switching of OverallHeatingSwitch from "on" to "off"
# 26.01.16 GA fix don't call AssignIoPort
# 26.01.16 GA fix IODev from PWMR object is now a reference to PWM object
############################################## ##############################################
# $Id: # $Id:
@ -107,7 +109,9 @@ PWM_Calculate($)
foreach my $d (sort keys %defs) { foreach my $d (sort keys %defs) {
if ( (defined ($defs{$d}{TYPE})) && $defs{$d}{TYPE} eq "PWMR" ) { # all PWMR objects if ( (defined ($defs{$d}{TYPE})) && $defs{$d}{TYPE} eq "PWMR" ) { # all PWMR objects
if (!defined ($attr{$d}{disable}) or $attr{$d}{disable} == 0) { # not disabled if (!defined ($attr{$d}{disable}) or $attr{$d}{disable} == 0) { # not disabled
if ($hash->{NAME} eq $defs{$d}{IODev}) { # referencing to this fb #if ($hash->{NAME} eq $defs{$d}{IODev}) { # referencing to this fb
#if ($hash->{NAME} eq $defs{$d}{IODev}{NAME}) { # referencing to this fb
if ($hash->{NAME} eq $defs{$d}{IODev}->{NAME}) { # referencing to this fb
Log3 ($hash, 4, "PWM_Calculate calc $name, room $d"); Log3 ($hash, 4, "PWM_Calculate calc $name, room $d");
@ -774,7 +778,7 @@ PWM_Define($$)
readingsSingleUpdate ($hash, "OverallHeatingSwitch", "", 0); readingsSingleUpdate ($hash, "OverallHeatingSwitch", "", 0);
} }
AssignIoPort($hash); #AssignIoPort($hash);
if($hash->{INTERVAL} > 0) { if($hash->{INTERVAL} > 0) {
InternalTimer(gettimeofday() + 10, "PWM_Calculate", $hash, 0); InternalTimer(gettimeofday() + 10, "PWM_Calculate", $hash, 0);