Attachment #138829 for bug #31319

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




[% USE raw %]
[% USE Asset %]
[% USE AuthorisedValues %]
[% USE Branches %]
[% SET footerjs = 1 %]
[% INCLUDE 'doc-head-open.inc' %]
<title>[% IF ( do_it ) %]Review[% ELSE %]Review tags[% END %] &rsaquo; Tags &rsaquo; Tools &rsaquo; Koha</title>

            [% END %]</p>
            [% END %]
            </td>
            <td>[% IF ( title.items.count ) %]<ul style="font-size:80%">[% FOREACH item IN title.items %]
                <li>
                    [% Branches.GetName(item.holdingbranch) | html %]
                    <span class="shelvingloc">
                        [% AuthorisedValues.GetDescriptionByKohaField( kohafield => 'items.location', authorised_value => item.location ) | html %]
                    </span>




use C4::Auth qw( get_template_and_user );
use C4::Biblio qw( GetBiblioData );
use C4::Context;
use C4::Items qw( GetItemsInfo );
use C4::Tags qw( get_tag_rows get_tags remove_tag );
use C4::Output qw( output_html_with_http_headers );

use Koha::Biblios;

my $needed_flags = { tools => 'moderate_tags'
};    # FIXME: replace when more specific permission is created.


    if ($tag) {
        my $taglist = get_tag_rows( { term => $tag } );
        for ( @{$taglist} ) {
            # FIXME We should use Koha::Biblio here
            my $dat    = &GetBiblioData( $_->{biblionumber} );
            my $biblio = Koha::Biblios->find($dat->{biblionumber});
            my $items = $biblio->items->search_ordered;
            $dat->{biblionumber} = $_->{biblionumber};
            $dat->{tag_id}       = $_->{tag_id};
            $dat->{items}        = $items;
            $dat->{TagLoop}      = get_tags(
                {
                    biblionumber => $_->{biblionumber},
- 

Return to bug 31319

Lines 23-32 use CGI qw ( -utf8 ); Link Here

(-)a/tags/list.pl (-4 / +6 lines)
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::Biblios;
		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 $biblio = Koha::Biblios->find($dat->{biblionumber});
		64	my $items = $biblio->items->search_ordered;
62	$dat->{biblionumber} = $_->{biblionumber};	65	$dat->{biblionumber} = $_->{biblionumber};
63	$dat->{tag_id} = $_->{tag_id};	66	$dat->{tag_id} = $_->{tag_id};
64	$dat->{items} = \@items;	67	$dat->{items} = $items;
65	$dat->{TagLoop} = get_tags(	68	$dat->{TagLoop} = get_tags(
66	{	69	{
67	biblionumber => $_->{biblionumber},	70	biblionumber => $_->{biblionumber},
68	-

Lines 1-6 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tags/list.tt (-2 / +3 lines)
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>