From 1504a734a262f786a7601e59285ba117687a907d Mon Sep 17 00:00:00 2001 From: nasseeder1 Date: Sun, 28 Aug 2022 07:50:51 +0000 Subject: [PATCH] 76_SolarForecast.pm: contrib 0.67.4 git-svn-id: https://svn.fhem.de/fhem/trunk@26354 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/contrib/DS_Starter/76_SolarForecast.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/fhem/contrib/DS_Starter/76_SolarForecast.pm b/fhem/contrib/DS_Starter/76_SolarForecast.pm index 49726d3d4..27519af6c 100644 --- a/fhem/contrib/DS_Starter/76_SolarForecast.pm +++ b/fhem/contrib/DS_Starter/76_SolarForecast.pm @@ -564,6 +564,7 @@ my $caicondef = 'clock@gold'; my $defflowGSize = 300; # default flowGraphicSize my $defpopercent = 0.5; # Standard % aktuelle Leistung an nominaler Leistung gemäß Typenschild +my $defhyst = 0; # default Hysterese # Default CSS-Style my $cssdef = qq{.flowg.text { stroke: none; fill: gray; font-size: 32px;} \n}. @@ -3588,7 +3589,7 @@ sub ___switchConsumerOff { my $cname = ConsumerVal ($hash, $c, "name", ""); # Consumer Device Name my $calias = ConsumerVal ($hash, $c, "alias", ""); # Consumer Device Alias my $mode = ConsumerVal ($hash, $c, "mode", $defcmode); # Consumer Planungsmode - my $hyst = ConsumerVal ($hash, $c, "hysteresis", 0); # Hysterese + my $hyst = ConsumerVal ($hash, $c, "hysteresis", $defhyst); # Hysterese my $offcom = ConsumerVal ($hash, $c, "offcom", ""); # Set Command für "off" my ($swoffcond,$info,$err) = isAddSwitchOffCond ($hash, $c); # zusätzliche Switch off Bedingung @@ -4493,7 +4494,7 @@ sub collectAllRegConsumers { $data{$type}{$name}{consumers}{$c}{rswoffcond} = $rswoffcond // q{}; # Reading zur Lieferung einer vorrangigen Ausschaltbedingung $data{$type}{$name}{consumers}{$c}{swoffcondregex} = $swoffcondregex // q{}; # Regex einer vorrangigen Ausschaltbedingung $data{$type}{$name}{consumers}{$c}{interruptable} = $interruptable; # Ein-Zustand des Verbrauchers ist unterbrechbar - $data{$type}{$name}{consumers}{$c}{hysteresis} = $hyst // 0; # Hysterese + $data{$type}{$name}{consumers}{$c}{hysteresis} = $hyst // $defhyst; # Hysterese } Log3 ($name, 5, "$name - all registered consumers:\n".Dumper $data{$type}{$name}{consumers});