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 .= ""; + "FW_selChange('$al0','$list','val.$d')"; $ret .= ""; } $ret .= ""; 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 .= ""; + "FW_selChange('$al0','$list','val.$d')"; $ret .= ""; } $ret .= "";