From d6882463dce8f452e29533dc5ed9d9dd13590509 Mon Sep 17 00:00:00 2001
From: klaus-schauer <klaus-schauer@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 22 Mar 2013 06:03:51 +0000
Subject: [PATCH] Schorch M.: dispatch corrections

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@2964 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_TCM.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/fhem/FHEM/00_TCM.pm b/fhem/FHEM/00_TCM.pm
index 35c7b70cc..461ed9ab7 100755
--- a/fhem/FHEM/00_TCM.pm
+++ b/fhem/FHEM/00_TCM.pm
@@ -1,5 +1,6 @@
 ##############################################
 # $Id$
+
 package main;
 
 # by r.koenig at koeniglich.de
@@ -270,6 +271,12 @@ TCM_Read($)
 
         Dispatch($hash, "EnOcean:$org:$d1:$id:$status:$odata", \%addvals);
 
+        # Schorsch M: dispatch corrections
+        if(!Dispatch($hash, "EnOcean:$org:$d1:$id:$status:$odata", \%addvals)) {
+          Log 1 , "Dispatch was called devices was not defined call Dispatch again";
+          Dispatch($hash, "EnOcean:$org:$d1:$id:$status:$odata", \%addvals);
+        }
+
       } elsif($t eq "02") {
         my $rc = substr($mdata, 0, 2);
         my %codes = (