From a8fceb3d5f7f0910d0dde6e8036e881cf91a88c9 Mon Sep 17 00:00:00 2001 From: Alex Arnaud Date: Wed, 10 Jun 2015 14:37:49 +0200 Subject: [PATCH] Bug 13705 - Fix QA comments --- 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.7.10.4