|
Lines 26-32
use C4::Context;
Link Here
|
| 26 |
use C4::Tags qw( get_tag_rows get_tags remove_tag ); |
26 |
use C4::Tags qw( get_tag_rows get_tags remove_tag ); |
| 27 |
use C4::Output qw( output_html_with_http_headers ); |
27 |
use C4::Output qw( output_html_with_http_headers ); |
| 28 |
|
28 |
|
| 29 |
use Koha::Items; |
29 |
use Koha::Biblios; |
| 30 |
|
30 |
|
| 31 |
my $needed_flags = { tools => 'moderate_tags' |
31 |
my $needed_flags = { tools => 'moderate_tags' |
| 32 |
}; # FIXME: replace when more specific permission is created. |
32 |
}; # FIXME: replace when more specific permission is created. |
|
Lines 60-66
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 $items = Koha::Items->search({ biblionumber => $dat->{biblionumber} }); |
63 |
my $biblio = Koha::Biblios->find($dat->{biblionumber}); |
|
|
64 |
my $items = $biblio->items->search_ordered; |
| 64 |
$dat->{biblionumber} = $_->{biblionumber}; |
65 |
$dat->{biblionumber} = $_->{biblionumber}; |
| 65 |
$dat->{tag_id} = $_->{tag_id}; |
66 |
$dat->{tag_id} = $_->{tag_id}; |
| 66 |
$dat->{items} = $items; |
67 |
$dat->{items} = $items; |