|
Lines 60-67
else {
Link Here
|
| 60 |
for ( @{$taglist} ) { |
60 |
for ( @{$taglist} ) { |
| 61 |
# FIXME We should use Koha::Biblio here |
61 |
# FIXME We should use Koha::Biblio here |
| 62 |
my $dat = &GetBiblioData( $_->{biblionumber} ); |
62 |
my $dat = &GetBiblioData( $_->{biblionumber} ); |
| 63 |
my $biblio = Koha::Biblios->find($dat->{biblionumber}); |
63 |
my $items = Koha::Items->search_ordered({ 'me.biblionumber' => $dat->{biblionumber} }); |
| 64 |
my $items = $biblio->items->search_ordered; |
|
|
| 65 |
$dat->{biblionumber} = $_->{biblionumber}; |
64 |
$dat->{biblionumber} = $_->{biblionumber}; |
| 66 |
$dat->{tag_id} = $_->{tag_id}; |
65 |
$dat->{tag_id} = $_->{tag_id}; |
| 67 |
$dat->{items} = $items; |
66 |
$dat->{items} = $items; |
| 68 |
- |
|
|