projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 10572: Add phone to message_transport_types table for new installs
[koha.git]
/
opac
/
opac-authoritiesdetail.pl
diff --git
a/opac/opac-authoritiesdetail.pl
b/opac/opac-authoritiesdetail.pl
index
ffe9734
..
3e17cf1
100755
(executable)
--- a/
opac/opac-authoritiesdetail.pl
+++ b/
opac/opac-authoritiesdetail.pl
@@
-67,6
+67,7
@@
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
);
my $authid = $query->param('authid');
);
my $authid = $query->param('authid');
+$authid = int($authid);
my $record = GetAuthority( $authid );
if ( ! $record ) {
print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early
my $record = GetAuthority( $authid );
if ( ! $record ) {
print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early
@@
-121,7
+122,7
@@
if ($show_marc) {
my @subfields_data;
# skip UNIMARC fields <200, they are useless for a patron
my @subfields_data;
# skip UNIMARC fields <200, they are useless for a patron
- next if C4::Context->preference('
MarcF
lavour') eq 'UNIMARC' && $field->tag() <200;
+ next if C4::Context->preference('
marcf
lavour') eq 'UNIMARC' && $field->tag() <200;
# if tag <10, there's no subfield, use the "@" trick
if ( $field->tag() < 10 ) {
# if tag <10, there's no subfield, use the "@" trick
if ( $field->tag() < 10 ) {
@@
-133,6
+134,9
@@
if ($show_marc) {
$subfield_data{marc_tag} = $field->tag();
push( @subfields_data, \%subfield_data );
}
$subfield_data{marc_tag} = $field->tag();
push( @subfields_data, \%subfield_data );
}
+ elsif ( C4::Context->preference('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 {
my @subf = $field->subfields;
else {
my @subf = $field->subfields;