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