@@ -, +, @@ --- cataloguing/addbiblio.pl | 2 ++ 1 file changed, 2 insertions(+) --- a/cataloguing/addbiblio.pl +++ a/cataloguing/addbiblio.pl @@ -640,6 +640,7 @@ sub build_tabs { # note that the random() field is mandatory. Otherwise, on repeated fields, you'll # have twice the same "name" value, and cgi->param() will return only one, making # all subfields to be merged in a single field. + @subfields_data = sort { $a->{subfield} cmp $b->{subfield} } @subfields_data; my %tag_data = ( tag => $tag, index => $index_tag, @@ -686,6 +687,7 @@ sub build_tabs { ); } if ( $#subfields_data >= 0 ) { + @subfields_data = sort { $a->{subfield} cmp $b->{subfield} } @subfields_data; my %tag_data = ( tag => $tag, index => $index_tag, --