Lines 540-546
sub LinkBibHeadingsToAuthorities {
Link Here
|
540 |
} |
540 |
} |
541 |
require C4::Heading; |
541 |
require C4::Heading; |
542 |
require C4::AuthoritiesMarc; |
542 |
require C4::AuthoritiesMarc; |
543 |
|
|
|
544 |
$allowrelink = 1 unless defined $allowrelink; |
543 |
$allowrelink = 1 unless defined $allowrelink; |
545 |
my $num_headings_changed = 0; |
544 |
my $num_headings_changed = 0; |
546 |
foreach my $field ( $bib->fields() ) { |
545 |
foreach my $field ( $bib->fields() ) { |
Lines 658-663
sub LinkBibHeadingsToAuthorities {
Link Here
|
658 |
} |
657 |
} |
659 |
|
658 |
|
660 |
} |
659 |
} |
|
|
660 |
push(@{$results{'details'}}, { tag => '', authid => undef, status => 'UNCHANGED'}) unless %results; |
661 |
return $num_headings_changed, \%results; |
661 |
return $num_headings_changed, \%results; |
662 |
} |
662 |
} |
663 |
|
663 |
|