98_weekprofile: read weekprofile from HMCCUDEV|HM-TC-IT-WM-W-EU

git-svn-id: https://svn.fhem.de/fhem/trunk@20320 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/CHANGED

@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+ - bugfix:  98_weekprofile: read weekprofile from HMCCUDEV|HM-TC-IT-WM-W-EU
  - change:  93_DbLog: change cache from %defs to %data, improved log infos
                       with verbose 5 of SVG generation, bugfix check TIMESTAMP
                       in attribute DbLogValueFn or attribute valueFn

fhem/FHEM/98_weekprofile.pm

@@ -229,9 +229,18 @@ sub weekprofile_readDayProfile($@)
 
       $prfTime = ReadingsVal($device, "R-ENDTIME_$reading"."_$i", "") if (!$prfTime);
       $prfTemp = ReadingsVal($device, "R-TEMPERATURE_$reading"."_$i", "") if (!$prfTemp);
+      
+      $prfTime = ReadingsVal($device, "R-P1_ENDTIME_$reading"."_$i", "") if (!$prfTime);
+      $prfTemp = ReadingsVal($device, "R-P1_TEMPERATURE_$reading"."_$i", "") if (!$prfTemp);
 
-      Log3 $me, 5, "$me(readDayProfile): $reading"."_$i $prfTime $prfTemp";
-
+      if ($prfTime eq "" or $prfTemp eq ""){
+        Log3 $me, 3, "$me(readDayProfile): unsupported readings";
+        return (\@times, \@temps);
+      }
+      else{
+        Log3 $me, 5, "$me(readDayProfile): $reading"."_$i $prfTime $prfTemp";
+      }
+      
       $prfTime = weekprofile_minutesToTime($prfTime);
 
       if ($lastTime ne "24:00"){