From bd47ab9b17bd1f7fd7cfc03a5bc36aa7dbc5d6bb Mon Sep 17 00:00:00 2001 From: rudolfkoenig Date: Sun, 10 Oct 2010 13:36:10 +0000 Subject: [PATCH] Small changes git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@727 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/11_FHT8V.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/fhem/FHEM/11_FHT8V.pm b/fhem/FHEM/11_FHT8V.pm index aeab7d5e4..2a828bd7f 100755 --- a/fhem/FHEM/11_FHT8V.pm +++ b/fhem/FHEM/11_FHT8V.pm @@ -48,8 +48,8 @@ FHT8V_Define($$) return sprintf("Wrong housecode: must be one of$vals"); } - $hash->{ADDR} = uc($a[2]); - $hash->{IDX} = sprintf("%02X", $my1-$io1); + $hash->{addr} = uc($a[2]); + $hash->{idx} = sprintf("%02X", $my1-$io1); $hash->{STATE} = "defined"; return ""; } @@ -69,11 +69,11 @@ FHT8V_Set($@) if(@a != 3 || $a[2] !~ m/^\d+$/ || $a[2] < 0 || $a[2] > 100); Log GetLogLevel($n,3), "FHT8V set $n $arg $a[2]"; $hash->{STATE} = sprintf("%d %%", $a[2]); - IOWrite($hash, "", sprintf("T%s0026%02X", $hash->{ADDR}, $a[2]*2.55)); + IOWrite($hash, "", sprintf("T%s0026%02X", $hash->{addr}, $a[2]*2.55)); } elsif ($arg eq "pair" ) { Log GetLogLevel($n,3), "FHT8V set $n $arg"; - IOWrite($hash, "", sprintf("T%s002f00", $hash->{ADDR})); + IOWrite($hash, "", sprintf("T%s002f00", $hash->{addr})); } else { return "Unknown argument $a[1], choose one of valve pair" @@ -95,7 +95,7 @@ FHT8V_Get($@) if($arg eq "valve" ) { my $io = $hash->{IODev}; my $msg = CallFn($io->{NAME}, "GetFn", $io, (" ", "raw", "T10")); - my $idx = $hash->{IDX}; + my $idx = $hash->{idx}; return int(hex($1)/2.55) if($msg =~ m/$idx:26(..)/); return "N/A";