From 59e38b68af2bfda08ced5f85d10f6d93054fcda6 Mon Sep 17 00:00:00 2001 From: ntruchsess <> Date: Mon, 27 May 2013 15:22:26 +0000 Subject: [PATCH] fix parsing of midnight values git-svn-id: https://svn.fhem.de/fhem/trunk@3223 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/21_OWCOUNT.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/21_OWCOUNT.pm b/fhem/FHEM/21_OWCOUNT.pm index 4fb452e6d..00c3371ad 100644 --- a/fhem/FHEM/21_OWCOUNT.pm +++ b/fhem/FHEM/21_OWCOUNT.pm @@ -80,7 +80,7 @@ use strict; use warnings; sub Log($$); -my $owx_version="3.23"; +my $owx_version="3.25"; #-- fixed raw channel name, flexible channel name my @owg_fixed = ("A","B"); my @owg_channel = ("A","B"); @@ -1171,14 +1171,14 @@ sub OWXCOUNT_GetPage($$) { if( $page == 14) { $owg_val[0] = $value; #-- parse float from midnight - $owg_str =~ /([\d\.]+)/; + $owg_str =~ s/[^\d\.]+//g; $owg_str = int($owg_str*100)/100; $owg_str = 0.0 if(!(defined($owg_str))); $owg_midnight[0] = $owg_str; }elsif( $page == 15) { $owg_val[1] = $value; #-- parse float from midnight - $owg_str =~ /([\d\.]+)/; + $owg_str =~ s/[^\d\.]+//g; $owg_str = int($owg_str*100)/100; $owg_str = 0.0 if(!(defined($owg_str))); $owg_midnight[1] = $owg_str;