diff --git a/outils/stats-corpus/statsCorpus.pl b/outils/stats-corpus/statsCorpus.pl index 64c0f0a..ef067bf 100755 --- a/outils/stats-corpus/statsCorpus.pl +++ b/outils/stats-corpus/statsCorpus.pl @@ -26,7 +26,7 @@ " $substitut [ -f (csv|json|tsv) ] [ -x (normal|lodex) ] \n". " $programme -h \n"; -my $version = "3.3.1"; +my $version = "3.3.2"; my $dateModif = "24 Juillet 2018"; # Variables pour les options @@ -630,13 +630,17 @@ $auteurs = \@names if $type eq 'json'; } if ( @affiliations ) { - if ( $#names > 0 and $xtended eq 'lodex' ) { - for ( my $n = 0 ; $n <= $#affiliations ; $n ++ ) { - $affiliations[$n] = $n + 1 . ") $affiliations[$n]"; - } + if ( $type eq 'json' ) { + $affiliations = \@affiliations; } - $affiliations = join(" ; ", @affiliations) if $type ne 'json'; - $affiliations = \@affiliations if $type eq 'json'; + else { + # if ( $#names > 0 and $xtended eq 'lodex' ) { + # for ( my $n = 0 ; $n <= $#affiliations ; $n ++ ) { + # $affiliations[$n] = $n + 1 . ") $affiliations[$n]"; + # } + # } + $affiliations = join(" ; ", @affiliations); + } } } elsif ( $type eq 'json' ) {