|
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 |
|