X-Git-Url: http://git.rot13.org/?p=crolist2marc;a=blobdiff_plain;f=crolist2marc.pl;fp=crolist2marc.pl;h=b3670fb6308e10e08a0549f0739dbf59a1ce3e83;hp=e74069c0c75b0a64ec1fef427d0d0845307543b0;hb=66917084e6cdee5882224dbcdb1bcee7942bc0e6;hpb=76c14b5057d55f04328fa2271828fc3c0421563b

diff --git a/crolist2marc.pl b/crolist2marc.pl
index e74069c..b3670fb 100755
--- 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';