Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code

minor fixes

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@4735 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2014-01-25 13:18:15 +00:00
parent ee0df48468
commit 438ef40a1b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
FHEM/10_CUL_HM.pm
View File

@ -1584,6 +1584,7 @@ sub CUL_HM_Parse($$) {##############################
my ($d1,$vp) =($1,hex($2)); # adjust_command[0..4] adj_data[0..250] my ($d1,$vp) =($1,hex($2)); # adjust_command[0..4] adj_data[0..250]
$vp = int($vp/2.56+0.5); # valve position in % $vp = int($vp/2.56+0.5); # valve position in %
my $chnHash = $modules{CUL_HM}{defptr}{$dst."01"}; my $chnHash = $modules{CUL_HM}{defptr}{$dst."01"};
$chnHash = $dhash if (!$chnHash);
push @entities, CUL_HM_UpdtReadBulk($chnHash,1,"ValvePosition:$vp %", push @entities, CUL_HM_UpdtReadBulk($chnHash,1,"ValvePosition:$vp %",
"ValveAdjCmd:".$d1); "ValveAdjCmd:".$d1);
push @ack,$chnHash,$mNo."8002".$dst.$src.'0101'. push @ack,$chnHash,$mNo."8002".$dst.$src.'0101'.

3
FHEM/98_HMinfo.pm
View File

@ -151,7 +151,6 @@ sub HMinfo_regCheck(@) { ######################################################
if ( !$ehash->{READINGS}{$rNm} if ( !$ehash->{READINGS}{$rNm}
|| !$ehash->{READINGS}{$rNm}{VAL}) {push @mReg, $rNm;} || !$ehash->{READINGS}{$rNm}{VAL}) {push @mReg, $rNm;}
elsif ( $ehash->{READINGS}{$rNm}{VAL} !~ m/00:00/){push @iReg, $rNm;} elsif ( $ehash->{READINGS}{$rNm}{VAL} !~ m/00:00/){push @iReg, $rNm;}
if ($ehash->{helper}{shadowReg} && keys %{$ehash->{helper}{shadowReg}}){push @iReg, $rNm;}
} }
push @regChPend,$eName if ($ehash->{helper}{shadowReg} && push @regChPend,$eName if ($ehash->{helper}{shadowReg} &&
keys %{$ehash->{helper}{shadowReg}}); keys %{$ehash->{helper}{shadowReg}});
@ -561,7 +560,7 @@ sub HMinfo_SetFn($@) {#########################################################
for (1..9){ for (1..9){
my ($x) = $pl[$_] =~ /(\d+)/; my ($x) = $pl[$_] =~ /(\d+)/;
$plSum[$_] += $x; $plSumf[$_] += $x;
} }
if ($type eq "short"){ if ($type eq "short"){
push @paramList, sprintf("%-20s%-17s|%-10s|%-10s|%-10s#%-10s|%-10s|%-10s|%-10s", push @paramList, sprintf("%-20s%-17s|%-10s|%-10s|%-10s#%-10s|%-10s|%-10s|%-10s",