From 04e0b70ab0f82e8160fc1d0aaf312792ac36b183 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Mon, 30 Jul 2018 09:46:17 +0000
Subject: [PATCH] 90_atp.pm: add $readingFnAttributes (Forum #89791)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@17051 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/90_at.pm | 9 ++++++++-
 fhem.pl       | 4 ++--
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/FHEM/90_at.pm b/FHEM/90_at.pm
index ebf6b4513..4179f0ada 100644
--- a/FHEM/90_at.pm
+++ b/FHEM/90_at.pm
@@ -18,7 +18,7 @@ at_Initialize($)
   $hash->{SetFn}    = "at_Set";
   $hash->{AttrFn}   = "at_Attr";
   $hash->{StateFn}  = "at_State";
-  $hash->{AttrList} = "disable:0,1 disabledForIntervals ".
+  $hash->{AttrList} = "disable:0,1 disabledForIntervals $readingFnAttributes ".
                         "skip_next:0,1 alignTime computeAfterInit";
   $hash->{FW_detailFn} = "at_fhemwebFn";
 }
@@ -294,6 +294,12 @@ at_Attr(@)
     return $ret if($ret);
   }
 
+  if($cmd eq "set" && $attrName eq "stateFormat" && !$init_done) {
+    $attr{$name}{stateFormat} = $attrVal;
+    evalStateFormat($hash);
+    return undef;
+  }
+
   if($cmd eq "set" && $attrName eq "disable") {
     $do = (!defined($attrVal) || $attrVal) ? 1 : 2;
   }
@@ -761,6 +767,7 @@ EOF
         &uuml;berspringen</li><br>
 
     <li><a href="#perlSyntaxCheck">perlSyntaxCheck</a></li>
+    <li><a href="#readingFnAttributes">readingFnAttributes</a></li>
 
   </ul>
   <br>
diff --git a/fhem.pl b/fhem.pl
index 066917393..fb09429aa 100755
--- a/fhem.pl
+++ b/fhem.pl
@@ -3987,8 +3987,8 @@ attrSplit($)
 }
 
 #######################
-# $dir: 0: User to Device (i.e. set) 1: Device to Usr (i.e trigger)
-# $dir: 0: $str is an array pointer  1: $str is a a string
+# $dir: 0: User to Device (i.e. set), $str is an array pointer 
+# $dir: 1: Device to Usr (i.e trigger), $str is a a string
 sub
 ReplaceEventMap($$$)
 {