[Koha-patches] [PATCH 6/8] Fixing Imporving YAML for authorities

[paul.poulain at biblibre.com]

From: Paul Poulain <paul.poulain at biblibre.com>

There was one case where the heading would not be precisely good
---
 misc/migration_tools/bulkmarcimport.pl |   17 +++++++++++------
 1 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl
index 4172584..2475f61 100755
--- a/misc/migration_tools/bulkmarcimport.pl
+++ b/misc/migration_tools/bulkmarcimport.pl
@@ -295,12 +295,12 @@ RECORD: while (  ) {
 					if ($yamlfile){
 						$yamlhash->{$originalid}->{'authid'}=$id;
 						# On récupère tous les souschamps des champs vedettes d'autorités
-						my @subfields=map{
-						    		    my $field=$_;
-						    		    map{
-									($_->[0]=~/[a-z]/?$_->[1]:()) 
+						my @subfields;
+						foreach my $field ($marcrecord->field("2..")){
+						    push @subfields, map{
+									($_->[0]=~/[a-z]/?$_->[1]:())
 						    		       }  $field->subfields();
-								 } $marcrecord->field("2..");
+						}
 						$yamlhash->{$originalid}->{'subfields'}=\@subfields;
 					}
 					next;
@@ -384,7 +384,12 @@ RECORD: while (  ) {
  	        }
 	        if ($yamlfile){
               	$yamlhash->{$originalid}->{'authid'}=$authid;
-	      	  	my @subfields=map{($_->[0]=~/[a-z]/?$_->[1]:())} $record->field("2..")->subfields();
+				my @subfields;
+				foreach my $field ($record->field("2..")){
+		    		push @subfields, map{
+							($_->[0]=~/[a-z]/?$_->[1]:())
+		    		       	}  $field->subfields();
+				}
 	      		$yamlhash->{$originalid}->{'subfields'}=\@subfields;
             }
         }
-- 
1.7.1