From 95b53c73b9ef1c24e426adbbb5f0a03acec48fda Mon Sep 17 00:00:00 2001
From: xasher <>
Date: Tue, 31 May 2022 04:34:15 +0000
Subject: [PATCH] 70_Klafs.pm: Klafs Sauna control

git-svn-id: https://svn.fhem.de/fhem/trunk@26100 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED          | 1 +
 fhem/FHEM/70_Klafs.pm | 6 +++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 20ca952df..fb19baf1c 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+ - bugfix:  70_Klafs: minor bugfix for Reading power
  - bugfix:  70_Klafs: minor bugfix for automatic reconnect
  - change:  72_FB_CALLMONITOR: adapt regexp for dasoertliche.de reverse
                                search 
diff --git a/fhem/FHEM/70_Klafs.pm b/fhem/FHEM/70_Klafs.pm
index 57ce250a8..976cf9e6e 100644
--- a/fhem/FHEM/70_Klafs.pm
+++ b/fhem/FHEM/70_Klafs.pm
@@ -368,7 +368,6 @@ sub klafs_getStatusResponse {
   my $hash = $param->{hash};
   my $name = $hash->{NAME};
   my $header = $param->{httpheader};
-  my $power = ReadingsVal( $name, "power", "off" );
   
   Log3 ($name, 5, "Status header: $header");
   Log3 ($name, 5, "Status Data: $data");
@@ -389,6 +388,11 @@ sub klafs_getStatusResponse {
      for my $key (qw( saunaSelected sanariumSelected irSelected isConnected isPoweredOn isReadyForUse showBathingHour)) {
       $entries->{$key} = $entries->{$key} ?  q{true} : q{false} ;
      }
+     my $power = $entries->{isPoweredOn} eq q{true}  ? 'on' 
+               : $entries->{isPoweredOn} eq q{false} ? 'off'
+               : 0;
+     $entries->{power} = $power;
+
      $entries->{statusMessage} //= '';
      $entries->{currentTemperature} = '0' if $entries->{currentTemperature} eq '141';
      $entries->{RemainTime} = sprintf("%2.2d:%2.2d" , $entries->{bathingHours}, $entries->{bathingMinutes});