From afe4ecb94e1c69062924eee2bd5f1e56dd3c47b3 Mon Sep 17 00:00:00 2001
From: Paul Poulain <paul.poulain@biblibre.com>
Date: Wed, 3 Jun 2009 17:19:37 +0200
Subject: [PATCH] sanop specific : sorting itemtype

should not be ported to head, as it's a dirty unimarc hack, that will disappear with itemtype at item level
---
 acqui/addorderiso2709.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl
index 51df588dc9..6329307c96 100755
--- a/acqui/addorderiso2709.pl
+++ b/acqui/addorderiso2709.pl
@@ -266,7 +266,7 @@ sub import_biblios_list {
 # Itemtype is mandatory for adding a biblioitem, we just add a default, the user needs to modify this aftewards
     my $itemtypehash = GetItemTypes();
     my @itemtypes;
-    for my $key (keys %$itemtypehash) {
+    for my $key (sort { $itemtypehash->{$a}->{description} cmp $itemtypehash->{$b}->{description} } keys %$itemtypehash) {
         push(@itemtypes, $itemtypehash->{$key});
     }
     foreach my $biblio (@$biblios) {
-- 
2.39.5