From 582a2f96665ba90ff53a64b6a897f12a87cf1f79 Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Mon, 3 Feb 2020 16:13:01 +0000
Subject: [PATCH] 57_SSCal: contrib 1.6.0

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@21107 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 contrib/DS_Starter/57_SSCal.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/contrib/DS_Starter/57_SSCal.pm b/contrib/DS_Starter/57_SSCal.pm
index 042cd13e2..c11036d3d 100644
--- a/contrib/DS_Starter/57_SSCal.pm
+++ b/contrib/DS_Starter/57_SSCal.pm
@@ -2205,7 +2205,7 @@ sub SSCal_writeValuesToArray ($$$$$$$$$$$) {
 
   foreach my $p (keys %{$vh}) {
       $vh->{$p} = "" if(!defined $vh->{$p});
-      $vh->{$p} = SSCal_jboolmap($vh->{$p});
+	  $vh->{$p} = SSCal_jboolmap($vh->{$p});
       next if($vh->{$p} eq "");
         
       # Log3($name, 4, "$name - bts: $bts, Parameter: $p, Value: ".$vh->{$p}) if(ref $p ne "HASH");
@@ -3158,7 +3158,9 @@ sub SSCal_jboolmap($){
   my ($bool)= @_;
   
   if(JSON::is_bool($bool)) {
-      $bool = $bool?1:0;
+	  my $b = JSON::boolean($bool);
+	  $bool = 1 if($b == $JSON::true);
+	  $bool = 0 if($b == $JSON::false);
   }
   
 return $bool;