View | Details | Raw Unified | Return to bug 10876
Collapse All | Expand All

(-)a/opac/opac-MARCdetail.pl (-1 / +5 lines)
Lines 53-58 use C4::Biblio; Link Here
53
use C4::Items;
53
use C4::Items;
54
use C4::Acquisition;
54
use C4::Acquisition;
55
use C4::Koha;
55
use C4::Koha;
56
use List::MoreUtils qw/any/;
56
57
57
my $query = new CGI;
58
my $query = new CGI;
58
59
Lines 77-82 if (scalar @all_items >= 1) { Link Here
77
78
78
my $itemtype     = &GetFrameworkCode($biblionumber);
79
my $itemtype     = &GetFrameworkCode($biblionumber);
79
my $tagslib      = &GetMarcStructure( 0, $itemtype );
80
my $tagslib      = &GetMarcStructure( 0, $itemtype );
81
my ($tag_itemnumber,$subtag_itemnumber) = &GetMarcFromKohaField('items.itemnumber',$itemtype);
80
my $biblio = GetBiblioData($biblionumber);
82
my $biblio = GetBiblioData($biblionumber);
81
$biblionumber = $biblio->{biblionumber};
83
$biblionumber = $biblio->{biblionumber};
82
my $record = GetMarcBiblio($biblionumber, 1);
84
my $record = GetMarcBiblio($biblionumber, 1);
Lines 238-243 my %witness Link Here
238
my @big_array;
240
my @big_array;
239
foreach my $field (@fields) {
241
foreach my $field (@fields) {
240
    next if ( $field->tag() < 10 );
242
    next if ( $field->tag() < 10 );
243
    next if ( ( $field->tag() eq $tag_itemnumber ) &&
244
              ( any { $field->subfield($subtag_itemnumber) eq $_ }
245
                   @items2hide) );
241
    my @subf = $field->subfields;
246
    my @subf = $field->subfields;
242
    my %this_row;
247
    my %this_row;
243
248
244
- 

Return to bug 10876