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 |
- |
|
|