From 65b72b917c8d25a7d478da0dd7ef506be89f36a0 Mon Sep 17 00:00:00 2001 From: Jared CAMINS-ESAKOV Date: Thu, 22 Apr 2010 13:39:21 -0400 Subject: [PATCH] Show complete call numbers Content-Type: text/plain; charset="utf-8" Show complete call numbers on the OPAC Details display for records which do not have items. --- opac/opac-detail.pl | 13 +++++++++++++ 1 files changed, 13 insertions(+), 0 deletions(-) diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl index 9cb2037..4d40771 100755 --- a/opac/opac-detail.pl +++ b/opac/opac-detail.pl @@ -224,6 +224,19 @@ for my $field852 (@field852s) { my @subfieldc = $field852->subfield('c'); $noitemloc{'noitemloc'} .= ' (' . join('/', @subfieldc) . ')'; } + if ($field852->subfield('j')) { + my @subfieldj = $field852->subfield('j'); + $noitemloc{'noitemloc'} .= ': ' . join(',', @subfieldj); + } elsif ($field852->subfield('i')) { + my @subfieldi = $field852->subfield('i'); + $noitemloc{'noitemloc'} .= ': ' . join(',', @subfieldi); + } elsif ($field852->subfield('p')) { + my @subfieldp = $field852->subfield('p'); + $noitemloc{'noitemloc'} .= ': ' . join(',', @subfieldp); + } elsif ($field852->subfield('l')) { + my @subfieldl = $field852->subfield('l'); + $noitemloc{'noitemloc'} .= ': ' . join(',', @subfieldl); + } push(@noitemlocations, \%noitemloc); } -- 1.7.0.4