FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-01 01:09:47 +00:00
Code Issues Releases Wiki Activity

UConv: fix alg sign

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@19649 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2019-06-19 14:06:59 +00:00
parent f7d1c1f26a
commit 0d17346085
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/UConv.pm
View File

@ -2090,11 +2090,13 @@ sub _GetSeasonPheno ($$;$$) {
# HELPER FUNCTIONS # HELPER FUNCTIONS
sub decimal_mark ($;$) { sub decimal_mark ($;$) {
my $s;
my $i; my $i;
my $f; my $f;
if ( $_[0] =~ /^(\d+)(?:\.(\d+))?$/ ) { if ( $_[0] =~ /^(\-|\+)?(\d+)(?:\.(\d+))?$/ ) {
$i = reverse $1; $s = $1;
$f = $2; $i = reverse $2;
$f = $3;
} }
else { else {
return $_[0]; return $_[0];
@ -2122,7 +2124,7 @@ sub decimal_mark ($;$) {
$f =~ s/(\d{$grouping[0]})(?=\d)/$1$thousands_sep/g $f =~ s/(\d{$grouping[0]})(?=\d)/$1$thousands_sep/g
if ( defined($f) && $f ne '' ); if ( defined($f) && $f ne '' );
return (reverse $i) return ( $s ? $s : '' ) . ( reverse $i )
. ( defined($f) && $f ne '' ? $decimal_point . $f : '' ); . ( defined($f) && $f ne '' ? $decimal_point . $f : '' );
} }