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.
# 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
- change: 10_ZWAVE: TRANSMIT_NO_ACK is reading only (Forum #57781)
- 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};
$tstates =~ s/devstate\|//;
my @states = split /\|/, $tstates;
my $sc = scalar (@states);
my $stc = scalar (@states);
my $objname = $ccuif.'.'.$ccuaddr.'.'.$sd;
($rc, $result) = HMCCU_GetDatapoint ($hash, $objname);
@ -276,9 +276,9 @@ sub HMCCUCHN_Set ($@)
my $objvalue = '';
my $st = 0;
while ($st < $sc) {
while ($st < $stc) {
if ($states[$st] eq $result) {
$objvalue = ($st == $sc-1) ? $states[0] : $states[$st+1];
$objvalue = ($st == $stc-1) ? $states[0] : $states[$st+1];
last;
}
else {
@ -589,7 +589,7 @@ sub HMCCUCHN_SetError ($$)
[...]</b><br/>
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'.
</li>
</li><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
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};
$tstates =~ s/devstate\|//;
my @states = split /\|/, $tstates;
my $sc = scalar (@states);
my $stc = scalar (@states);
my $objname = $ccuif.'.'.$ccuaddr.':'.$sc.'.'.$sd;
@ -384,9 +384,9 @@ sub HMCCUDEV_Set ($@)
my $objvalue = '';
my $st = 0;
while ($st < $sc) {
while ($st < $stc) {
if ($states[$st] eq $result) {
$objvalue = ($st == $sc-1) ? $states[0] : $states[$st+1];
$objvalue = ($st == $stc-1) ? $states[0] : $states[$st+1];
last;
}
else {