From f43704a4526ae38d24ab35be7af4f377e4588bca Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Wed, 23 Jul 2014 06:30:48 +0000
Subject: [PATCH] add lock as level to winmatic

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

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 8bb010656..6111554c4 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -3442,8 +3442,11 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
     my (undef,undef,$lvl,$rLocDly,$speed) = @a;
     $rLocDly = 111600 if (!defined($rLocDly)||$rLocDly eq "ignore");# defaults
     $speed   = 30     if (!defined($speed));
-
-    return "please enter level 0 to 100" if (!defined($lvl)    || $lvl !~ m/^\d*\.?\d?$/ || $lvl>100);
+    $lvl = 127.5 if ($lvl eq "lock");
+    return "please enter level 0 to 100 or lock" 
+                                         if (  !defined($lvl)           
+                                             || $lvl !~ m/^\d*\.?\d?$/  
+                                             || ($lvl > 100 && $lvl != 127.5));
     return "reloclDelay range 0..65535 or ignore"
                                          if ( $rLocDly > 111600 ||
                                              ($rLocDly < 0.1 &&  $rLocDly ne '0' ));