gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

authorities: added LinkBibHeadingsToAuthorities 

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Galen Charlton 2008-02-07 00:11:50 -06:00 committed by Joshua Ferraro
parent 5609f21c36
commit 62ef942468
1 changed files with 65 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
C4/Biblio.pm
View File

@ -30,6 +30,7 @@ use C4::Branch;
use C4::Dates qw/format_date/;
use C4::Log; # logaction
use C4::ClassSource;
use C4::Heading;
use vars qw($VERSION @ISA @EXPORT);
@ -81,6 +82,13 @@ BEGIN {
push @EXPORT, qw(
&DelBiblio
);
# To link headings in a bib record
# to authority records.
push @EXPORT, qw(
&LinkBibHeadingsToAuthorities
);
# Internal functions
# those functions are exported but should not be used
# they are usefull is few circumstances, so are exported.
@ -367,6 +375,63 @@ sub DelBiblio {
return;
}
=head2 LinkBibHeadingsToAuthorities
=over 4
my $headings_linked = LinkBibHeadingsToAuthorities($marc);
=back
Links bib headings to authority records by checking
each authority-controlled field in the C<MARC::Record>
object C<$marc>, looking for a matching authority record,
and setting the linking subfield $9 to the ID of that
authority record.
If no matching authority exists, or if multiple
authorities match, no $9 will be added, and any
existing one inthe field will be deleted.
Returns the number of heading links changed in the
MARC record.
=cut
sub LinkBibHeadingsToAuthorities {
my $bib = shift;
my $num_headings_changed = 0;
foreach my $field ($bib->fields()) {
my $heading = C4::Heading->new_from_bib_field($field);
next unless defined $heading;
# check existing $9
my $current_link = $field->subfield('9');
# look for matching authorities
my $authorities = $heading->authorities();
# want only one exact match
if ($#{ $authorities } == 0) {
my $authority = MARC::Record->new_from_usmarc($authorities->[0]);
my $authid = $authority->field('001')->data();
next if defined $current_link and $current_link eq $authid;
$field->delete_subfield(code => '9') if defined $current_link;
$field->add_subfields('9', $authid);
$num_headings_changed++;
} else {
if (defined $current_link) {
$field->delete_subfield(code => '9');
$num_headings_changed++;
}
}
}
return $num_headings_changed;
}
=head2 GetBiblioData
=over 4