From cc51c3dd4548b6cb2e79634f829f4ddb590aaa0a Mon Sep 17 00:00:00 2001 From: nasseeder1 Date: Mon, 6 Jan 2025 21:20:04 +0000 Subject: [PATCH] 76_SolarForecast: contrib 1.42.0 git-svn-id: https://svn.fhem.de/fhem/trunk@29485 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/contrib/DS_Starter/76_SolarForecast.pm | 28 +++++++++++++++------ 1 file changed, 20 insertions(+), 8 deletions(-) diff --git a/fhem/contrib/DS_Starter/76_SolarForecast.pm b/fhem/contrib/DS_Starter/76_SolarForecast.pm index fab6f225b..d7ecce922 100644 --- a/fhem/contrib/DS_Starter/76_SolarForecast.pm +++ b/fhem/contrib/DS_Starter/76_SolarForecast.pm @@ -15680,21 +15680,27 @@ sub __substituteIcon { 'measure_battery_0'; } - $ircmd = $ircmd ? $ircmd : $bicondef; - $icharge = $icharge ? $icharge : $bicondef; - $idischrg = $idischrg ? $idischrg : $bicondef; - $inorcmd = $inorcmd ? $inorcmd : $bicondef; + $ircmd = $ircmd ? $ircmd : ''; + $inorcmd = $inorcmd ? $inorcmd : ''; + $icharge = $icharge ? $icharge : ''; + $idischrg = $idischrg ? $idischrg : ''; if (defined $flag) { # Empfehlungszeitraum if ($flag) { # Ladeempfehlung ($icon, $color) = split '@', $ircmd; - $icon = $icon ? $icon : $bicondef; # nur Farbe angegeben + $icon = $icon ? $icon : + $socicon ? $socicon : + $bicondef; # nur Farbe angegeben + $color //= $biccolrcddef; $pretxt = "$msg1\n".$htitles{bcharrcd}{$lang}; } else { # keine Ladeempfehlung ($icon, $color) = split '@', $inorcmd; - $icon = $icon ? $icon : $bicondef; # nur Farbe angegeben + $icon = $icon ? $icon : + $socicon ? $socicon : + $bicondef; # nur Farbe angegeben + $color //= $biccolnrcddef; $pretxt = "$msg1\n".$htitles{bncharcd}{$lang}; } @@ -15703,13 +15709,19 @@ sub __substituteIcon { if (defined $pcurr) { # aktueller Zusatnd if ($pcurr > 0) { # Batterie wird aufgeladen ($icon, $color) = split '@', $icharge; - $icon = $icon ? $icon : $bicondef; # nur Farbe angegeben + $icon = $icon ? $icon : + $socicon ? $socicon : + $bicondef; # nur Farbe angegeben + $color //= $bchgiconcoldef; $txt = "$pretxt\nStatus: ".$htitles{ischawth}{$lang}.' '.$pcurr.' W'.$soctxt; } elsif ($pcurr < 0) { # Batterie wird entladen ($icon, $color) = split '@', $idischrg; - $icon = $icon ? $icon : $bicondef; # nur Farbe angegeben + $icon = $icon ? $icon : + $socicon ? $socicon : + $bicondef; # nur Farbe angegeben + $color //= $bdchiconcoldef; $txt = "$pretxt\nStatus: ".$htitles{isdchawt}{$lang}.' '.(abs $pcurr).' W'.$soctxt; }