Bug 28293: (bug 20443 follow-up) Fix wrong key in Patrons::Import->generate_patron_at...
authorJonathan Druart <jonathan.druart@bugs.koha-community.org>
Thu, 6 May 2021 09:18:55 +0000 (11:18 +0200)
committerJonathan Druart <jonathan.druart@bugs.koha-community.org>
Tue, 11 May 2021 13:09:19 +0000 (15:09 +0200)
It generates warnings
Use of uninitialized value in string comparison (cmp) at /kohadevbox/koha/Koha/Patrons/Import.pm line 550, <$fh> line 2.

And does not sort correctly (no fallback on the attribute's value for repeatable attributes)

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Koha/Patrons/Import.pm

index d951bf5..c026910 100644 (file)
@@ -538,7 +538,7 @@ sub generate_patron_attributes {
     my $ok   = $csv->parse($string);  # parse field again to get subfields!
     my @list = $csv->fields();
     my @patron_attributes =
-      sort { $a->{code} cmp $b->{code} || $a->{value} cmp $b->{value} }
+      sort { $a->{code} cmp $b->{code} || $a->{attribute} cmp $b->{attribute} }
       map {
         my @arr = split /:/, $_, 2;
         { code => $arr[0], attribute => $arr[1] }