From 9a3cc564532b1f211e2cd032de55b88b4ca6effe Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 13 Apr 2016 08:13:30 +0000
Subject: [PATCH] fhem.pl: document [device:reading:d] (Forum #52092)

git-svn-id: https://svn.fhem.de/fhem/trunk@11236 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/docs/commandref_frame.html    | 2 ++
 fhem/docs/commandref_frame_DE.html | 2 ++
 fhem/fhem.pl                       | 2 +-
 3 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/fhem/docs/commandref_frame.html b/fhem/docs/commandref_frame.html
index 1aaf99c8a..e788aab68 100644
--- a/fhem/docs/commandref_frame.html
+++ b/fhem/docs/commandref_frame.html
@@ -1103,6 +1103,8 @@ The following local attributes are used by a wider range of devices:
   <ul>
   <li>[device:reading] with the corresponding reading of device, if both device
     and reading exists.</li>
+  <li>[device:reading:d] same as above, but only the number is retrieved, see
+     ReadingsNum </li>
   <li>{(perlExpression)} with the result of perlExpression, if the expression
     does not generates an error.</li>
   </ul>
diff --git a/fhem/docs/commandref_frame_DE.html b/fhem/docs/commandref_frame_DE.html
index 03cd908b2..2b2d74bf3 100644
--- a/fhem/docs/commandref_frame_DE.html
+++ b/fhem/docs/commandref_frame_DE.html
@@ -1113,6 +1113,8 @@ Die folgenden lokalen Attribute werden von mehreren Ger&auml;ten verwendet:
   <ul>
   <li>[device:reading] mit dem Wert des Readings f&uuml;r device, falls sowohl
     device, als auch Reading existiert, und nicht leer ist.</li>
+  <li>[device:reading:d] wie ohne :d, aber alles nicht-numerische wird
+    entfernt, siehe ReadingsNum</li>
   <li>{(perlExpression)} mit dem Ergebnis der perlExpression, falls der Ausdruck
     keinen Fehler generiert.</li>
   </ul>
diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index e68522c98..3eb370574 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -1543,7 +1543,7 @@ ReplaceSetMagic($$@)       # Forum #38276
   my $a = join(" ", @_);
   my $oa = $a;
 
-  $a =~ s/\[([a-z0-9._]+):([A-z0-9._]+)(:d)?\]/{
+  $a =~ s/\[([a-z0-9._]+):([a-z0-9._-]+)(:d)?\]/{
     my $x = $3 ? ReadingsNum($1,$2,"") : ReadingsVal($1,$2,"");
     $x eq "" ? "[$1:$2$3]" : $x
   }/egi;