Merge branch 'bug_9620' into 3.12-master

This commit is contained in:
Jared Camins-Esakov 2013-03-07 09:31:29 -05:00
commit 203fb520db

View file

@ -85,6 +85,7 @@ sub _processrecord {
my @newfields; my @newfields;
foreach my $authfield (@seefrom) { foreach my $authfield (@seefrom) {
my $tag = substr($field->tag(), 0, 1) . substr($authfield->tag(), 1, 2); my $tag = substr($field->tag(), 0, 1) . substr($authfield->tag(), 1, 2);
next if MARC::Field->is_controlfield_tag($tag);
my $newfield = MARC::Field->new($tag, my $newfield = MARC::Field->new($tag,
'z', 'z',
$authfield->indicator(2) || ' ', $authfield->indicator(2) || ' ',