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

(-)a/Koha/Template/Plugin/MarcModificationTemplates.pm (+48 lines)
Line 0 Link Here
1
package Koha::Template::Plugin::MarcModificationTemplates;
2
3
# Copyright 2020 BibLibre
4
#
5
# Koha is free software; you can redistribute it and/or modify it
6
# under the terms of the GNU General Public License as published by
7
# the Free Software Foundation; either version 3 of the License, or
8
# (at your option) any later version.
9
#
10
# Koha is distributed in the hope that it will be useful, but
11
# WITHOUT ANY WARRANTY; without even the implied warranty of
12
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
# GNU General Public License for more details.
14
#
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
18
use Modern::Perl;
19
20
use C4::MarcModificationTemplates;
21
22
use base 'Template::Plugin';
23
24
=head1 NAME
25
26
Koha::Template::Plugin::MarcModificationTemplates
27
28
=head1 SYNOPSIS
29
30
    [% USE MarcModificationTemplates %]
31
32
    [% marc_modification_templates = MarcModificationTemplates.all() %]
33
34
=head1 METHODS
35
36
=head2 all
37
38
Returns all modification templates
39
40
    [% marc_modification_templates = MarcModificationTemplates.all() %]
41
42
=cut
43
44
sub all {
45
    return [ C4::MarcModificationTemplates::GetModificationTemplates() ];
46
}
47
48
1;
(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/checkouts-table.inc (+13 lines)
Lines 1-4 Link Here
1
[% USE Koha %]
1
[% USE Koha %]
2
[% USE MarcModificationTemplates %]
2
<div id="checkouts">
3
<div id="checkouts">
3
    [% IF ( issuecount ) %]
4
    [% IF ( issuecount ) %]
4
        <div id="issues-table-loading-message">
5
        <div id="issues-table-loading-message">
Lines 71-76 Link Here
71
                                [% END %]
72
                                [% END %]
72
                            </select>
73
                            </select>
73
                        [% END %]
74
                        [% END %]
75
76
                        [% marc_modification_templates = MarcModificationTemplates.all() %]
77
                        [% IF marc_modification_templates %]
78
                            <label>Use modification template:</label>
79
                            <select name="marc_modification_template_id">
80
                                <option value=""></option>
81
                                [% FOREACH marc_modification_template IN marc_modification_templates %]
82
                                    <option value="[% marc_modification_template.template_id | html %]">[% marc_modification_template.name | html %]</option>
83
                                [% END %]
84
                            </select>
85
                        [% END %]
86
74
                       <label for="export_remove_fields">Don't export fields:</label> <input type="text" id="export_remove_fields" name="export_remove_fields" value="[% Koha.Preference('ExportRemoveFields') | html %]" title="Use for MARC exports" />
87
                       <label for="export_remove_fields">Don't export fields:</label> <input type="text" id="export_remove_fields" name="export_remove_fields" value="[% Koha.Preference('ExportRemoveFields') | html %]" title="Use for MARC exports" />
75
                        <input type="hidden" name="op" value="export" />
88
                        <input type="hidden" name="op" value="export" />
76
                        <input type="hidden" id="output_format" name="output_format" value="iso2709" />
89
                        <input type="hidden" id="output_format" name="output_format" value="iso2709" />
(-)a/t/db_dependent/Template/Plugin/MarcModificationTemplates.t (-1 / +47 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
use Modern::Perl;
4
5
use Test::More tests => 2;
6
7
use Koha::Database;
8
9
use t::lib::TestBuilder;
10
11
BEGIN {
12
    use_ok('Koha::Template::Plugin::MarcModificationTemplates');
13
}
14
15
my $schema  = Koha::Database->schema;
16
my $builder = t::lib::TestBuilder->new;
17
18
subtest 'all() tests' => sub {
19
    plan tests => 3;
20
21
    $schema->storage->txn_begin;
22
23
    $schema->resultset('MarcModificationTemplate')->delete();
24
25
    $builder->build({
26
        source => 'MarcModificationTemplate',
27
        value => {
28
            name => 'template1',
29
        }
30
    });
31
    $builder->build({
32
        source => 'MarcModificationTemplate',
33
        value => {
34
            name => 'template2',
35
        }
36
    });
37
38
    my $plugin = Koha::Template::Plugin::MarcModificationTemplates->new();
39
40
    my $templates = $plugin->all();
41
42
    is(scalar @$templates, 2, 'all() returns all templates');
43
    is($templates->[0]->{name}, 'template1', 'all() returns all templates');
44
    is($templates->[1]->{name}, 'template2', 'all() returns all templates');
45
46
    $schema->storage->txn_rollback;
47
};

Return to bug 25253