diff --git a/fhem/CHANGED b/fhem/CHANGED index 6bc352953..d74fe9bc0 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,6 @@ # 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. + - bugfix: 98_weekprofile: html output for command get associations - bugfix: msgSchema: change Typo LGTV_WebOS - bugfix: 88_HMCCU: Fixed next/return bug - feature: 93_DbRep: new option "deleteOther" for minValue/maxValue available diff --git a/fhem/FHEM/98_weekprofile.pm b/fhem/FHEM/98_weekprofile.pm index 7f8e46830..509a53957 100644 --- a/fhem/FHEM/98_weekprofile.pm +++ b/fhem/FHEM/98_weekprofile.pm @@ -820,9 +820,17 @@ sub weekprofile_Get($$@) if($cmd eq "associations") { my $retType = 1; $retType = $params[0] if(@params >= 1); + # html only if FHEMWEB and canAsyncOutput + if (defined($hash->{CL})) { + $retType = ($hash->{CL}{TYPE} eq "FHEMWEB" && $hash->{CL}{canAsyncOutput}) ? $retType : 1; + } + else { + $retType = 1; + } + # dumpData($hash,"(Get): asso",$hash->{CL}) if defined($hash->{CL}); my @not_asso = (); - my @json_arr = (); - my $retHTML = ""; + my @json_arr = (); + my $retHTML = "
"; $retHTML .= ""; $retHTML .= ""; $retHTML .= ""; @@ -848,7 +856,7 @@ sub weekprofile_Get($$@) foreach my $devname (@not_asso) { $retHTML .= ""; } - $retHTML.= "
DeviceProfile
 
$devname
"; + $retHTML.= ""; my $ret = $retHTML; if ($retType == 1) { my $json_text = undef;