diff --git a/public/IRC3sp.pl b/public/IRC3sp.pl index e3a084c..7ea7408 100755 --- a/public/IRC3sp.pl +++ b/public/IRC3sp.pl @@ -602,6 +602,7 @@ # } } } + $tmp .= " \"value\": {\n" if $ws; my @especes = sort keys %especes; if ( @especes ) { $tmp .= " \"species\": [\n"; @@ -615,12 +616,13 @@ else { $tmp .= " \"species\": []\n"; } - $tmp .= " }"; + $tmp .= $ws ? "}}" : " }"; push(@tmp, $tmp); } if ( $ws ) { foreach my $item (@tmp) { $item =~ s/^ *//o; + $item =~ s/,\n */, /go; $item =~ s/\n *//go; } return @tmp;