FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

OWCOUNT.pm: Bugfix

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7118 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
pahenning 2014-12-02 20:22:03 +00:00
parent 227b5b1ac4
commit e0ae53ee12
1 changed files with 24 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
fhem/FHEM/21_OWCOUNT.pm
View File

@ -7,7 +7,7 @@
# Prof. Dr. Peter A. Henning
# Norbert Truchsess
#
# $Id: 21_OWCOUNT.pm 2014-04 - pahenning $
# $Id$
#
########################################################################################
#
@ -99,7 +99,7 @@ no warnings 'deprecated';
sub Log3($$$);
my $owx_version="5.26";
my $owx_version="5.27";
#-- fixed raw channel name, flexible channel name
my @owg_fixed = ("A","B");
my @owg_channel = ("A","B");
@ -274,6 +274,15 @@ sub OWCOUNT_Define ($$) {
return undef;
}
#######################################################################################
#
# OWCOUNT_Notify - Implements Notify function
#
# Parameter hash = hash of device addressed
# dev = device
#
########################################################################################
sub OWCOUNT_Notify ($$) {
my ($hash,$dev) = @_;
if( grep(m/^(INITIALIZED|REREADCFG)$/, @{$dev->{CHANGED}}) ) {
@ -282,6 +291,14 @@ sub OWCOUNT_Notify ($$) {
}
}
#######################################################################################
#
# OWCOUNT_Init - Implements Init function
#
# Parameter hash = hash of device addressed
#
########################################################################################
sub OWCOUNT_Init ($) {
my ($hash)=@_;
#-- Start timer for updates
@ -546,17 +563,17 @@ sub OWCOUNT_FormatValues($) {
OWCOUNT_SetPage($hash,14+$i,$msg);
#-- string buildup for monthly and yearly logging
$dvalue .= sprintf( " %s: %5.1f %s %sM: %%5.1f %s", $owg_channel[$i],$dval,$unit,$owg_channel[$i],$unit);
$mvalue .= sprintf( " %sM: %%5.1f %s %sY: %%5.1f %s", $owg_channel[$i],$unit,$owg_channel[$i],$unit);
$dvalue .= sprintf( " %s: %5.2f %s %sM: %%5.2f %s", $owg_channel[$i],$dval,$unit,$owg_channel[$i],$unit);
$mvalue .= sprintf( " %sM: %%5.2f %s %sY: %%5.2f %s", $owg_channel[$i],$unit,$owg_channel[$i],$unit);
} #-- end daybreak
#-- string buildup for return value and STATE
#-- 1 decimal
if( $factor == 1.0 ){
$svalue .= sprintf( "%s: %5.1f %s %s: %5.2f %s", $owg_channel[$i], $vval,$unit,$owg_rate[$i],$vrate,$runit);
$svalue .= sprintf( "%s: %5.2f %s %s: %5.2f %s", $owg_channel[$i], $vval,$unit,$owg_rate[$i],$vrate,$runit);
#-- 3 decimals
} else {
$svalue .= sprintf( "%s: %5.3f %s %s: %5.4f %s", $owg_channel[$i], $vval,$unit,$owg_rate[$i],$vrate,$runit);
$svalue .= sprintf( "%s: %5.3f %s %s: %5.3f %s", $owg_channel[$i], $vval,$unit,$owg_rate[$i],$vrate,$runit);
}
}
readingsBulkUpdate($hash,$owg_channel[$i],$vval);
@ -597,7 +614,7 @@ sub OWCOUNT_FormatValues($) {
readingsBulkUpdate($hash,"day",$dvalue);
if ( $monthbreak == 1){
$mvalue = sprintf("M%02d ",$month+1).$mvalue;
$mvalue = sprintf($mvalue,$total2,$total3);
$mvalue = sprintf($mvalue,$total0,$total2,$total1,$total3);
readingsBulkUpdate($hash,"month",$mvalue);
}
}