From 1219c54fd66c1e74d90d409dfe25e2cb0b9bca93 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 4 Jan 2016 22:04:18 +0000
Subject: [PATCH] 10_ZWave.pm: door patch by Andreas (Forum #46614)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10362 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_ZWave.pm | 23 ++++++++++++++---------
 1 file changed, 14 insertions(+), 9 deletions(-)

diff --git a/fhem/FHEM/10_ZWave.pm b/fhem/FHEM/10_ZWave.pm
index 36fceed12..d0b07b308 100755
--- a/fhem/FHEM/10_ZWave.pm
+++ b/fhem/FHEM/10_ZWave.pm
@@ -1509,16 +1509,21 @@ ZWave_DoorLockOperationSet($$)
   my ($hash, $arg) = @_;
   my $name = $hash->{NAME};
   
-  my $rt="01";
+  my $rt;
+  $rt = ($arg eq 'open')  ? "00" :
+        ($arg eq 'close') ? "FF" :
+        ($arg eq "00")    ? "00" :
+        ($arg eq "01")    ? "01" :
+        ($arg eq "10")    ? "10" :
+        ($arg eq "11")    ? "11" :
+        ($arg eq "20")    ? "20" :
+        ($arg eq "21")    ? "21" :
+        ($arg eq "FF")    ? "FF" : "";
   
-  if ($arg eq 'open') {
-    $rt .= "00";
-  } elsif ($arg eq 'close') {
-    $rt .= "FF";
-  } else {
-    $rt .= $arg;
-  }
-  return ("", $rt);
+  return ("DoorLockOperationSet: wrong parameter, see commandref")
+    if ($rt eq "");
+  
+  return ("", "01".$rt);
 }
 
 sub