FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-03 13:45:36 +00:00
Code Issues Releases Wiki Activity

HM_Template: correct register filtering

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24772 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2021-07-18 17:10:18 +00:00
parent eebb68fa63
commit 7c55cc699f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/FHEM/98_HMtemplate.pm
View File

@ -620,13 +620,13 @@ sub HMtemplate_noDup(@) {#return list with no duplicates#######################
sub HMtemplate_sourceList($){
my $type = shift;
my $match;
if ($type =~ m/peer-(Long|Short)/){$match = "RegL_03.*"}
elsif($type =~ m/peer/ ){$match = "RegL_..\..*"}
elsif($type eq "basic" ){$match = "RegL_..\."}
if ($type =~ m/peer-(Long|Short)/){$match = 'RegL_03.*'}
elsif($type =~ m/peer/ ){$match = 'RegL_..\..+'}
elsif($type eq "basic" ){$match = 'RegL_..\.'}
my @list;
foreach my $e (devspec2array("TYPE=CUL_HM:FILTER=subType!=virtual")){
my @l1 = grep/$match$/,CUL_HM_reglUsed($e);
foreach my $e (grep{!$defs{$_}{helper}{role}{vrt}} devspec2array("TYPE=CUL_HM")){
my @l1 = grep {$_ =~ m/$match$/} CUL_HM_reglUsed($e);
$_ = $e foreach(@l1);
push @list,@l1;
}