=cut
-use strict;
-use warnings;
+use Modern::Perl;
use C4::AuthoritiesMarc;
use C4::Auth;
+use C4::Biblio qw(GetMarcUrls);
use C4::Context;
use C4::Output;
use CGI qw ( -utf8 );
my $dbh = C4::Context->dbh;
my $display_hierarchy = C4::Context->preference("AuthDisplayHierarchy");
+my $marcflavour = C4::Context->preference("marcflavour");
my $show_marc = $query->param('marc');
# open template
my $count = $authority ? $authority->get_usage_count : 0;
my $authority_types = Koha::Authority::Types->search( {}, { order_by => ['authtypecode'] } );
+my $marcurlsarray = GetMarcUrls( $record, $marcflavour );
+
$template->param(
authority_types => $authority_types,
authtypetext => $authority_types->find($authtypecode)->authtypetext,
authid => $authid,
count => $count,
+ MARCURLS => $marcurlsarray,
);
# find the marc field/subfield used in biblio by this authority
my @subfields_data;
# skip UNIMARC fields <200, they are useless for a patron
- next if C4::Context->preference('marcflavour') eq 'UNIMARC' && $field->tag() <200;
+ next if $marcflavour eq 'UNIMARC' && $field->tag() <200;
# if tag <10, there's no subfield, use the "@" trick
if ( $field->tag() < 10 ) {
$subfield_data{marc_tag} = $field->tag();
push( @subfields_data, \%subfield_data );
}
- elsif ( C4::Context->preference('marcflavour') eq 'MARC21' && $field->tag() eq 667 ) {
+ elsif ( $marcflavour eq 'MARC21' && $field->tag() eq 667 ) {
# tagfield 667 is a nonpublic general note in MARC21, which shouldn't be shown in the OPAC
}
else {