Bug 29511: Sort hash keys
This code exists in authorities/authorities.pl and the hash keys are sorted
I just do the same here
To test:
1 - Find/create a record with 245a 245h populated
2 - Load/reload the record several times and note that fields c and b are ordered randomly
3 - Apply patch
4 - Reload and note c and b are ordered alphabetically
5 - Move subfield h before subfield c
6 - Save and reload
7 - Confirm that existing/filled fields retain order in the MARC record
Signed-off-by: Hayley Pelham <hayleypelham@catalyst.net.nz>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
(cherry picked from commit d5db394e65)
Signed-off-by: Andrew Fuerste-Henry <andrew@bywatersolutions.com>
This commit is contained in:
parent
d5ecd99396
commit
8a0602843e
|
|
@ -580,7 +580,7 @@ sub build_tabs {
|
|||
}
|
||||
|
||||
# now, loop again to add parameter subfield that are not in the MARC::Record
|
||||
foreach my $subfield ( keys %{ $tagslib->{$tag} } )
|
||||
foreach my $subfield ( sort( keys %{ $tagslib->{$tag} } ) )
|
||||
{
|
||||
next if ( length $subfield != 1 );
|
||||
next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
|
||||
|
|
|
|||
Loading…
Reference in New Issue