Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 8709: Subfield 0 does not show in MARC detail in intranet

Browse source 
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
This commit is contained in:
Fridolyn SOMERS 2012-08-31 16:02:27 +02:00 committed by Paul Poulain
parent a51aa4f546
commit 1291734a0a
4 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
authorities/detail-biblio-search.pl
View file

@ -93,7 +93,7 @@ my @fields = $record->fields();
my @subf=$field->subfields;
# loop through each subfield
for my $i (0..$#subf) {
$subf[$i][0] = "@" unless $subf[$i][0];
$subf[$i][0] = "@" unless defined $subf[$i][0];
# next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{tab} ne $tabloop);
next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{hidden});
my %subfield_data;

2
authorities/detail.pl
View file

@ -106,7 +106,7 @@ sub build_tabs {
my @subf=$field->subfields;
# loop through each subfield
for my $i (0..$#subf) {
$subf[$i][0] = "@" unless $subf[$i][0];
$subf[$i][0] = "@" unless defined $subf[$i][0];
next
if (
$tagslib->{ $field->tag() }->{ $subf[$i][0] }->{tab}

2
catalogue/MARCdetail.pl
View file

@ -177,7 +177,7 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
# loop through each subfield
for my $i ( 0 .. $#subf ) {
$subf[$i][0] = "@" unless $subf[$i][0];
$subf[$i][0] = "@" unless defined $subf[$i][0];
next
if (
$tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{tab}

2
opac/opac-authoritiesdetail.pl
View file

@ -156,7 +156,7 @@ if ($show_marc) {
# loop through each subfield
for my $i ( 0 .. $#subf ) {
$subf[$i][0] = "@" unless $subf[$i][0];
$subf[$i][0] = "@" unless defined $subf[$i][0];
next if ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{hidden} );
# skip useless subfields (for patrons)
next if $subf[$i][0] =~ /7|8|9/;