diff --git a/fhem/FHEM/98_structure.pm b/fhem/FHEM/98_structure.pm
index 6a7618252..8678f0138 100755
--- a/fhem/FHEM/98_structure.pm
+++ b/fhem/FHEM/98_structure.pm
@@ -159,7 +159,7 @@ sub structure_Notify($$)
my $behavior = AttrVal($me, "clientstate_behavior", "absolute");
my %clientstate;
- my @structPrio = split(" ", $attr{$me}{clientstate_priority})
+ my @structPrio = attrSplit($attr{$me}{clientstate_priority})
if($attr{$me}{clientstate_priority});
return "" if($hash->{INSET}); # Do not trigger for our own set
@@ -187,7 +187,7 @@ sub structure_Notify($$)
next if(!$defs{$d});
if($attr{$d} && $attr{$d}{$devmap}) {
- my @gruppe = split(" ", $attr{$d}{$devmap});
+ my @gruppe = attrSplit($attr{$d}{$devmap});
my @value;
for (my $i=0; $i<@gruppe; $i++) {
@value = split(":", $gruppe[$i]);
@@ -484,7 +484,7 @@ structure_Attr($@)
If clientstate_behavior is set to relative, then you have to set the
attribute "clientstate_priority" with all states of the defined devices
to this structure in descending order. Each group is delemited by
- space. Each entry of one group is delimited by "pipe". The status
+ space or /. Each entry of one group is delimited by "pipe". The status
represented by the structure is the first entry of each group.
Example:
@@ -623,7 +623,7 @@ structure_Attr($@)
beinflusst. Die Prioritäten sind in absteigender Reihenfolge anzugeben.
Dabei können Gruppen mit identischer Priorität angegeben werden, um zb.
unterschiedliche Devicetypen zusammenfassen zu können. Jede Gruppe wird durch
- Leerzeichen, jeder Eintrag pro Gruppe durch Pipe getrennt. Der Status der
+ Leerzeichen oder /, jeder Eintrag pro Gruppe durch Pipe getrennt. Der Status der
Struktur ist der erste Eintrag in der entsprechenden Gruppe.
Beispiel:
diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 9356b2673..962989703 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -52,7 +52,6 @@ sub CommandChain($$);
sub Dispatch($$$);
sub DoTrigger($$@);
sub EvalSpecials($%);
-sub EventMapAsList($);
sub FmtDateTime($);
sub FmtTime($);
sub GetLogLevel(@);
@@ -81,6 +80,7 @@ sub WriteStatefile();
sub XmlEscape($);
sub addEvent($$);
sub addToAttrList($);
+sub attrSplit($);
sub createInterfaceDefinitions();
sub devspec2array($);
sub doGlobalDef($);
@@ -1915,7 +1915,7 @@ getAllSets($)
$em = join(" ", grep { !/ / }
map { $_ =~ s/.*?=//s;
$_ =~ s/.*?://s; $_ }
- EventMapAsList($em));
+ attrSplit($em));
$a2 = "$em $a2";
}
return $a2;
@@ -2943,7 +2943,7 @@ addToAttrList($)
}
sub
-EventMapAsList($)
+attrSplit($)
{
my ($em) = @_;
my $sc = " "; # Split character
@@ -2968,7 +2968,7 @@ ReplaceEventMap($$$)
my $nstr = join(" ", @{$str}) if(!$dir);
my $changed;
- my @emList = EventMapAsList($em);
+ my @emList = attrSplit($em);
foreach my $rv (@emList) {
# Real-Event-Regexp:GivenName[:modifier]
my ($re, $val, $modifier) = split(":", $rv, 3);