@@ -, +, @@ --- C4/ZebraIndex.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/C4/ZebraIndex.pm +++ a/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); --