From 4fa3c57d35072ed34523a93ae53d4793ee2be0d9 Mon Sep 17 00:00:00 2001
From: Philipp Wo <psycho160@gmx.at>
Date: Wed, 4 Dec 2019 10:31:40 +0100
Subject: [PATCH] fixed error in zoneoverlay without duration

---
 98_TadoAPI.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/98_TadoAPI.pm b/98_TadoAPI.pm
index abeacbf..63478df 100644
--- a/98_TadoAPI.pm
+++ b/98_TadoAPI.pm
@@ -288,10 +288,9 @@ sub TadoAPI_Get(@) {
         my @data = TadoAPI_GetMobileDevices($hash);
         $message = "Device List:\n";
         foreach my $item ( @data ){
-          print "\n";
           $message .= $item->{'name'} . ": " . $item->{'id'} . "\n";
         };
-        Log3 $name, 3, "TadoAPI $name" . ": " . "$cmd finished\n";
+        Log3 $name, 3, "TadoAPI $name" . ": " . "$cmd finished";
         last;
       };
       # only for testing
@@ -571,7 +570,7 @@ sub TadoAPI_SetZoneOverlayById(@){
     Log3 $name, 5, "TadoAPI $name" . ": SetOverlay for Zone $zoneID (Setting: " . $setting . ") - " . "query-URL: $URL"; 
 
     my $dt = time();
-    $dt += $duration;
+    $dt += $duration if defined($duration);
 
     # remove overlay
     if($setting eq "off"){
@@ -1194,6 +1193,7 @@ sub TadoAPI_GetMobileDevices(@) {
           # default case
           return @devices;
         }elsif(ref($decoded_data) eq 'HASH'){
+          # error, api response is a hash in case of error
           Log3 $name, 3, "TadoAPI $name" . ": " . "GetMobileDevices: " .  $decoded_data->{'errors'}->[0]->{'code'} if (exists($decoded_data->{'errors'}));
         }
       }