From 79e659d0c0f07d84957b76dc014454ad002b06c5 Mon Sep 17 00:00:00 2001 From: Alex Arnaud Date: Wed, 10 Jun 2015 14:37:49 +0200 Subject: [PATCH] [SIGNED-OFF] Bug 13705 - Fix QA comments Signed-off-by: Bernardo Gonzalez Kriegel Tested using options -v -a -b -x -r -w -z --length --offset -nosanitize No problems found, same results as before. Output slightly different: Old) ==================== exporting authority ==================== 301.................................................................................................... Records exported: 389 ==================== REINDEXING zebra ==================== New) ==================== REINDEXING zebra ==================== ....................................................................................................100 ....................................................................................................200 ....................................................................................................300 ......................................................................................... 389 records exported to /tmp/PBlyusIn1Z/exported_records ==================== REINDEXING zebra =================== No errors save for those on comment #8 --- C4/ZebraIndex.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/ZebraIndex.pm b/C4/ZebraIndex.pm index 75f8944..8a81ac6 100644 --- a/C4/ZebraIndex.pm +++ b/C4/ZebraIndex.pm @@ -381,7 +381,7 @@ sub _fix_unimarc_100 { my $marc = shift; my $string; - my $string = $marc->subfield(100, 'a'); + $string = $marc->subfield(100, 'a'); if ( defined($string) and length($string) == 36 ) { my $f100 = $marc->field(100); $marc->delete_field($f100); -- 1.9.1