From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 12 Sep 2013 21:27:40 +0000 (+0200)
Subject: sort records by id
X-Git-Url: http://git.rot13.org/?p=crolist2marc;a=commitdiff_plain;h=66917084e6cdee5882224dbcdb1bcee7942bc0e6

sort records by id
---

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';