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

HMCCU: Bugfix

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12170 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
fhemzap 2016-09-18 16:07:02 +00:00
parent 1443e54648
commit 318e1f383d
3 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/CHANGED
View File

@ -1,5 +1,7 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # 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. # Do not insert empty lines here, update check depends on it.
- bugfix: 88_HMCCUCHN: fixed bug in toggle command
- bugfix: 88_HMCCUDEV: fixed bug in toggle command
- bugfix: 98_DLNARenderer: fixed SyncPlay for CaskeId players - bugfix: 98_DLNARenderer: fixed SyncPlay for CaskeId players
- change: 10_ZWAVE: TRANSMIT_NO_ACK is reading only (Forum #57781) - change: 10_ZWAVE: TRANSMIT_NO_ACK is reading only (Forum #57781)
- feature: 93_DbRep: new attr readingPreventFromDel to prevent readings from - feature: 93_DbRep: new attr readingPreventFromDel to prevent readings from

8
fhem/FHEM/88_HMCCUCHN.pm
View File

@ -268,7 +268,7 @@ sub HMCCUCHN_Set ($@)
my $tstates = $hash->{statevals}; my $tstates = $hash->{statevals};
$tstates =~ s/devstate\|//; $tstates =~ s/devstate\|//;
my @states = split /\|/, $tstates; my @states = split /\|/, $tstates;
my $sc = scalar (@states); my $stc = scalar (@states);
my $objname = $ccuif.'.'.$ccuaddr.'.'.$sd; my $objname = $ccuif.'.'.$ccuaddr.'.'.$sd;
($rc, $result) = HMCCU_GetDatapoint ($hash, $objname); ($rc, $result) = HMCCU_GetDatapoint ($hash, $objname);
@ -276,9 +276,9 @@ sub HMCCUCHN_Set ($@)
my $objvalue = ''; my $objvalue = '';
my $st = 0; my $st = 0;
while ($st < $sc) { while ($st < $stc) {
if ($states[$st] eq $result) { if ($states[$st] eq $result) {
$objvalue = ($st == $sc-1) ? $states[0] : $states[$st+1]; $objvalue = ($st == $stc-1) ? $states[0] : $states[$st+1];
last; last;
} }
else { else {
@ -589,7 +589,7 @@ sub HMCCUCHN_SetError ($$)
[...]</b><br/> [...]</b><br/>
Set config parameters of CCU channel. This is equal to setting device parameters in CCU. Set config parameters of CCU channel. This is equal to setting device parameters in CCU.
Valid parameters can be listed by using command 'get configdesc'. Valid parameters can be listed by using command 'get configdesc'.
</li> </li><br/>
<li><b>set &lt;name&gt; datapoint &lt;datapoint&gt; &lt;value&gt;</b><br/> <li><b>set &lt;name&gt; datapoint &lt;datapoint&gt; &lt;value&gt;</b><br/>
Set value of a datapoint of a CCU channel. If parameter <i>value</i> contains special Set value of a datapoint of a CCU channel. If parameter <i>value</i> contains special
character \_ it's substituted by blank. character \_ it's substituted by blank.

6
fhem/FHEM/88_HMCCUDEV.pm
View File

@ -374,7 +374,7 @@ sub HMCCUDEV_Set ($@)
my $tstates = $hash->{statevals}; my $tstates = $hash->{statevals};
$tstates =~ s/devstate\|//; $tstates =~ s/devstate\|//;
my @states = split /\|/, $tstates; my @states = split /\|/, $tstates;
my $sc = scalar (@states); my $stc = scalar (@states);
my $objname = $ccuif.'.'.$ccuaddr.':'.$sc.'.'.$sd; my $objname = $ccuif.'.'.$ccuaddr.':'.$sc.'.'.$sd;
@ -384,9 +384,9 @@ sub HMCCUDEV_Set ($@)
my $objvalue = ''; my $objvalue = '';
my $st = 0; my $st = 0;
while ($st < $sc) { while ($st < $stc) {
if ($states[$st] eq $result) { if ($states[$st] eq $result) {
$objvalue = ($st == $sc-1) ? $states[0] : $states[$st+1]; $objvalue = ($st == $stc-1) ? $states[0] : $states[$st+1];
last; last;
} }
else { else {