370 lines
12 KiB
Perl
370 lines
12 KiB
Perl
package Koha::REST::V1::CirculationRules;
|
|
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <https://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
|
|
use Mojo::Base 'Mojolicious::Controller';
|
|
|
|
use C4::Auth qw( haspermission );
|
|
use Koha::CirculationRules;
|
|
|
|
=head1 API
|
|
|
|
=head2 Methods
|
|
|
|
=head3 get_kinds
|
|
|
|
List all available circulation rules that can be used.
|
|
|
|
=cut
|
|
|
|
sub get_kinds {
|
|
my $c = shift->openapi->valid_input or return;
|
|
|
|
return $c->render(
|
|
status => 200,
|
|
openapi => Koha::CirculationRules->rule_kinds,
|
|
);
|
|
}
|
|
|
|
=head3 list_rules
|
|
|
|
Get effective rules for the requested patron/item/branch combination
|
|
|
|
=cut
|
|
|
|
sub list_rules {
|
|
my $c = shift->openapi->valid_input or return;
|
|
|
|
return try {
|
|
my $effective = $c->param('effective') // 1;
|
|
my $item_type = $c->param('item_type_id');
|
|
my $branchcode = $c->param('library_id');
|
|
my $patron_category = $c->param('patron_category_id');
|
|
my ( $filter_branch, $filter_itemtype, $filter_patron );
|
|
|
|
if ($item_type) {
|
|
$filter_itemtype = 1;
|
|
if ( $item_type eq '*' ) {
|
|
$item_type = undef;
|
|
} else {
|
|
my $type = Koha::ItemTypes->find($item_type);
|
|
return $c->render_invalid_parameter_value(
|
|
{
|
|
path => '/query/item_type_id',
|
|
values => {
|
|
uri => '/api/v1/item_types',
|
|
field => 'item_type_id'
|
|
}
|
|
}
|
|
) unless $type;
|
|
}
|
|
}
|
|
|
|
if ($branchcode) {
|
|
$filter_branch = 1;
|
|
if ( $branchcode eq '*' ) {
|
|
$branchcode = undef;
|
|
} else {
|
|
my $library = Koha::Libraries->find($branchcode);
|
|
return $c->render_invalid_parameter_value(
|
|
{
|
|
path => '/query/library_id',
|
|
values => {
|
|
uri => '/api/v1/libraries',
|
|
field => 'library_id'
|
|
}
|
|
}
|
|
) unless $library;
|
|
}
|
|
}
|
|
|
|
if ($patron_category) {
|
|
$filter_patron = 1;
|
|
if ( $patron_category eq '*' ) {
|
|
$patron_category = undef;
|
|
} else {
|
|
my $category = Koha::Patron::Categories->find($patron_category);
|
|
return $c->render_invalid_parameter_value(
|
|
{
|
|
path => '/query/patron_category_id',
|
|
values => {
|
|
uri => '/api/v1/patron_categories',
|
|
field => 'patron_category_id'
|
|
}
|
|
}
|
|
) unless $category;
|
|
}
|
|
}
|
|
|
|
my $kinds;
|
|
if ( defined( $c->param('rules') ) ) {
|
|
$kinds = [ split /\s*,\s*/, $c->param('rules') ];
|
|
my $valid_kinds = Koha::CirculationRules->rule_kinds;
|
|
for my $rule ( @{$kinds} ) {
|
|
( my $rule_key = $rule ) =~ s/_\d+_/_X_/;
|
|
return $c->render_invalid_parameter_value(
|
|
{
|
|
path => '/query/rules',
|
|
values => {
|
|
uri => '/api/v1/kinds',
|
|
field => 'rule_name'
|
|
}
|
|
}
|
|
) unless $valid_kinds->{$rule_key};
|
|
}
|
|
} else {
|
|
$kinds = _all_kinds();
|
|
}
|
|
|
|
my $rules;
|
|
if ($effective) {
|
|
|
|
my $effective_rules = Koha::CirculationRules->get_effective_rules(
|
|
{
|
|
categorycode => $patron_category,
|
|
itemtype => $item_type,
|
|
branchcode => $branchcode,
|
|
rules => $kinds
|
|
}
|
|
) // {};
|
|
my $return = {};
|
|
for my $kind ( @{$kinds} ) {
|
|
$return->{$kind} = $effective_rules->{$kind};
|
|
}
|
|
push @{$rules}, $return;
|
|
} else {
|
|
my $select = [
|
|
{ 'COALESCE' => [ 'branchcode', \["'*'"] ], -as => 'branchcode' },
|
|
{ 'COALESCE' => [ 'categorycode', \["'*'"] ], -as => 'categorycode' },
|
|
{ 'COALESCE' => [ 'itemtype', \["'*'"] ], -as => 'itemtype' }
|
|
];
|
|
my $as = [ 'branchcode', 'categorycode', 'itemtype' ];
|
|
for my $kind ( @{$kinds} ) {
|
|
push @{$select}, { max => \[ "CASE WHEN rule_name = ? THEN rule_value END", $kind ], -as => $kind };
|
|
push @{$as}, $kind;
|
|
}
|
|
|
|
$rules = Koha::CirculationRules->search(
|
|
{
|
|
( $filter_branch ? ( branchcode => $branchcode ) : () ),
|
|
( $filter_itemtype ? ( itemtype => $item_type ) : () ),
|
|
( $filter_patron ? ( categorycode => $patron_category ) : () )
|
|
},
|
|
{
|
|
select => $select,
|
|
as => $as,
|
|
group_by => [ 'branchcode', 'categorycode', 'itemtype' ],
|
|
order_by => [ 'branchcode', 'categorycode', 'itemtype' ],
|
|
}
|
|
)->unblessed;
|
|
}
|
|
|
|
# Map context into rules
|
|
@{$rules} = map {
|
|
my %new_rule = %$_;
|
|
my %context = (
|
|
"library_id" => delete $new_rule{"branchcode"} // "*",
|
|
"patron_category_id" => delete $new_rule{"categorycode"} // "*",
|
|
"item_type_id" => delete $new_rule{"itemtype"} // "*",
|
|
);
|
|
$new_rule{"context"} = \%context;
|
|
\%new_rule;
|
|
} @{$rules};
|
|
|
|
return $c->render(
|
|
status => 200,
|
|
openapi => $rules
|
|
);
|
|
} catch {
|
|
$c->unhandled_exception($_);
|
|
};
|
|
}
|
|
|
|
=head3 set_rules
|
|
|
|
Set rules for the given patron/item/branch combination
|
|
|
|
=cut
|
|
|
|
sub set_rules {
|
|
my $c = shift->openapi->valid_input or return;
|
|
|
|
return try {
|
|
my $body = $c->req->json;
|
|
|
|
my $item_type = $body->{context}->{item_type_id};
|
|
my $branchcode = $body->{context}->{library_id};
|
|
my $patron_category = $body->{context}->{patron_category_id};
|
|
|
|
if ( $item_type eq '*' ) {
|
|
$item_type = undef;
|
|
} else {
|
|
my $type = Koha::ItemTypes->find($item_type);
|
|
return $c->render_invalid_parameter_value(
|
|
{
|
|
path => '/body/context/item_type_id',
|
|
values => {
|
|
uri => '/api/v1/item_types',
|
|
field => 'item_type_id'
|
|
}
|
|
}
|
|
) unless $type;
|
|
}
|
|
|
|
if ( $branchcode eq '*' ) {
|
|
$branchcode = undef;
|
|
} else {
|
|
my $library = Koha::Libraries->find($branchcode);
|
|
return $c->render_invalid_parameter_value(
|
|
{
|
|
path => '/body/context/library_id',
|
|
values => {
|
|
uri => '/api/v1/libraries',
|
|
field => 'library_id'
|
|
}
|
|
}
|
|
) unless $library;
|
|
}
|
|
|
|
my $logged_in_user = $c->stash('koha.user');
|
|
unless ( haspermission( $logged_in_user->userid, { parameters => 'manage_circ_rules_from_any_libraries' } ) ) {
|
|
if ( !defined $branchcode || $branchcode ne $logged_in_user->branchcode ) {
|
|
return $c->render(
|
|
status => 403,
|
|
openapi => {
|
|
error =>
|
|
'manage_circ_rules_from_any_libraries permission is required to manage circulation rules for libraries other than your own'
|
|
}
|
|
);
|
|
}
|
|
}
|
|
|
|
unless ( haspermission( $logged_in_user->userid, { parameters => 'manage_circ_rules' } )
|
|
|| haspermission( $logged_in_user->userid, { circulate => 'circulate_remaining_permissions' } ) )
|
|
{
|
|
my $rules_to_set = {%$body};
|
|
delete $rules_to_set->{context};
|
|
my @non_trigger_rules = grep { !/^overdue_/ } keys %{$rules_to_set};
|
|
if (@non_trigger_rules) {
|
|
return $c->render(
|
|
status => 403,
|
|
openapi =>
|
|
{ error => 'manage_circ_rules permission is required to manage non-trigger circulation rules' }
|
|
);
|
|
}
|
|
}
|
|
|
|
if ( $patron_category eq '*' ) {
|
|
$patron_category = undef;
|
|
} else {
|
|
my $category = Koha::Patron::Categories->find($patron_category);
|
|
return $c->render_invalid_parameter_value(
|
|
{
|
|
path => '/body/context/patron_category_id',
|
|
values => {
|
|
uri => '/api/v1/patron_categories',
|
|
field => 'patron_category_id'
|
|
}
|
|
}
|
|
) unless $category;
|
|
}
|
|
|
|
my $rules = {%$body};
|
|
delete $rules->{context};
|
|
|
|
my $new_rules = Koha::CirculationRules->set_rules(
|
|
{
|
|
categorycode => $patron_category,
|
|
itemtype => $item_type,
|
|
branchcode => $branchcode,
|
|
rules => $rules,
|
|
}
|
|
);
|
|
|
|
# TODO: Add error handling for rule scope exceptions thrown in Koha::CirculationRules::set_rule
|
|
|
|
my $return = { map { $_->rule_name => $_->rule_value } @{$new_rules} };
|
|
$return->{context} =
|
|
{ library_id => $branchcode, patron_category_id => $patron_category, item_type_id => $item_type };
|
|
|
|
return $c->render(
|
|
status => 200,
|
|
openapi => $return
|
|
);
|
|
}
|
|
}
|
|
|
|
=head3 _all_kinds
|
|
|
|
Utility function to get a list of all valid rule kinds including those that are repeatable
|
|
|
|
=cut
|
|
|
|
sub _all_kinds {
|
|
my @all_valid_kinds;
|
|
my @distinct_kinds = Koha::CirculationRules->search(
|
|
{},
|
|
{
|
|
columns => ['rule_name'],
|
|
distinct => 1,
|
|
}
|
|
)->get_column('rule_name');
|
|
|
|
my %seen;
|
|
my $valid_kinds = Koha::CirculationRules->rule_kinds;
|
|
for my $kind (@distinct_kinds) {
|
|
( my $kind_key = $kind ) =~ s/_\d+_/_X_/;
|
|
if ( exists $valid_kinds->{$kind_key} && !$seen{$kind} ) {
|
|
push @all_valid_kinds, $kind;
|
|
$seen{$kind} = 1;
|
|
}
|
|
}
|
|
|
|
# Add in any unset but valid rules
|
|
for my $valid_kind ( keys %{$valid_kinds} ) {
|
|
if ( $valid_kind !~ /_X_/ && !$seen{$valid_kind} ) {
|
|
push @all_valid_kinds, $valid_kind;
|
|
$seen{$valid_kind} = 1;
|
|
}
|
|
}
|
|
return \@all_valid_kinds;
|
|
}
|
|
|
|
=head3 config
|
|
|
|
Return the configuration options needed for the Circulations Triggers Vue app
|
|
|
|
=cut
|
|
|
|
sub config {
|
|
my $c = shift->openapi->valid_input or return;
|
|
|
|
my $patron = $c->stash('koha.user');
|
|
my $userflags = haspermission( $patron->userid );
|
|
my $permissions = Koha::Auth::Permissions->get_authz_from_flags( { flags => $userflags } );
|
|
|
|
return $c->render(
|
|
status => 200,
|
|
openapi => {
|
|
permissions => $permissions,
|
|
},
|
|
);
|
|
}
|
|
|
|
1;
|