mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

76_SolarForecast.pm: contrib 1.54.1

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@30111 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
DS_Starter
2025-07-07 09:41:11 +00:00
parent e5f1a6b800
commit 8efcf87905
1 changed files with 9 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -160,7 +160,8 @@ BEGIN {
# Versions History intern # Versions History intern
my %vNotesIntern = ( my %vNotesIntern = (
"1.54.1" => "06.07.2025 change utf8 to UTF-8, userExit: new coding, __createReduceIcon: fix Wide character in syswrite - https://forum.fhem.de/index.php?msg=1344368 ", "1.54.1" => "06.07.2025 change utf8 to UTF-8, userExit: new coding, __createReduceIcon: fix Wide character in syswrite - https://forum.fhem.de/index.php?msg=1344368 ".
"_setattrKeyVal: optimize function between execute from FHEMWEB and Commandline ",
"1.54.0" => "05.07.2025 edit commandref, ___areaFactorTrack: important bugfix in calc of direct area factor for DWD use ", "1.54.0" => "05.07.2025 edit commandref, ___areaFactorTrack: important bugfix in calc of direct area factor for DWD use ",
"1.53.3" => "04.07.2025 Change of the correction factor calculation to the ratio of real production and the API raw forecast ", "1.53.3" => "04.07.2025 Change of the correction factor calculation to the ratio of real production and the API raw forecast ",
"1.53.2" => "03.07.2025 graphicControl->showDiff can be set separately for each level ". "1.53.2" => "03.07.2025 graphicControl->showDiff can be set separately for each level ".
@@ -2004,7 +2005,10 @@ sub _setattrKeyVal { ## no critic "not used"
return if(!$init_done); return if(!$init_done);
$arg =~ s/^([^,]*)\s+/$1,/; # das erste auftretende Leerzeichen-Cluster durch ',' ersetzen, aber nur wenn es in dem String vor dem Leerzeichen-Cluster noch kein Komma gibt
#Log3 ($name, 1, "$name - Arg Orig: $arg");
$arg =~ s/^([^=]*?),/$1 /; $arg =~ s/^([^=]*?),/$1 /;
#Log3 ($name, 1, "$name - Arg Substitute: $arg");
my ($a, $h) = parseParams ($arg); my ($a, $h) = parseParams ($arg);
my $targetattr = $a->[0]; my $targetattr = $a->[0];
@@ -2034,9 +2038,6 @@ sub _setattrKeyVal { ## no critic "not used"
$dev .= "\n" if($dev); $dev .= "\n" if($dev);
my $new = "$name $targetattr $dev".$repl; my $new = "$name $targetattr $dev".$repl;
# Log3 ($name, 1, "$name - setze Attribut neu: $new");
my $ret = CommandAttr (undef, "$new"); my $ret = CommandAttr (undef, "$new");
return $ret if($ret); return $ret if($ret);
} }
@@ -2051,9 +2052,6 @@ sub _setattrKeyVal { ## no critic "not used"
$devn .= "\n" if($devn); $devn .= "\n" if($devn);
my $new = "$name $targetattr $devn".$nkv; my $new = "$name $targetattr $devn".$nkv;
# Log3 ($name, 1, "$name - setze Attribut neu: $new");
my $ret = CommandAttr (undef, "$new"); my $ret = CommandAttr (undef, "$new");
return $ret if($ret); return $ret if($ret);
} }