From 9f92772f800a56bd1e394857442db9a7afca0b78 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 10 Feb 2017 19:57:00 +0000
Subject: [PATCH] 01_FHEMWEB.pm: add $NAME to the sortby evaluation (Forum
 #59883)

git-svn-id: https://svn.fhem.de/fhem/trunk@13379 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/01_FHEMWEB.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/01_FHEMWEB.pm b/fhem/FHEM/01_FHEMWEB.pm
index 99ef5f687..198c684c6 100755
--- a/fhem/FHEM/01_FHEMWEB.pm
+++ b/fhem/FHEM/01_FHEMWEB.pm
@@ -1698,7 +1698,12 @@ FW_sortIndex($)
 
   my $val = $attr{$d}{sortby};
   if($val) {
-    return $val =~ m/^{.*}/ ? AnalyzePerlCommand($FW_chash, $val) : lc($val);
+    if($val =~ m/^{.*}/) {
+      my %specials=("%NAME" => $d);
+      my $exec = EvalSpecials($val, %specials);
+      return AnalyzePerlCommand($FW_chash, $exec);
+    }
+    return lc($val);
   }
 
   if($FW_room) {
@@ -3663,7 +3668,7 @@ FW_widgetOverride($$)
         Take the value of this attribute when sorting the devices in the room
         overview instead of the alias, or if that is missing the devicename
         itself. If the sortby value is enclosed in {} than it is evaluated as a
-        perl expression.
+        perl expression. $NAME is set to the device name.
         </li>
         <br>
 
@@ -4394,7 +4399,7 @@ FW_widgetOverride($$)
         R&auml;umen verwendet, sonst w&auml;re es der Alias oder, wenn keiner
         da ist, der Ger&auml;tename selbst. Falls der Wert des sortby
         Attributes in {} eingeschlossen ist, dann wird er als ein perl Ausdruck
-        evaluiert.
+        evaluiert. $NAME wird auf dem Ger&auml;tenamen gesetzt.
         </li><br>
 
     <a name="showUsedFiles"></a>