From 928819221393297c7ec294863a9b4e084adca3ad Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sat, 4 Dec 2021 17:37:15 +0000
Subject: [PATCH] HMinfo:status improvment for multi-vccu usage

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

diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm
index 153da1d43..e00b9d774 100644
--- a/fhem/FHEM/98_HMinfo.pm
+++ b/fhem/FHEM/98_HMinfo.pm
@@ -432,10 +432,14 @@ sub HMinfo_status($){##########################################################
 
   my %tmp; # remove duplicates
   $hash->{iI_HM_IOdevices} = "";
-  $tmp{ReadingsVal($_,"cond",
-       InternalVal($_,"STATE","unknown"))}{$_} = 1 foreach( @IOdev);
-  foreach my $IOstat (sort keys %tmp){
-    $hash->{iI_HM_IOdevices} .= "$IOstat: ".join(",",sort keys %{$tmp{$IOstat}}).";";
+  
+  
+  $tmp{InternalVal($_,"owner_CCU","noVccu")}{ReadingsVal($_,"cond",InternalVal($_,"STATE","unknown"))}{$_} = 1 foreach(@IOdev);
+  foreach my $vccu (sort keys %tmp){
+    $hash->{iI_HM_IOdevices} .= $hash->{iI_HM_IOdevices} eq "" ? "$vccu>": " $vccu>";
+    foreach my $IOstat (sort keys %{$tmp{$vccu}}){
+      $hash->{iI_HM_IOdevices} .= "$IOstat:".join(",",sort keys %{$tmp{$vccu}{$IOstat}}).";";
+    }
   }
 
   # ------- what about protocol events ------