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

(-)a/circ/send_recall_notice.pl (-16 / +14 lines)
Lines 1-24 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
# Author : Frédérick Capovilla, 2011 - SYS-TECH
4
#
5
# This file is part of Koha.
3
# This file is part of Koha.
6
#
4
#
7
# Koha is free software; you can redistribute it and/or modify it under the
5
# Copyright (C) 2011  Frédérick Capovilla, SYS-TECH
8
# terms of the GNU General Public License as published by the Free Software
6
#
9
# Foundation; either version 2 of the License, or (at your option) any later
7
# Koha is free software; you can redistribute it and/or modify it
10
# version.
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
#
11
#
12
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
12
# Koha is distributed in the hope that it will be useful, but
13
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
13
# WITHOUT ANY WARRANTY; without even the implied warranty of
14
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
# GNU General Public License for more details.
15
#
16
#
16
# You should have received a copy of the GNU General Public License along
17
# You should have received a copy of the GNU General Public License
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use C4::Message;
22
use C4::Message;
24
use C4::Circulation;
23
use C4::Circulation;
Lines 27-33 use C4::Auth; Link Here
27
use CGI;
26
use CGI;
28
use CGI::Cookie;
27
use CGI::Cookie;
29
28
30
my $input = new CGI;
29
my $input = CGI->new;
31
my $itemnumber = $input->param('itemnumber');
30
my $itemnumber = $input->param('itemnumber');
32
31
33
# Check the user's permissions
32
# Check the user's permissions
34
- 

Return to bug 8688