From 06e4e9317761318325f9bc29215482e8ad71761c Mon Sep 17 00:00:00 2001
From: pahenning <>
Date: Sun, 30 Oct 2016 16:50:24 +0000
Subject: [PATCH] DoorPi.pm: Neue Version 1.41

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@12473 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 contrib/DoorPi/70_DoorPi.pm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/contrib/DoorPi/70_DoorPi.pm b/contrib/DoorPi/70_DoorPi.pm
index 22b3e4179..6e59480c9 100644
--- a/contrib/DoorPi/70_DoorPi.pm
+++ b/contrib/DoorPi/70_DoorPi.pm
@@ -41,7 +41,7 @@ use vars qw{%attr %defs};
 sub Log($$);
 
 #-- globals on start
-my $version = "1.4";
+my $version = "1.41";
 
 #-- these we may get on request
 my %gets = (
@@ -762,11 +762,14 @@ sub DoorPi_GetHistory {
 
   #-- decode call history
   if(ref($jhash0->{"history_event"}) ne 'ARRAY'){
-     Log 1,"[DoorPi_GetHistory] Error - has found an empty event history";
-     return 
+     my $mga="Warning - has found an empty event history";
+     Log 1,"[DoorPi_GetHistory] ".$mga
+     return $mga
   }
   if(ref($khash0->{"history_snapshot"}) ne 'ARRAY'){
-     Log 1,"[DoorPi_GetHistory] Warning - has found an empty snapshot history";
+     my $mga="Warning - has found an empty snapshot history";
+     Log 1,"[DoorPi_GetHistory] ".$mga
+     return $mga
   }
   my @history_event    = ($jhash0)?@{$jhash0->{"history_event"}}:();
   my @history_snapshot = ($khash0)?@{$khash0->{"history_snapshot"}}:();