From 793e74efdad5a6e97a3e92b25345c98f6a4fc9d2 Mon Sep 17 00:00:00 2001
From: martinp876 <martinp876@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 18 Nov 2013 09:12:12 +0000
Subject: [PATCH] correct SD peering with virtual master

git-svn-id: https://svn.fhem.de/fhem/trunk@4244 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 9c5e9dee7..757643240 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -3135,7 +3135,8 @@ sub CUL_HM_Set($@) {
 	return "use - single [set|unset] actor - for smoke detector"  if( $st eq "smokeDetector"       && (!$single || $single ne "single" || $target ne "actor"));
 	return "use - single - for ".$st                              if(($st =~ m/(threeStateSensor|thermostat|motionDetector)/)
 	                                                                      && (!$single || $single ne "single"));
-
+	my $pSt = CUL_HM_Get($peerHash,$peerHash->{NAME},"param","subType");
+	
 	$single = ($single eq "single")?1:"";#default to dual
 	$set = ($set && $set eq "unset")?0:1;
 
@@ -3143,17 +3144,17 @@ sub CUL_HM_Set($@) {
 	$b1 = ($roleC) ? hex($myBtn) : ($single?$bNo : ($bNo*2 - 1));
 	if ($single){
 	  $b2 = $b1;
-	  $b1 = 0 if ($st eq "smokeDetector");
+	  $b1 = 0 if ($st eq "smokeDetector" ||$pSt eq "smokeDetector");
 	  $nrCh2Pair = 1;
 	}
 	else{
 	  $b2 = $b1 + 1;
 	  $nrCh2Pair = 2;
 	}
+	$target = "both" if ($st eq "virtual" && $pSt eq "smokeDetector");
 	my $cmdB = ($set)?"01":"02";# do we set or remove?
 
     # First the remote (one loop for on, one for off)
-	my $pSt = CUL_HM_Get($peerHash,$peerHash->{NAME},"param","subType");
 	if (!$target || $target =~ m/^(remote|both)$/){
 	  my $burst = ($pSt eq "thermostat"?"0101":"0100");#set burst for target 
 	  my $pnb = 1 if ($culHmRegModel{$md}{peerNeedsBurst}|| #supported?