From 7c8cda01886f8ac4f5bc838ea04da0579bec49a5 Mon Sep 17 00:00:00 2001
From: pahenning <>
Date: Wed, 26 Jun 2013 14:03:43 +0000
Subject: [PATCH] git-svn-id: https://svn.fhem.de/fhem/trunk@3337
 2b470e98-0d58-463d-a4d8-8e2adae1ed80

---
 fhem/FHEM/21_OWCOUNT.pm | 40 ++++++++++++++++++++++++++++++++++++++--
 1 file changed, 38 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/21_OWCOUNT.pm b/fhem/FHEM/21_OWCOUNT.pm
index b13ec1ecb..a429e330a 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.27";
+my $owx_version="3.30";
 #-- fixed raw channel name, flexible channel name
 my @owg_fixed   = ("A","B");
 my @owg_channel = ("A","B");
@@ -448,7 +448,8 @@ sub OWCOUNT_FormatValues($) {
           }
            
           #-- in any mode store the interpolated value in the midnight store
-          OWXCOUNT_SetPage($hash,14+$i,sprintf("%f",$dval2));
+          OWCOUNT_SetPage($hash,14+$i,sprintf("%f",$dval2));
+          
           #-- 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( " %s: %%5.1f %s", $owg_channel[$i],$unit); 
@@ -976,6 +977,41 @@ sub OWCOUNT_Set($@) {
   Log 4, "OWCOUNT: Set $hash->{NAME} $key $value";
 }
 
+#######################################################################################
+#
+# OWCOUNT_SetPage - Set one value for device
+#
+#  Parameter hash = hash of device addressed
+#            page = page addressed
+#            data = data
+#
+########################################################################################
+
+sub OWCOUNT_SetPage ($$$) {
+  my ($hash, $page, $data) = @_;
+  
+  #-- set memory page/counter according to interface type
+  my $interface= $hash->{IODev}->{TYPE};
+  my $name    = $hash->{NAME};
+  my $ret; 
+    
+  #-- OWX interface
+  if( $interface eq "OWX" ){
+    $ret = OWXCOUNT_SetPage($hash,$page,$data);
+  #-- OWFS interface
+  }elsif( $interface eq "OWServer" ){
+    $ret = OWFSCOUNT_SetPage($hash,$page,$data);
+  #-- Unknown interface
+  }else{
+    return "OWCOUNT: SetPage with wrong IODev type $interface";
+  }
+    
+  #-- process results
+  if( defined($ret)  ){
+    return "OWCOUNT: Could not set device $name, reason: ".$ret;
+  }
+}
+
 ########################################################################################
 #
 # OWCOUNT_Undef - Implements UndefFn function