Lines 22-27
use Modern::Perl;
Link Here
|
22 |
use base qw( Template::Plugin ); |
22 |
use base qw( Template::Plugin ); |
23 |
|
23 |
|
24 |
use Koha::CirculationRules; |
24 |
use Koha::CirculationRules; |
|
|
25 |
use C4::Circulation qw( GetRenewCount ); |
25 |
|
26 |
|
26 |
sub Get { |
27 |
sub Get { |
27 |
my ( $self, $branchcode, $categorycode, $itemtype, $rule_name ) = @_; |
28 |
my ( $self, $branchcode, $categorycode, $itemtype, $rule_name ) = @_; |
Lines 62-65
sub Search {
Link Here
|
62 |
return $rule->rule_value if $rule; |
63 |
return $rule->rule_value if $rule; |
63 |
} |
64 |
} |
64 |
|
65 |
|
|
|
66 |
sub Renewals { |
67 |
my ( $self, $borrowernumber, $itemnumber ) = @_; |
68 |
|
69 |
my ( $count, $allowed, $remaining, $unseen_count, $unseen_allowed, $unseen_remaining ) = GetRenewCount( $borrowernumber, $itemnumber ); |
70 |
|
71 |
return { |
72 |
count => $count, |
73 |
allowed => $allowed, |
74 |
remaining => $remaining, |
75 |
unseen_count => $unseen_count, |
76 |
unseen_allowed => $unseen_allowed, |
77 |
unseen_remaining => $unseen_remaining, |
78 |
}; |
79 |
} |
80 |
|
65 |
1; |
81 |
1; |
66 |
- |
|
|