sort records by id

[crolist2marc] / crolist2marc.pl

diff --git a/crolist2marc.pl b/crolist2marc.pl
index e74069c..b3670fb 100755 (executable)
--- a/crolist2marc.pl
+++ b/crolist2marc.pl
@@ -97,7 +97,7 @@ csv_file( 'OBRTAG.csv', sub {
 });
 
 print STDERR "\n# getting all ids ";
-my @ids = keys %$data;
+my @ids = sort keys %$data;
 print STDERR scalar(@ids), " found\n";
 
 my $marc_file = 'liberated.marc';