diff --git a/public/IRC3sp.pl b/public/IRC3sp.pl index 7ea7408..8ba41cd 100755 --- a/public/IRC3sp.pl +++ b/public/IRC3sp.pl @@ -589,23 +589,17 @@ # foreach my $item (@resultats) { while ( my $item = shift @resultats ) { my @champs = split(/\t/, $item); -# if ( $champs[2] ) { if ( $champs[2] =~ /^\?.+\?\z/o ) { push(@ambigus, $item); } else { $especes{$champs[2]} ++; } -# } -# else { -# $especes{$champs[0]} ++; -# } } } - $tmp .= " \"value\": {\n" if $ws; my @especes = sort keys %especes; if ( @especes ) { - $tmp .= " \"species\": [\n"; + $tmp .= $ws ? " \"value\": [\n" : " \"species\": [\n"; while (my $item = shift @especes) { $tmp .= " \"$item\""; $tmp .= ", " if @especes; @@ -616,7 +610,7 @@ else { $tmp .= " \"species\": []\n"; } - $tmp .= $ws ? "}}" : " }"; + $tmp .= " }"; push(@tmp, $tmp); } if ( $ws ) {