Merge branch 'bug_9620' into 3.12-master
This commit is contained in:
commit
203fb520db
1 changed files with 1 additions and 0 deletions
|
@ -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) || ' ',
|
||||||
|
|
Loading…
Reference in a new issue