FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-25 16:05:19 +00:00
Code Issues Releases Wiki Activity

98_DOIF.pm: now dot allowed in doif block name, fixed min,max in card bar decade

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@27190 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Damian 2023-02-07 19:11:02 +00:00
parent 8eec0b7efc
commit c83d5bf983
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/98_DOIF.pm
View File

@ -1704,11 +1704,11 @@ sub DOIF_statistic_bar
if (defined $value and ($numOrig != 1 or (int($i/$dim) == 0 or $i % $dim > $period1 or $i % $dim == $period1 and !defined ${$va}[$period1]))) {
$numb++;
$sum+=$value;
if (!defined $maxVal or $value >= $maxVal) {
if (!defined $maxVal or $value > $maxVal) {
$maxVal=$value;
$maxValSlot=$i;
}
if (!defined $minVal or $value <= $minVal) {
if (!defined $minVal or $value < $minVal) {
$minVal=$value;
$minValSlot=$i;
}
@ -1721,8 +1721,8 @@ sub DOIF_statistic_bar
${$bar}{min_value_slot}=$minValSlot;
${$bar}{average_value}=$sum/$numb;
if (${$bar}{period} eq "decade") {
${$bar}{max_value_time}=((${$bar}{last_period2}-int($maxValSlot/$dim))*10+$maxValSlot);
${$bar}{min_value_time}=((${$bar}{last_period2}-int($minValSlot/$dim))*10+$minValSlot);
${$bar}{max_value_time}=((${$bar}{last_period2}-int($maxValSlot/$dim))*10+($maxValSlot % $dim));
${$bar}{min_value_time}=((${$bar}{last_period2}-int($minValSlot/$dim))*10+($minValSlot % $dim));
} elsif (${$bar}{period} eq "year") {
${$bar}{max_value_time}=qw(Jan Feb Mär Apr Mai Jun Jul Aug Sep Okt Nov Dez)[$maxValSlot % $dim]." ".(($period2-int($maxValSlot/$dim)) % 100);
${$bar}{min_value_time}=qw(Jan Feb Mär Apr Mai Jun Jul Aug Sep Okt Nov Dez)[$minValSlot % $dim]." ".(($period2-int($minValSlot/$dim)) % 100);
@ -3920,7 +3920,7 @@ sub DOIF_Perlblock
my ($hash,$table,$tail,$subs) =@_;
my ($beginning,$perlblock,$err,$i);
$i=0;
while($tail =~ /(?:^|\n)\s*(\w*)\s*\{/g) {
while($tail =~ /(?:^|\n)\s*([\w\.]*)\s*\{/g) {
my $blockname=$1;
($beginning,$perlblock,$err,$tail)=GetBlockDoIf($tail,'[\{\}]');
if ($err) {