From 6b8112f3e7b358bb8daa6dadd7d099f288cc29af Mon Sep 17 00:00:00 2001
From: klaus-schauer <>
Date: Fri, 11 Jul 2014 14:52:22 +0000
Subject: [PATCH] 00_TCM: attr baseID added

git-svn-id: https://svn.fhem.de/fhem/trunk@6239 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_TCM.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/00_TCM.pm b/fhem/FHEM/00_TCM.pm
index 08f493fd9..7a3c44e47 100755
--- a/fhem/FHEM/00_TCM.pm
+++ b/fhem/FHEM/00_TCM.pm
@@ -901,7 +901,11 @@ sub TCM_Notify(@) {
         }
       }
     }
-    if ($comType ne "RS485" && $hash->{DeviceName} ne "none" && !defined(AttrVal($name, "baseID", undef))) {
+    my $baseID = AttrVal($name, "baseID", undef);
+    if (defined($baseID)) {
+      $hash->{BaseID} = $baseID;
+      $hash->{LastID} = sprintf "%08X", (hex $baseID) + 127;    
+    } elsif ($comType ne "RS485" && $hash->{DeviceName} ne "none") {
       my @getBaseID = ("get", "baseID");
       if (TCM_Get($hash, @getBaseID) =~ /[Ff]{2}[\dA-Fa-f]{6}/ ) {
         $hash->{BaseID} = sprintf "%08X", hex $&;