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);