[Koha-patches] [PATCH] Bug 8709: Subfield 0 does not show in MARC detail in intranet
Fridolyn SOMERS
fridolyn.somers at biblibre.com
Fri Aug 31 16:04:34 CEST 2012
---
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 56a1a45..d4dc693 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 458746c..4c96434 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 0490076..72e6709 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 278db99..316bdc1 100755
--- a/opac/opac-authoritiesdetail.pl
+++ b/opac/opac-authoritiesdetail.pl
@@ -155,7 +155,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/;
--
1.7.9.5
More information about the Koha-patches
mailing list