|
Lines 52-65
use MARC::Record;
Link Here
|
| 52 |
use C4::Biblio; |
52 |
use C4::Biblio; |
| 53 |
use C4::Acquisition; |
53 |
use C4::Acquisition; |
| 54 |
use C4::Koha; |
54 |
use C4::Koha; |
|
|
55 |
use C4::Items; |
| 56 |
use List::MoreUtils qw/any/; |
| 55 |
|
57 |
|
| 56 |
my $query = new CGI; |
58 |
my $query = new CGI; |
| 57 |
|
59 |
|
| 58 |
my $dbh = C4::Context->dbh; |
60 |
my $dbh = C4::Context->dbh; |
| 59 |
|
61 |
|
| 60 |
my $biblionumber = $query->param('biblionumber'); |
62 |
my $biblionumber = $query->param('biblionumber'); |
|
|
63 |
if ( ! $biblionumber ) { |
| 64 |
print $query->redirect("/cgi-bin/koha/errors/404.pl"); |
| 65 |
exit; |
| 66 |
} |
| 67 |
|
| 68 |
my @all_items = GetItemsInfo($biblionumber); |
| 69 |
my @items2hide; |
| 70 |
if (scalar @all_items >= 1) { |
| 71 |
push @items2hide, GetHiddenItemnumbers(@all_items); |
| 72 |
|
| 73 |
if (scalar @items2hide == scalar @all_items ) { |
| 74 |
print $query->redirect("/cgi-bin/koha/errors/404.pl"); |
| 75 |
exit; |
| 76 |
} |
| 77 |
} |
| 78 |
|
| 61 |
my $itemtype = &GetFrameworkCode($biblionumber); |
79 |
my $itemtype = &GetFrameworkCode($biblionumber); |
| 62 |
my $tagslib = &GetMarcStructure( 0, $itemtype ); |
80 |
my $tagslib = &GetMarcStructure( 0, $itemtype ); |
|
|
81 |
my ($tag_itemnumber,$subtag_itemnumber) = &GetMarcFromKohaField('items.itemnumber',$itemtype); |
| 63 |
my $biblio = GetBiblioData($biblionumber); |
82 |
my $biblio = GetBiblioData($biblionumber); |
| 64 |
$biblionumber = $biblio->{biblionumber}; |
83 |
$biblionumber = $biblio->{biblionumber}; |
| 65 |
my $record = GetMarcBiblio($biblionumber, 1); |
84 |
my $record = GetMarcBiblio($biblionumber, 1); |
|
Lines 209-215
for ( my $tabloop = 0 ; $tabloop <= 9 ; $tabloop++ ) {
Link Here
|
| 209 |
$template->param( "tab" . $tabloop . "XX" => \@loop_data ); |
228 |
$template->param( "tab" . $tabloop . "XX" => \@loop_data ); |
| 210 |
} |
229 |
} |
| 211 |
|
230 |
|
| 212 |
|
|
|
| 213 |
# now, build item tab ! |
231 |
# now, build item tab ! |
| 214 |
# the main difference is that datas are in lines and not in columns : thus, we build the <th> first, then the values... |
232 |
# the main difference is that datas are in lines and not in columns : thus, we build the <th> first, then the values... |
| 215 |
# loop through each tag |
233 |
# loop through each tag |
|
Lines 223-228
foreach my $field (@fields) {
Link Here
|
| 223 |
next if ( $field->tag() < 10 ); |
241 |
next if ( $field->tag() < 10 ); |
| 224 |
my @subf = $field->subfields; |
242 |
my @subf = $field->subfields; |
| 225 |
my %this_row; |
243 |
my %this_row; |
|
|
244 |
next if ( ($field->tag() eq $tag_itemnumber) && |
| 245 |
(any { $field->subfield($subtag_itemnumber) eq $_ } |
| 246 |
@items2hide) ); |
| 226 |
|
247 |
|
| 227 |
# loop through each subfield |
248 |
# loop through each subfield |
| 228 |
for my $i ( 0 .. $#subf ) { |
249 |
for my $i ( 0 .. $#subf ) { |
| 229 |
- |
|
|