FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

76_SMAPortal: contrib 2.3.5

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@19664 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2019-06-20 09:03:57 +00:00
parent af1cc7704a
commit 4dc1e6cbf8
1 changed files with 30 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
fhem/contrib/DS_Starter/76_SMAPortal.pm
View File

@ -161,6 +161,7 @@ use vars qw($FW_ME); # webname (default is fh
# Versions History intern
our %vNotesIntern = (
"2.3.5" => "20.06.2019 subroutine consinject added to pv, pvco style ",
"2.3.4" => "19.06.2019 change some readingnames, delete L4_plantOid, next04hours_state ",
"2.3.3" => "16.06.2019 change verbose 4 output, fix warning if no weather info was got ",
"2.3.2" => "14.06.2019 add request string to verbose 5, add battery data to live and historical consumer data ",
@ -2257,21 +2258,9 @@ sub PortalAsHtml ($$) {
##################################
# inject the new icon if defined
my $show = 0; # wurde bereits für diese Stunde ein Geräte Icon ausgegeben ?
foreach (@pgCDev) {
if ($_) {
my ($cons,$im,$start,$end) = split (':', $_);
Log3($name, 4, "$name - Consumer to show -> $cons, relative to current time -> start: $start, end: $end") if($i<1);
if ($im && ($i >= $start) && ($i <= $end)) {
$ret .= FW_makeImage($im);
# $show = 1; # nachher dann kein normales Icon mehr anzeigen, oder doch ?
# oder noch ein extra Attr machen zum auswählen ?
# eventuell den Block wieder nach unten schieben und den normalen Birnen
# Vorrang geben
}
}
}
$ret .= consinject($hash,$i,@pgCDev) if($ret);
my $show = 0; # wurde bereits für diese Stunde ein Geräte Icon ausgegeben ?
$ret .= $is{$i} if (defined ($is{$i}) && !$show);
$ret .= "</td></tr>";
}
@ -2312,7 +2301,13 @@ sub PortalAsHtml ($$) {
$ret .= "<tr class='odd' style='height:".$z2."px'>";
$ret .= "<td align='center' class='smaportal' ".$style1.">$val";
$ret .= $is{$i} if (defined $is{$i});
##################################
# inject the new icon if defined
$ret .= consinject($hash,$i,@pgCDev) if($ret);
$ret .= "</td></tr>";
if ($z3) { # die Zone 3 lassen wir bei zu kleinen Werten auch ganz weg
@ -2395,6 +2390,27 @@ sub PortalAsHtml ($$) {
return $ret;
}
################################################################
# Inject consumer icon
################################################################
sub consinject($$@) {
my ($hash,$i,@pgCDev) = @_;
my $name = $hash->{NAME};
my $ret = "";
foreach (@pgCDev) {
if ($_) {
my ($cons,$im,$start,$end) = split (':', $_);
Log3($name, 4, "$name - Consumer to show -> $cons, relative to current time -> start: $start, end: $end") if($i<1);
if ($im && ($i >= $start) && ($i <= $end)) {
$ret = FW_makeImage($im);
}
}
}
return $ret;
}
###############################################################################
# Balkenbreite normieren
#