From 9e6152201724fbb1b6968d4f52cff060bf4dfcaa Mon Sep 17 00:00:00 2001
From: Ellert <Ellert@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 26 Feb 2017 12:30:29 +0000
Subject: [PATCH] 98_DOIFtools.pm: add a possibility to set the attribute icon
 for DOIF by multiselect to helper_doif, DOIF's new icon D[:]IF

git-svn-id: https://svn.fhem.de/fhem/trunk@13525 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED              |  2 ++
 fhem/FHEM/98_DOIFtools.pm | 13 ++++++++++---
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 273d2e47d..cc365f2d4 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,7 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - update:  98_DOIFtools: add a possibility to set the attribute icon for DOIF
+                by multiselect to helper_doif, DOIF's new icon D[:]IF
   - update:  38_netatmo.pm: API changes
   - new:     34_ESPEasy.pm: initial check in
   - bugfix:  38_netatmo.pm: fixed error crash
diff --git a/fhem/FHEM/98_DOIFtools.pm b/fhem/FHEM/98_DOIFtools.pm
index e20cf4372..1992b18e5 100644
--- a/fhem/FHEM/98_DOIFtools.pm
+++ b/fhem/FHEM/98_DOIFtools.pm
@@ -258,8 +258,8 @@ sub DOIFtools_logWrapper($) {
 
     FW_pO "<div id=\"content\">";
     FW_pO "<div class=\"tiny\">" if($FW_ss);
-    FW_pO "<pre class=\"log\"><b>jump to: <a name='top'></a><a href=\"#end_of_file\">the end</a> <a href=\"#listing\">first listing</a></b><br>";
-    my $suffix = "<br/><b>jump to: <a name='end_of_file'></a><a href='#top'>the top</a> <a href=\"#listing\">first listing</a></b><br/></pre>".($FW_ss ? "</div>" : "")."</div>";
+    FW_pO "<pre class=\"log\"><b>jump to: <a name='top'></a><a href=\"#end_of_file\">the end</a> <a href=\"#listing\">top listing</a></b><br>";
+    my $suffix = "<br/><b>jump to: <a name='end_of_file'></a><a href='#top'>the top</a> <a href=\"#listing\">top listing</a></b><br/></pre>".($FW_ss ? "</div>" : "")."</div>";
 
     my $reverseLogs = AttrVal($FW_wname, "reverseLogs", 0);
     if(!$reverseLogs) {
@@ -1296,9 +1296,13 @@ sub DOIFtools_Get($@)
       $ret = $ret ? "Found running wait_timer for:\n\n$ret" : "No running wait_timer found.";
       return $ret;
       
+  } elsif ($arg eq "SetAttrIconForDOIF") {
+      $ret .= CommandAttr(undef,"$value icon helper_doif");
+      $ret .= CommandSave(undef,undef) if (AttrVal($pn,"DOIFtoolsExecuteSave",""));
+      return $ret;
   } else {
       my $hardcoded = "checkDOIF:noArg statisticsReport:noArg runningTimerInDOIF:noArg";
-      return "unknown argument $arg for $pn, choose one of readingsGroup_for:multiple-strict,$dL DOIF_to_Log:multiple-strict,$dL userReading_nextTimer_for:multiple-strict,$ntL ".(AttrVal($pn,"DOIFtoolsHideGetSet",0) ? $hardcoded :"");
+      return "unknown argument $arg for $pn, choose one of readingsGroup_for:multiple-strict,$dL DOIF_to_Log:multiple-strict,$dL SetAttrIconForDOIF:multiple-strict,$dL userReading_nextTimer_for:multiple-strict,$ntL ".(AttrVal($pn,"DOIFtoolsHideGetSet",0) ? $hardcoded :"");
   } 
 
   return $ret;
@@ -1465,6 +1469,9 @@ DOIFtools stellt Funktionen zur Unterstützung von DOIF-Geräten bereit.<br>
         <code>get &lt;name&gt; runningTimerInDOIF</code><br>
         <b>runningTimerInDOIF</b> zeigt eine Liste der laufenden Timer. Damit kann entschieden werden, ob bei einem Neustart wichtige Timer gelöscht werden und der Neustart ggf. verschoben werden sollte.<br>
         <br>
+        <code>get &lt;name&gt; SetAttrIconForDOIF &lt;DOIF names for setting the attribute icon to helper_doif&gt;</code><br>
+        <b>SetAttrIconForDOIF</b> setzt für die ausgewählten DOIF das Attribut <i>icon</i> auf <i>helper_doif</i>.<br>
+        <br>
     </ul>
 
 <a name="DOIFtoolsAttribute"></a>