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

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/printnotice.tt (+32 lines)
Line 0 Link Here
1
[% USE raw %]
2
[% USE Asset %]
3
[% USE Koha %]
4
[% SET footerjs = 1 %]
5
6
[% INCLUDE 'doc-head-open.inc' %]
7
<title>[% title | html %] &rsaquo; Patrons &rsaquo; Koha</title>
8
[% INCLUDE 'doc-head-close.inc' %]
9
10
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
11
<link rel="shortcut icon" href="[% IF ( IntranetFavicon ) %][% IntranetFavicon | url %][% ELSE %][% interface | html %]/[% theme | html %]/img/favicon.ico[% END %]" type="image/x-icon" />
12
13
[% Asset.css("css/print.css") | $raw %]
14
[% IF ( Koha.Preference('SlipCSS') ) %]
15
<link rel="stylesheet" type="text/css" href="[% Koha.Preference('SlipCSS') | $raw %]" />
16
[% END %]
17
</head>
18
19
<body id="members_printslip" class="member">
20
    <div id="slip">
21
        [% IF plain %]
22
            <pre>[% IF ( slip ) %][% slip | html %][% ELSE %]No slip template found[% END %]</pre>
23
        [% ELSE %]
24
            [% IF ( slip ) %][% slip | $raw %][% ELSE %]No slip template found[% END %]
25
        [% END %]
26
    </div>
27
28
[% MACRO jsinclude BLOCK %]
29
    [% INCLUDE 'slip-print.inc' #printThenClose %]
30
[% END %]
31
32
[% INCLUDE 'intranet-bottom.inc' %]
(-)a/members/printnotice.pl (-1 / +72 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
# Copyright PTFS Europe 2022
4
#
5
# This file is part of Koha.
6
#
7
# Koha is free software; you can redistribute it and/or modify it
8
# under the terms of the GNU General Public License as published by
9
# the Free Software Foundation; either version 3 of the License, or
10
# (at your option) any later version.
11
#
12
# Koha is distributed in the hope that it will be useful, but
13
# WITHOUT ANY WARRANTY; without even the implied warranty of
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
# GNU General Public License for more details.
16
#
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
20
use Modern::Perl;
21
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
24
use CGI qw ( -utf8 );
25
use C4::Letters;
26
use Koha::Account::Lines;
27
28
my $input = CGI->new;
29
30
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
31
    {
32
        template_name => "members/printnotice.tt",
33
        query         => $input,
34
        type          => "intranet",
35
        flagsrequired => {
36
            borrowers => 'edit_borrowers',
37
        }
38
    }
39
);
40
41
my $logged_in_user = Koha::Patrons->find($loggedinuser);
42
my $borrowernumber = $input->param('borrowernumber');
43
my $patron         = Koha::Patrons->find($borrowernumber);
44
output_and_exit_if_error(
45
    $input, $cookie,
46
    $template,
47
    {
48
        module         => 'members',
49
        logged_in_user => $logged_in_user,
50
        current_patron => $patron
51
    }
52
);
53
54
my $letter_code = $input->param('notice');
55
my $letter = C4::Letters::GetPreparedLetter(
56
    module                 => 'members',
57
    letter_code            => $letter_code,
58
    branchcode             => C4::Context::mybranch,
59
    message_transport_type => 'print',
60
    lang                   => $patron->lang,
61
    tables                 => {
62
        borrowers => $patron->borrowernumber
63
    }
64
);
65
66
$template->param(
67
    title  => $letter->{title},
68
    slip   => $letter->{content},
69
    plain  => !$letter->{is_html},
70
);
71
72
output_html_with_http_headers $input, $cookie, $template->output;

Return to bug 31714