2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00

fhem.pl: Fix for json2nameValue multi Prefix (Forum #108828)

git-svn-id: https://svn.fhem.de/fhem/trunk@21311 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2020-02-29 09:14:28 +00:00
parent cd3dc91f2b
commit 0c8b66e869

View File

@ -5167,6 +5167,7 @@ json2nameValue($;$$)
{
my ($ret,$map,$name,$val,$in,$prefix,$firstLevel) = @_;
my $err;
$prefix="" if(!$firstLevel);
if($val =~ m/^"/) {
($err, $val, $in) = lStr($val);
@ -5197,7 +5198,8 @@ json2nameValue($;$$)
my $idx = 1;
$val =~ s/^\s*//;
while($val) {
($err,$val) = eObj($ret, $map, $firstLevel ? $idx : $name."_$idx",
($err,$val) = eObj($ret, $map,
$firstLevel ? "$prefix$idx" : $name."_$idx",
$val, $val, $prefix);
return ($err,undef) if($err);
$val =~ s/^\s*,\s*//;