diff --git a/fhem/FHEM/98_DOIF.pm b/fhem/FHEM/98_DOIF.pm index 1d964742b..cc6c40f7a 100644 --- a/fhem/FHEM/98_DOIF.pm +++ b/fhem/FHEM/98_DOIF.pm @@ -4315,10 +4315,10 @@ sub bar my ($ic,$iscale,$ix,$iy,$rotate); my $minCol=$minColor; - my ($dec,$fontformat); - - ($dec,$fontformat)=split (/,/,$decfont) if (defined $decfont); + my ($dec,$fontformat,$unitformat); + ($dec,$fontformat,$unitformat)=split (/,/,$decfont) if (defined $decfont); $fontformat="" if (!defined $fontformat); + $unitformat="" if (!defined $unitformat); if (defined $lr) { @@ -4449,11 +4449,11 @@ sub bar my ($valInt,$valDec)=split(/\./,sprintf($format,$val)); if (defined $valDec) { - $out.= sprintf('%s.%s%s', - $bwidth+6,(defined ($icon) ? $height/2+25:$height/2+12),color($currColor,$ln),$fontformat,$valInt,$valDec,$unit); + $out.= sprintf('%s.%s%s', + $bwidth+6,(defined ($icon) ? $height/2+25:$height/2+12),color($currColor,$ln),$fontformat,$valInt,$valDec,$unitformat,$unit); } else { - $out.= sprintf('%s%s', - $bwidth+6,(defined ($icon) ? $height/2+25:$height/2+12),color($currColor,$ln),$fontformat,$valInt,$unit); + $out.= sprintf('%s%s', + $bwidth+6,(defined ($icon) ? $height/2+25:$height/2+12),color($currColor,$ln),$fontformat,$valInt,$unitformat,$unit); } $out.= ''; $out.= ''; @@ -4687,10 +4687,10 @@ sub ring my ($val,$min,$max,$minColor,$maxColor,$unit,$size,$func,$decfont,$model,$lr,$ln,$icon) = @_; my $out; - my ($dec,$fontformat); - - ($dec,$fontformat)=split (/,/,$decfont) if (defined $decfont); + my ($dec,$fontformat,$unitformat); + ($dec,$fontformat,$unitformat)=split (/,/,$decfont) if (defined $decfont); $fontformat="" if (!defined $fontformat); + $unitformat="" if (!defined $unitformat); my ($ic,$iscale,$ix,$iy,$rotate)=(); @@ -4796,8 +4796,8 @@ sub ring $out.= sprintf('%s', ($icflag ? 43:34),color($currColor,$ln),(defined ($icon) ? 14:20),$fontformat,$valInt); } - $out.= sprintf('%s', - ($icflag ? 53:47),color($currColor,$ln),($icflag ? 9:12),$unit) if (defined $unit); + $out.= sprintf('%s', + ($icflag ? 53:47),color($currColor,$ln),($icflag ? 9:12),$unitformat,$unit) if (defined $unit); $out.= ''; return ($out); } @@ -4809,16 +4809,15 @@ sub ring2 my ($format,$value); my ($format2,$value2); - my ($dec,$fontformat); - - ($dec,$fontformat)=split (/,/,$decfont) if (defined $decfont); + my ($dec,$fontformat,$unitformat); + ($dec,$fontformat,$unitformat)=split (/,/,$decfont) if (defined $decfont); $fontformat="" if (!defined $fontformat); - - my ($dec2,$fontformat2); + $unitformat="" if (!defined $unitformat); - ($dec2,$fontformat2)=split (/,/,$decfont2) if (defined $decfont2); + my ($dec2,$fontformat2,$unitformat2); + ($dec2,$fontformat2,$unitformat2)=split (/,/,$decfont2) if (defined $decfont2); $fontformat2="" if (!defined $fontformat2); - + $unitformat2="" if (!defined $unitformat2); my ($ic,$iscale,$ix,$iy,$rotate)=(); @@ -4960,7 +4959,7 @@ sub ring2 $out.= sprintf('%s', ($icflag ? 50:41),color($currColor,$ln),(defined ($icon) ? 13:16),$fontformat,$valInt); } - $out.= sprintf('%s',color($currColor,$ln),$unit) if (defined $unit); + $out.= sprintf('%s',color($currColor,$ln),$unitformat,$unit) if (defined $unit); my ($valInt2,$valDec2)=split(/\./,sprintf($format2,$val2)); @@ -4971,7 +4970,7 @@ sub ring2 $out.= sprintf('%s', ($icflag ? 50:41),($icflag ? 41:42.5),color($currColor2,$ln),(defined ($icon) ? 12:14),$fontformat2,$valInt2); } - $out.= sprintf('%s',($icflag ? 51:52),color($currColor2,$ln),$unit2) if (defined $unit2); + $out.= sprintf('%s',($icflag ? 51:52),color($currColor2,$ln),$unitformat2,$unit2) if (defined $unit2); $out.= ''; return ($out);