From 9e5d3c51f55169b350b036c5d9c627b5c8ca2e14 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 5 Dec 2014 21:11:17 +0000
Subject: [PATCH] 91_notify.pm/92_FileLog.pm: avoid warnings in detail window
 if eventTypes is empty

git-svn-id: https://svn.fhem.de/fhem/trunk@7135 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/91_notify.pm  | 7 +++++--
 fhem/FHEM/92_FileLog.pm | 7 +++++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/fhem/FHEM/91_notify.pm b/fhem/FHEM/91_notify.pm
index d73a66854..1936d8bd3 100755
--- a/fhem/FHEM/91_notify.pm
+++ b/fhem/FHEM/91_notify.pm
@@ -190,7 +190,9 @@ notify_fhemwebFn($$$$)
                   1, undef, 1);
   } else {
     my %dh;
-    foreach my $l (split("\n", AnalyzeCommand(undef, "get $et[0] list"))) {
+    my $etList = AnalyzeCommand(undef, "get $et[0] list");
+    $etList = "" if(!$etList);
+    foreach my $l (split("\n", $etList)) {
       my @a = split(/[ \r\n]/, $l);
       $a[1] = "" if(!defined($a[1]));
       $a[1] =~ s/\.\*//g;
@@ -214,8 +216,9 @@ notify_fhemwebFn($$$$)
     $ret .= FW_select("","arg.$d",\@al, undef, "set",
         "FW_selChange(this.options[selectedIndex].text,'$list','val.$d')");
     $ret .= FW_textfield("val.$d", 30, "set");
+    my $al0 = (@al ? $al[0] : "");
     $ret .= "<script type=\"text/javascript\">" .
-              "FW_selChange('$al[0]','$list','val.$d')</script>";
+              "FW_selChange('$al0','$list','val.$d')</script>";
     $ret .= "</form></td></tr>";
   }
   $ret .= "</table>";
diff --git a/fhem/FHEM/92_FileLog.pm b/fhem/FHEM/92_FileLog.pm
index f0077d064..0efce07fd 100755
--- a/fhem/FHEM/92_FileLog.pm
+++ b/fhem/FHEM/92_FileLog.pm
@@ -343,7 +343,9 @@ FileLog_fhemwebFn($$$$)
                   1, undef, 1);
   } else {
     my %dh;
-    foreach my $l (split("\n", AnalyzeCommand(undef, "get $et[0] list"))) {
+    my $etList = AnalyzeCommand(undef, "get $et[0] list");
+    $etList = "" if(!$etList);
+    foreach my $l (split("\n", $etList)) {
       my @a = split(/[ \r\n]/, $l);
       $a[1] = "" if(!defined($a[1]));
       $a[1] =~ s/\.\*//g;
@@ -367,8 +369,9 @@ FileLog_fhemwebFn($$$$)
     $ret .= FW_select("","arg.$d",\@al, undef, "set",
         "FW_selChange(this.options[selectedIndex].text,'$list','val.$d')");
     $ret .= FW_textfield("val.$d", 30, "set");
+    my $al0 = (@al ? $al[0] : "");
     $ret .= "<script type=\"text/javascript\">" .
-              "FW_selChange('$al[0]','$list','val.$d')</script>";
+              "FW_selChange('$al0','$list','val.$d')</script>";
     $ret .= "</form></td></tr>";
   }
   $ret .= "</table>";