From 8e1cc6458e5dc07898cd908fda07e8e38c938025 Mon Sep 17 00:00:00 2001 From: DS_Starter Date: Thu, 9 Oct 2025 19:54:44 +0000 Subject: [PATCH] 76_SolarForecast: one more fix of color filling of svg icon git-svn-id: https://svn.fhem.de/fhem/trunk@30370 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/76_SolarForecast.pm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/fhem/FHEM/76_SolarForecast.pm b/fhem/FHEM/76_SolarForecast.pm index ff292cf00..c4a70dbec 100644 --- a/fhem/FHEM/76_SolarForecast.pm +++ b/fhem/FHEM/76_SolarForecast.pm @@ -11165,7 +11165,7 @@ sub _transferBatteryValues { } $bcapsum += $instcap; # Summe installierte Bat Kapazität - $data{$name}{batteries}{$bn}{binstcap} = $instcap; # Summe installierte Batterie Kapazität + $data{$name}{batteries}{$bn}{binstcap} = $instcap; # installierte Batterie Kapazität } else { delete $data{$name}{batteries}{$bn}{binstcap}; @@ -11337,10 +11337,11 @@ sub _transferBatteryValues { limitArray ($data{$name}{current}{batsocslidereg}, SLIDENUMMAX); - $data{$name}{current}{batpowerinsum} = $pbisum; # summarische laufende Batterieladung - $data{$name}{current}{batpoweroutsum} = $pbosum; # summarische laufende Batterieentladung - $data{$name}{current}{batcapsum} = $bcapsum; # Summe installierte Batterie Kapazität in Wh - $data{$name}{current}{batwhtotal} = $socwhsum; # Ladung in Wh über alle Batterien + $data{$name}{current}{batpowerinsum} = $pbisum; # summarische laufende Batterieladung + $data{$name}{current}{batpoweroutsum} = $pbosum; # summarische laufende Batterieentladung + $data{$name}{current}{batcapsum} = $bcapsum; # Summe installierte Batterie Kapazität in Wh + $data{$name}{current}{batwhtotal} = $socwhsum; # Ladung in Wh über alle Batterien + $data{$name}{current}{batwhdeficitsum} = $bcapsum - $socwhsum; # Fehlbetrag bis volle Ladung über alle Batterien } return; @@ -19648,7 +19649,7 @@ sub __normIconInnerScale { if ($fill) { $inner =~ s/\bfill="[^"]*"/fill="$fill"/gi; - for my $tag (qw(path rect circle ellipse polygon polyline line)) { + for my $tag (qw(path rect circle ellipse polygon polyline line stroke)) { $inner =~ s{<$tag(?![^>]*\bfill=)}{<$tag fill="$fill"}gi; } }