From 4dd4a2a8875885c8208dfed732d686051398066f Mon Sep 17 00:00:00 2001
From: risiko79 <>
Date: Sun, 14 Feb 2016 10:12:42 +0000
Subject: [PATCH] 98_weekprofile: dry fix crash msg407302

git-svn-id: https://svn.fhem.de/fhem/trunk@10829 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_weekprofile.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/98_weekprofile.pm b/fhem/FHEM/98_weekprofile.pm
index 131409b34..564f1dd16 100644
--- a/fhem/FHEM/98_weekprofile.pm
+++ b/fhem/FHEM/98_weekprofile.pm
@@ -256,7 +256,7 @@ sub weekprofile_sendDevProfile(@)
       $k++;
     }
   }
-  
+
   my $ret = undef;
   if ($cmd) {
     $cmd =~ s/^\s+|\s+$//g; 
@@ -464,13 +464,15 @@ sub weekprofile_Get($$@)
     my ($topic, $name) = weekprofile_splitName($params[0]);
 
     my ($prf,$idx) = weekprofile_findPRF($hash,$name,$topic);
-    return "profile $params[0] not found" unless ($prf);
+    return "profile $params[0] not found" if (!defined($prf));
 
     if (defined($prf->{REF})) {
       ($topic, $name) = weekprofile_splitName($prf->{REF});
       ($prf,$idx) = weekprofile_findPRF($hash,$name,$topic);
     }
     
+    return "profile $params[0] has no data" if (!defined($prf->{DATA}));
+    
     my $json = JSON->new;
     my $json_text = $json->encode($prf->{DATA});
     return $json_text;