GetMarcBiblio
GetISBDView
GetMarcControlnumber
- GetMarcNotes
GetMarcISBN
GetMarcISSN
GetMarcSubjects
my $linker = $linker_module->new(
{ 'options' => C4::Context->preference("LinkerOptions") } );
my ( $headings_changed, $results ) =
- LinkBibHeadingsToAuthorities( $linker, $record, $frameworkcode, C4::Context->preference("CatalogModuleRelink") || '', $verbose );
+ LinkBibHeadingsToAuthorities( $linker, $record, $frameworkcode, C4::Context->preference("CatalogModuleRelink") || '', undef, $verbose );
# By default we probably don't want to relink things when cataloging
return $headings_changed, $results;
}
=head2 LinkBibHeadingsToAuthorities
- my $num_headings_changed, %results = LinkBibHeadingsToAuthorities($linker, $marc, $frameworkcode, [$allowrelink, $verbose]);
+ my $num_headings_changed, %results = LinkBibHeadingsToAuthorities($linker, $marc, $frameworkcode, [$allowrelink, $tagtolink, $verbose]);
Links bib headings to authority records by checking
each authority-controlled field in the C<MARC::Record>
my ( $authid, $field ) = @_;
require C4::AuthoritiesMarc;
- my $authorized_heading =
- C4::AuthoritiesMarc::GetAuthorizedHeading( { 'authid' => $authid } ) || '';
- return ($field->as_string('abcdefghijklmnopqrstuvwxyz') eq $authorized_heading);
+ return C4::AuthoritiesMarc::CompareFieldWithAuthority( { 'field' => $field, 'authid' => $authid } );
}
=head2 GetBiblioData
ORDER BY tagfield"
);
$sth->execute($frameworkcode);
- my ( $liblibrarian, $libopac, $tag, $res, $tab, $mandatory, $repeatable, $important, $ind1_defaultvalue, $ind2_defaultvalue );
+ my ( $liblibrarian, $libopac, $tag, $res, $mandatory, $repeatable, $important, $ind1_defaultvalue, $ind2_defaultvalue );
while ( ( $tag, $liblibrarian, $libopac, $mandatory, $repeatable, $important, $ind1_defaultvalue, $ind2_defaultvalue ) = $sth->fetchrow ) {
$res->{$tag}->{lib} = ( $forlibrarian or !$libopac ) ? $liblibrarian : $libopac;
$res->{$tag}->{ind2_defaultvalue} = $ind2_defaultvalue;
}
- $sth = $dbh->prepare(
- "SELECT tagfield,tagsubfield,liblibrarian,libopac,tab,mandatory,repeatable,authorised_value,authtypecode,value_builder,kohafield,seealso,hidden,isurl,link,defaultvalue,maxlength,important
- FROM marc_subfield_structure
- WHERE frameworkcode=?
- ORDER BY tagfield,tagsubfield
- "
- );
-
- $sth->execute($frameworkcode);
-
- my $subfield;
- my $authorised_value;
- my $authtypecode;
- my $value_builder;
- my $kohafield;
- my $seealso;
- my $hidden;
- my $isurl;
- my $link;
- my $defaultvalue;
- my $maxlength;
-
- while (
- ( $tag, $subfield, $liblibrarian, $libopac, $tab, $mandatory, $repeatable, $authorised_value,
- $authtypecode, $value_builder, $kohafield, $seealso, $hidden, $isurl, $link, $defaultvalue,
- $maxlength, $important
- )
- = $sth->fetchrow
- ) {
- $res->{$tag}->{$subfield}->{lib} = ( $forlibrarian or !$libopac ) ? $liblibrarian : $libopac;
- $res->{$tag}->{$subfield}->{tab} = $tab;
- $res->{$tag}->{$subfield}->{mandatory} = $mandatory;
- $res->{$tag}->{$subfield}->{important} = $important;
- $res->{$tag}->{$subfield}->{repeatable} = $repeatable;
- $res->{$tag}->{$subfield}->{authorised_value} = $authorised_value;
- $res->{$tag}->{$subfield}->{authtypecode} = $authtypecode;
- $res->{$tag}->{$subfield}->{value_builder} = $value_builder;
- $res->{$tag}->{$subfield}->{kohafield} = $kohafield;
- $res->{$tag}->{$subfield}->{seealso} = $seealso;
- $res->{$tag}->{$subfield}->{hidden} = $hidden;
- $res->{$tag}->{$subfield}->{isurl} = $isurl;
- $res->{$tag}->{$subfield}->{'link'} = $link;
- $res->{$tag}->{$subfield}->{defaultvalue} = $defaultvalue;
- $res->{$tag}->{$subfield}->{maxlength} = $maxlength;
+ my $mss = Koha::MarcSubfieldStructures->search( { frameworkcode => $frameworkcode } )->unblessed;
+ for my $m (@$mss) {
+ $res->{ $m->{tagfield} }->{ $m->{tagsubfield} } = {
+ lib => ( $forlibrarian or !$m->{libopac} ) ? $m->{liblibrarian} : $m->{libopac},
+ subfield => $m->{tagsubfield},
+ %$m
+ };
}
$cache->set_in_cache($cache_key, $res);
FROM marc_subfield_structure
WHERE tab > -1
AND frameworkcode = ?
- ORDER BY tagfield, tagsubfield
+ ORDER BY tagfield, display_order, tagsubfield
};
my $sth = C4::Context->dbh->prepare($query);
$sth->execute($frameworkcode);
FROM marc_subfield_structure
WHERE frameworkcode = ?
AND kohafield > ''
- ORDER BY frameworkcode,tagfield,tagsubfield
+ ORDER BY frameworkcode, tagfield, display_order, tagsubfield
|, { Slice => {} }, $frameworkcode );
# Now map the output to a hash structure
my $subfield_structure = {};
return \@marcissns;
} # end GetMarcISSN
-=head2 GetMarcNotes
-
- $marcnotesarray = GetMarcNotes( $record, $marcflavour );
-
- Get all notes from the MARC record and returns them in an array.
- The notes are stored in different fields depending on MARC flavour.
- MARC21 5XX $u subfields receive special attention as they are URIs.
-
-=cut
-
-sub GetMarcNotes {
- my ( $record, $marcflavour, $opac ) = @_;
- if (!$record) {
- carp 'GetMarcNotes called on undefined record';
- return;
- }
-
- my $scope = $marcflavour eq "UNIMARC"? '3..': '5..';
- my @marcnotes;
-
- #MARC21 specs indicate some notes should be private if first indicator 0
- my %maybe_private = (
- 541 => 1,
- 542 => 1,
- 561 => 1,
- 583 => 1,
- 590 => 1
- );
-
- my %hiddenlist = map { $_ => 1 }
- split( /,/, C4::Context->preference('NotesToHide'));
- foreach my $field ( $record->field($scope) ) {
- my $tag = $field->tag();
- next if $hiddenlist{ $tag };
- next if $opac && $maybe_private{$tag} && !$field->indicator(1);
- if( $marcflavour ne 'UNIMARC' && $field->subfield('u') ) {
- # Field 5XX$u always contains URI
- # Examples: 505u, 506u, 510u, 514u, 520u, 530u, 538u, 540u, 542u, 552u, 555u, 561u, 563u, 583u
- # We first push the other subfields, then all $u's separately
- # Leave further actions to the template (see e.g. opac-detail)
- my $othersub =
- join '', ( 'a' .. 't', 'v' .. 'z', '0' .. '9' ); # excl 'u'
- push @marcnotes, { marcnote => $field->as_string($othersub) };
- foreach my $sub ( $field->subfield('u') ) {
- $sub =~ s/^\s+|\s+$//g; # trim
- push @marcnotes, { marcnote => $sub };
- }
- } else {
- push @marcnotes, { marcnote => $field->as_string() };
- }
- }
- return \@marcnotes;
-}
-
=head2 GetMarcSubjects
$marcsubjcts = GetMarcSubjects($record,$marcflavour);
projects / koha-ffzg.git / blobdiff