From 329343f6d51c1c724c8402e47f6a805a77a4f518 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Thu, 5 Jan 2012 14:45:06 +0100
Subject: [PATCH] 6829 Follow up
Content-Type: text/plain; charset="utf-8"
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Needed this second follow up to remove 952-0 from the display again, coming up after the first follow up.
Changed a second test in accordance with first follow up.
Removed a useless 10th loop to create a tab10XX that is not in the template.
---
opac/opac-MARCdetail.pl | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl
index 272ac0c..f408cd2 100755
--- a/opac/opac-MARCdetail.pl
+++ b/opac/opac-MARCdetail.pl
@@ -95,7 +95,7 @@ my @loop_data = ();
my $tag;
# loop through each tab 0 through 9
-for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
+for ( my $tabloop = 0 ; $tabloop <= 9 ; $tabloop++ ) {
# loop through each tag
my @loop_data = ();
@@ -140,7 +140,7 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
my $previous = '';
# loop through each subfield
for my $i ( 0 .. $#subf ) {
- $subf[$i][0] = "@" unless $subf[$i][0];
+ $subf[$i][0] = "@" unless defined($subf[$i][0]);
my $sf_def = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] };
next if ( ($sf_def->{tab}||0) != $tabloop );
next if ( ($sf_def->{hidden}||0) > 0 );
@@ -215,7 +215,7 @@ foreach my $field (@fields) {
# loop through each subfield
for my $i ( 0 .. $#subf ) {
my $sf_def = $tagslib->{ $field->tag() }->{ $subf[$i][0] };
- next if ( ($sf_def->{tab}||'') ne 10 );
+ next if ( ($sf_def->{tab}||0) != 10 );
next if ( ($sf_def->{hidden}||0) > 0 );
$witness{ $subf[$i][0] } = $sf_def->{lib};
--
1.6.0.6