Lines 640-645
sub build_tabs {
Link Here
|
640 |
# note that the random() field is mandatory. Otherwise, on repeated fields, you'll |
640 |
# note that the random() field is mandatory. Otherwise, on repeated fields, you'll |
641 |
# have twice the same "name" value, and cgi->param() will return only one, making |
641 |
# have twice the same "name" value, and cgi->param() will return only one, making |
642 |
# all subfields to be merged in a single field. |
642 |
# all subfields to be merged in a single field. |
|
|
643 |
@subfields_data = sort { $a->{subfield} cmp $b->{subfield} } @subfields_data; |
643 |
my %tag_data = ( |
644 |
my %tag_data = ( |
644 |
tag => $tag, |
645 |
tag => $tag, |
645 |
index => $index_tag, |
646 |
index => $index_tag, |
Lines 686-691
sub build_tabs {
Link Here
|
686 |
); |
687 |
); |
687 |
} |
688 |
} |
688 |
if ( $#subfields_data >= 0 ) { |
689 |
if ( $#subfields_data >= 0 ) { |
|
|
690 |
@subfields_data = sort { $a->{subfield} cmp $b->{subfield} } @subfields_data; |
689 |
my %tag_data = ( |
691 |
my %tag_data = ( |
690 |
tag => $tag, |
692 |
tag => $tag, |
691 |
index => $index_tag, |
693 |
index => $index_tag, |
692 |
- |
|
|