Lines 6-12
package Koha::Template::Plugin::Borrowers;
Link Here
|
6 |
# |
6 |
# |
7 |
# Koha is free software; you can redistribute it and/or modify it under the |
7 |
# Koha is free software; you can redistribute it and/or modify it under the |
8 |
# terms of the GNU General Public License as published by the Free Software |
8 |
# terms of the GNU General Public License as published by the Free Software |
9 |
# Foundation; either version 2 of the License, or (at your option) any later |
9 |
# Foundation; either version 3 of the License, or (at your option) any later |
10 |
# version. |
10 |
# 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 WITHOUT ANY |
Lines 25-30
use Date::Calc qw/Today Add_Delta_YM check_date Date_to_Days/;
Link Here
|
25 |
|
25 |
|
26 |
use C4::Koha; |
26 |
use C4::Koha; |
27 |
|
27 |
|
|
|
28 |
=pod |
29 |
|
30 |
This plugin is a home for various patron related Template Toolkit functions |
31 |
to help streamline Koha and to move logic from the Perl code into the |
32 |
Templates when it makes sense to do so. |
33 |
|
34 |
To use, first, include the line '[% USE Borrowers %]' at the top |
35 |
of the template to enable the plugin. |
36 |
|
37 |
For example: [% IF Borrowers.IsDebarred( borrower.borrowernumber ) %] |
38 |
removes the necessity of setting a template variable in Perl code to |
39 |
find out if a patron is restricted even if that variable is not evaluated |
40 |
in any way in the script. |
41 |
|
42 |
=cut |
43 |
|
28 |
sub IsDebarred { |
44 |
sub IsDebarred { |
29 |
my ( $self, $borrower ) = @_; |
45 |
my ( $self, $borrower ) = @_; |
30 |
|
46 |
|