Lines 24-29
use base qw( Template::Plugin );
Link Here
|
24 |
use Koha::CirculationRules; |
24 |
use Koha::CirculationRules; |
25 |
use C4::Circulation qw( GetRenewCount ); |
25 |
use C4::Circulation qw( GetRenewCount ); |
26 |
|
26 |
|
|
|
27 |
=head1 NAME |
28 |
|
29 |
Koha::Template::Plugin::CirculationRules - A template plugin for dealing with things related to circulation |
30 |
|
31 |
|
32 |
=head2 Methods |
33 |
|
34 |
=head3 Get |
35 |
|
36 |
[% SET rule = CirculationRules.Get( branchcode, categorycode, itemtype, rule_name ) %] |
37 |
|
38 |
Returns the effective rule value for the given tuple. |
39 |
|
40 |
=cut |
41 |
|
27 |
sub Get { |
42 |
sub Get { |
28 |
my ( $self, $branchcode, $categorycode, $itemtype, $rule_name ) = @_; |
43 |
my ( $self, $branchcode, $categorycode, $itemtype, $rule_name ) = @_; |
29 |
|
44 |
|
Lines 43-48
sub Get {
Link Here
|
43 |
return $rule->rule_value if $rule; |
58 |
return $rule->rule_value if $rule; |
44 |
} |
59 |
} |
45 |
|
60 |
|
|
|
61 |
=head3 Search |
62 |
|
63 |
[% SET rule = CirculationRules.Search( branchcode, categorycode, itemtype, rule_name, { want_rule = 1 } ) %] |
64 |
|
65 |
Returns the first rule that matches the given critea. |
66 |
It does not perform precedence sorting as CirculationRules.Get would. |
67 |
|
68 |
By default, it returns only the rule value. Set want_rule to true to return |
69 |
the rule object. |
70 |
|
71 |
=cut |
72 |
|
46 |
sub Search { |
73 |
sub Search { |
47 |
my ( $self, $branchcode, $categorycode, $itemtype, $rule_name, $params) = @_; |
74 |
my ( $self, $branchcode, $categorycode, $itemtype, $rule_name, $params) = @_; |
48 |
|
75 |
|
Lines 63-68
sub Search {
Link Here
|
63 |
return $rule->rule_value if $rule; |
90 |
return $rule->rule_value if $rule; |
64 |
} |
91 |
} |
65 |
|
92 |
|
|
|
93 |
=head3 Renewals |
94 |
|
95 |
[% SET renewals = CirculationRules.Renewals( borrowernumber, itemnumber ) %] |
96 |
[% renewals.remaining | html %] |
97 |
|
98 |
Returns a hash of data about renewals for a checkout, by the given borrowernumber and itemnumber. |
99 |
|
100 |
Hash keys include: |
101 |
count - The number of renewals already used |
102 |
allowed - The total number of renewals this checkout may have |
103 |
remaining - The total number of renewals that can still be made |
104 |
unseen_count - The number of unseen renewals already used |
105 |
unseen_allowed - The total number of unseen renewals this checkout may have |
106 |
unseen_remaining - The total number of unseen renewals that can still be made |
107 |
|
108 |
=cut |
109 |
|
66 |
sub Renewals { |
110 |
sub Renewals { |
67 |
my ( $self, $borrowernumber, $itemnumber ); |
111 |
my ( $self, $borrowernumber, $itemnumber ); |
68 |
|
112 |
|
69 |
- |
|
|