From 75bdb8bd18b1cdc78cac47800c53b13c7b1926e5 Mon Sep 17 00:00:00 2001
From: risiko79 <>
Date: Wed, 23 Dec 2015 20:05:55 +0000
Subject: [PATCH] 98_weekprofile: create profiles in define and not only after
 INITIALIZED

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

diff --git a/fhem/FHEM/98_weekprofile.pm b/fhem/FHEM/98_weekprofile.pm
index efe27b4ad..5b4856ff1 100644
--- a/fhem/FHEM/98_weekprofile.pm
+++ b/fhem/FHEM/98_weekprofile.pm
@@ -67,6 +67,7 @@ sub weekprofile_getDeviceType($)
 
   # determine device type
   my $devHash = $main::defs{$device};
+  return undef unless (!defined($devHash));
   
   my $type = undef;
 
@@ -331,6 +332,10 @@ sub weekprofile_Define($$)
   my @profiles = ();
   $hash->{PROFILES} = \@profiles;
   
+  weekprofile_assignDev($hash);
+  weekprofile_readProfilesFromFile($hash);
+  weekprofile_updateReadings($hash);
+  
   #$attr{$me}{verbose} = 5;  
   return undef;
 }
@@ -533,6 +538,7 @@ sub weekprofile_Notify($$)
     my ($what,$who) = split(' ',$s);
     
     if ($what =~ m/INITIALIZED/) {
+      splice($own->{PROFILES});
       Log3 $me, 5, "$me(Notify): assign to device $own->{MASTERDEV}->{NAME}" if (defined($own->{MASTERDEV}->{NAME}));
       weekprofile_assignDev($own);
       weekprofile_readProfilesFromFile($own);
@@ -636,7 +642,8 @@ sub weekprofile_SummaryFn()
   $lnk = "<a name=\"$d.detail\" href=\"$FW_ME$FW_subdir?detail=$d\">$lnk</a>" if($show_links);
   
   my $args = "weekprofile";
-  my $curr = $hash->{PROFILES}[0]->{NAME};
+  my $curr = undef;
+  $curr = $hash->{PROFILES}[0]->{NAME} if (@{$hash->{PROFILES}} > 0 );
   
   $html .= "<table>";
   $html .= "<tr><td>";