FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 06:39:11 +00:00
Code Issues Releases Wiki Activity

76_SolarForecast: contrib 1.42.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@29485 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2025-01-06 21:20:04 +00:00
parent ae972acdcd
commit 829bb72e57
1 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
fhem/contrib/DS_Starter/76_SolarForecast.pm
View File

@ -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;
}