View | Details | Raw Unified | Return to bug 27272
Collapse All | Expand All

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tags/list.tt (-2 / +3 lines)
Lines 1-6 Link Here
1
[% USE raw %]
1
[% USE raw %]
2
[% USE Asset %]
2
[% USE Asset %]
3
[% USE AuthorisedValues %]
3
[% USE AuthorisedValues %]
4
[% USE Branches %]
4
[% SET footerjs = 1 %]
5
[% SET footerjs = 1 %]
5
[% INCLUDE 'doc-head-open.inc' %]
6
[% INCLUDE 'doc-head-open.inc' %]
6
<title>[% IF ( do_it ) %]Review[% ELSE %]Review tags[% END %] &rsaquo; Tags &rsaquo; Tools &rsaquo; Koha</title>
7
<title>[% IF ( do_it ) %]Review[% ELSE %]Review tags[% END %] &rsaquo; Tags &rsaquo; Tools &rsaquo; Koha</title>
Lines 64-72 tr.selected { background-color : #FFFFCC; } tr.selected td { background-color : Link Here
64
            [% END %]</p>
65
            [% END %]</p>
65
            [% END %]
66
            [% END %]
66
            </td>
67
            </td>
67
            <td>[% IF ( title.items ) %]<ul style="font-size:80%">[% FOREACH item IN title.items %]
68
            <td>[% IF ( title.items.count ) %]<ul style="font-size:80%">[% FOREACH item IN title.items %]
68
                <li>
69
                <li>
69
                    [% item.branchname | html %]
70
                    [% Branches.GetName(item.holdingbranch) | html %]
70
                    <span class="shelvingloc">
71
                    <span class="shelvingloc">
71
                        [% AuthorisedValues.GetDescriptionByKohaField( kohafield => 'items.location', authorised_value => item.location ) | html %]
72
                        [% AuthorisedValues.GetDescriptionByKohaField( kohafield => 'items.location', authorised_value => item.location ) | html %]
72
                    </span>
73
                    </span>
(-)a/tags/list.pl (-4 / +5 lines)
Lines 23-32 use CGI qw ( -utf8 ); Link Here
23
use C4::Auth qw( get_template_and_user );
23
use C4::Auth qw( get_template_and_user );
24
use C4::Biblio qw( GetBiblioData );
24
use C4::Biblio qw( GetBiblioData );
25
use C4::Context;
25
use C4::Context;
26
use C4::Items qw( GetItemsInfo );
27
use C4::Tags qw( get_tag_rows get_tags remove_tag );
26
use C4::Tags qw( get_tag_rows get_tags remove_tag );
28
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
29
28
29
use Koha::Items;
30
30
my $needed_flags = { tools => 'moderate_tags'
31
my $needed_flags = { tools => 'moderate_tags'
31
};    # FIXME: replace when more specific permission is created.
32
};    # FIXME: replace when more specific permission is created.
32
33
Lines 57-67 else { Link Here
57
    if ($tag) {
58
    if ($tag) {
58
        my $taglist = get_tag_rows( { term => $tag } );
59
        my $taglist = get_tag_rows( { term => $tag } );
59
        for ( @{$taglist} ) {
60
        for ( @{$taglist} ) {
61
            # FIXME We should use Koha::Biblio here
60
            my $dat    = &GetBiblioData( $_->{biblionumber} );
62
            my $dat    = &GetBiblioData( $_->{biblionumber} );
61
            my @items = GetItemsInfo( $_->{biblionumber} );
63
            my $items = Koha::Items->search({ biblionumber => $dat->{biblionumber} });
62
            $dat->{biblionumber} = $_->{biblionumber};
64
            $dat->{biblionumber} = $_->{biblionumber};
63
            $dat->{tag_id}       = $_->{tag_id};
65
            $dat->{tag_id}       = $_->{tag_id};
64
            $dat->{items}        = \@items;
66
            $dat->{items}        = $items;
65
            $dat->{TagLoop}      = get_tags(
67
            $dat->{TagLoop}      = get_tags(
66
                {
68
                {
67
                    biblionumber => $_->{biblionumber},
69
                    biblionumber => $_->{biblionumber},
68
- 

Return to bug 27272