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

fhem.pl: ReadingsNum fix (Forum #137283)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@28577 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2024-03-01 16:10:10 +00:00
parent 9b23ac24bf
commit fb2a5c44e7
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/fhem.pl
View File

@@ -4666,6 +4666,7 @@ OldReadingsNum($$$;$)
my ($d,$n,$default,$round) = @_; my ($d,$n,$default,$round) = @_;
my $val = OldReadingsVal($d,$n,$default); my $val = OldReadingsVal($d,$n,$default);
return undef if(!defined($val)); return undef if(!defined($val));
return $val if(looks_like_number($val)); # 137283
$val = ($val =~ /(-?\d+(\.\d+)?)/ ? $1 : ""); $val = ($val =~ /(-?\d+(\.\d+)?)/ ? $1 : "");
$val =~ s/^(-?)0+([1-9])/$1$2/; # Forum #135120, dont want octal numbers $val =~ s/^(-?)0+([1-9])/$1$2/; # Forum #135120, dont want octal numbers
return $default if($val eq ""); return $default if($val eq "");
@@ -4714,6 +4715,7 @@ ReadingsNum($$$;$)
my ($d,$n,$default,$round) = @_; my ($d,$n,$default,$round) = @_;
my $val = ReadingsVal($d,$n,$default); my $val = ReadingsVal($d,$n,$default);
return undef if(!defined($val)); return undef if(!defined($val));
return $val if(looks_like_number($val)); # 137283
$val = ($val =~ /(-?\d+(\.\d+)?)/ ? $1 : ""); $val = ($val =~ /(-?\d+(\.\d+)?)/ ? $1 : "");
$val =~ s/^(-?)0+([1-9])/$1$2/; # Forum #135120, dont want octal numbers $val =~ s/^(-?)0+([1-9])/$1$2/; # Forum #135120, dont want octal numbers
return $default if($val eq ""); return $default if($val eq "");