diff --git a/FHEM/00_TCM.pm b/FHEM/00_TCM.pm index 9ca4cb5a0..0d8737985 100755 --- a/FHEM/00_TCM.pm +++ b/FHEM/00_TCM.pm @@ -590,13 +590,13 @@ sub TCM_RemovePair($) { my $hash = shift; - delete($hash->{pair}); - CommandDeleteReading(undef, "$hash->{NAME} pair"); + delete($hash->{Teach}); } # Set commands TCM 120 my %sets120 = ( # Name, Data to send to the CUL, Regexp for the answer "pairForSec" => { cmd => "AB18", arg => "\\d+" }, + "teach" => { cmd => "AB18", arg => "\\d+" }, "idbase" => { cmd => "AB18", arg => "FF[8-9A-F][0-9A-F]{5}" }, "baseID" => { cmd => "AB18", arg => "FF[8-9A-F][0-9A-F]{5}" }, "sensitivity" => { cmd => "AB08", arg => "0[01]" }, @@ -610,6 +610,7 @@ my %sets120 = ( # Name, Data to send to the CUL, Regexp for the answer # Set commands TCM 310 my %sets310 = ( "pairForSec" => { cmd => "AB18", arg=> "\\d+" }, + "teach" => { cmd => "AB18", arg=> "\\d+" }, "sleep" => { cmd => "01", arg => "00[0-9A-F]{6}" }, "reset" => { cmd => "02" }, "bist" => { cmd => "06", BIST_Result => "1,1", }, @@ -646,9 +647,8 @@ TCM_Set($@) $cmdHex .= $arg; } - if($cmd eq "pairForSec") { - $hash->{pair} = 1; - readingsSingleUpdate($hash, "pair", 1, 1); + if($cmd eq "pairForSec" || $cmd eq "teach") { + $hash->{Teach} = 1; InternalTimer(gettimeofday()+$arg, "TCM_RemovePair", $hash, 1); return; } @@ -849,11 +849,11 @@ TCM_Undef($$) Deactivates TCM modem functionality