From 1291734a0ae32f321b5838fbd767e3028c552834 Mon Sep 17 00:00:00 2001 From: Fridolyn SOMERS Date: Fri, 31 Aug 2012 16:02:27 +0200 Subject: [PATCH] Bug 8709: Subfield 0 does not show in MARC detail in intranet Signed-off-by: Chris Cormack Signed-off-by: Paul Poulain --- authorities/detail-biblio-search.pl | 2 +- authorities/detail.pl | 2 +- catalogue/MARCdetail.pl | 2 +- opac/opac-authoritiesdetail.pl | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/authorities/detail-biblio-search.pl b/authorities/detail-biblio-search.pl index 56a1a45400..d4dc693664 100755 --- a/authorities/detail-biblio-search.pl +++ b/authorities/detail-biblio-search.pl @@ -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; diff --git a/authorities/detail.pl b/authorities/detail.pl index 458746c862..4c96434520 100755 --- a/authorities/detail.pl +++ b/authorities/detail.pl @@ -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} diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl index 0490076402..72e6709e56 100755 --- a/catalogue/MARCdetail.pl +++ b/catalogue/MARCdetail.pl @@ -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} diff --git a/opac/opac-authoritiesdetail.pl b/opac/opac-authoritiesdetail.pl index 8d5367ffb3..4a4e382e6e 100755 --- a/opac/opac-authoritiesdetail.pl +++ b/opac/opac-authoritiesdetail.pl @@ -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/; -- 2.39.5