diff --git a/fhem/CHANGED b/fhem/CHANGED index 1f31da5b3..e2fe14b41 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: HMCCU-HM send profile without prefix (Forum #1104569) - bugfix: 70_DENON_AVR: serial connection issues - feature: 77_SMAEM: attr serialNumber may contain multiple serial numbers - feature: 57_SSCal: handle multiline code in description field if automatic diff --git a/fhem/FHEM/98_weekprofile.pm b/fhem/FHEM/98_weekprofile.pm index 88550bf33..bc5855dd3 100644 --- a/fhem/FHEM/98_weekprofile.pm +++ b/fhem/FHEM/98_weekprofile.pm @@ -177,14 +177,13 @@ sub weekprofile_getDeviceType($$;$) Log3 $me, 4, "$me(getDeviceType): $devHash->{NAME} is readonly - ignored"; return undef; } - - my $model = $devHash->{ccutype}; + my $model = $devHash->{ccutype}; if (!defined($model)) { Log3 $me, 2, "$me(getDeviceType): ccutype not defined - take HM-xxx (HMCCU_HM)"; $model = "HM-xxx"; } Log3 $me, 5, "$me(getDeviceType): $devHash->{NAME}, $model"; - $type = "HMCCU_IP" if ( $model =~ m/HmIP.*/ ); + $type = "HMCCU_IP" if ( $model =~ m/HmIP.*/ ); $type = "HMCCU_HM" if ( $model =~ m/HM-.*/ ); } @@ -479,6 +478,7 @@ sub weekprofile_sendDevProfile(@) my $k=0; my $dayCnt = scalar(@dayToTransfer); my $prefix = weekprofile_get_prefix_HM($device,"ENDTIME_SUNDAY_1",$me); + $prefix = "" if ($type eq "HMCCU_HM"); # no prefix by set see topic,46117.msg1104569.html#msg1104569 if (!defined($prefix)) { Log3 $me, 3, "$me(sendDevProfile): no prefix found"; $prefix = "";