147 lines
4.9 KiB
Perl
Executable File
147 lines
4.9 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# This file is part of Koha.
|
|
#
|
|
# Copyright 2024 Koha Development Team
|
|
#
|
|
# 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 CGI;
|
|
|
|
use JSON qw( to_json );
|
|
|
|
use C4::Auth qw( get_template_and_user );
|
|
use C4::Output qw( output_html_with_http_headers );
|
|
use C4::Log qw( logaction );
|
|
|
|
use Koha::DateUtils qw( dt_from_string );
|
|
use Koha::Holds;
|
|
|
|
my $input = CGI->new;
|
|
my $op = $input->param('op') // q|cud-form|;
|
|
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => 'tools/batch_modify_holds.tt',
|
|
query => $input,
|
|
type => "intranet",
|
|
flagsrequired => { tools => 'batch_modify_holds', reserveforothers => 'place_holds' },
|
|
}
|
|
);
|
|
|
|
my @hold_ids;
|
|
|
|
if ( $op eq 'cud-form' ) {
|
|
my $reserve_ids_list = $input->param('reserve_ids_list') || undef;
|
|
if ($reserve_ids_list) {
|
|
my @reserve_ids = split /\n/, $reserve_ids_list;
|
|
$template->param( reserve_ids_list => to_json( \@reserve_ids ), );
|
|
}
|
|
$template->param( view => 'cud-form', );
|
|
} elsif ( $op eq 'cud-modify' ) {
|
|
my $new_expiration_date = $input->param('new_expiration_date');
|
|
my $new_pickup_loc = $input->param('new_pickup_loc');
|
|
my $new_suspend_status = $input->param('new_suspend_status');
|
|
my $new_suspend_date = $input->param('new_suspend_date');
|
|
my $new_hold_note = $input->param('new_hold_note');
|
|
my $clear_hold_notes = $input->param('clear_hold_notes');
|
|
|
|
@hold_ids = $input->multi_param('hold_id');
|
|
my @holds_data = ();
|
|
my @failed_holds = ();
|
|
|
|
my $holds_to_update =
|
|
Koha::Holds->search( { reserve_id => { -in => \@hold_ids } }, { join => [ "item", "biblio" ] } );
|
|
|
|
while ( my $hold = $holds_to_update->next ) {
|
|
my $hold_before_mod = $hold->unblessed;
|
|
my $hold_failed = 0;
|
|
if ( $new_pickup_loc && ( $hold->branchcode ne $new_pickup_loc ) ) {
|
|
my $patron = $hold->patron;
|
|
my $item = $hold->item;
|
|
my $locations;
|
|
|
|
if ($item) {
|
|
|
|
#item level pickup location allowed?
|
|
$locations = $item->pickup_locations( { patron => $patron } );
|
|
} else {
|
|
|
|
#record level pickup location allowed?
|
|
$locations = $hold->biblio->pickup_locations( { patron => $patron } );
|
|
}
|
|
|
|
unless ( $locations->search( { branchcode => $new_pickup_loc } )->count ) {
|
|
push @failed_holds, { hold => $hold, reason => 'pickupLocationNotAllowed' };
|
|
$hold_failed = 1;
|
|
next;
|
|
}
|
|
|
|
$hold->branchcode($new_pickup_loc)->store;
|
|
}
|
|
|
|
#only continue to update the hold if it hasn't failed
|
|
unless ($hold_failed) {
|
|
if ( $new_suspend_status ne "" ) {
|
|
if ( $new_suspend_status && !$hold->is_found ) {
|
|
$hold->suspend(1)->store;
|
|
if ($new_suspend_date) {
|
|
$hold->suspend_until($new_suspend_date)->store;
|
|
} else {
|
|
$hold->suspend_until(undef)->store;
|
|
}
|
|
} elsif ( !$new_suspend_status && $new_suspend_date ) {
|
|
$hold->suspend(1)->store;
|
|
$hold->suspend_until($new_suspend_date)->store;
|
|
} else {
|
|
$hold->suspend(0)->store;
|
|
$hold->suspend_until(undef)->store;
|
|
}
|
|
}
|
|
|
|
if ($new_expiration_date) {
|
|
$hold->expirationdate($new_expiration_date)->store;
|
|
}
|
|
|
|
if ($new_hold_note) {
|
|
$hold->reservenotes($new_hold_note)->store;
|
|
}
|
|
|
|
if ($clear_hold_notes) {
|
|
$hold->reservenotes(undef)->store;
|
|
}
|
|
|
|
push @holds_data, $hold;
|
|
|
|
logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, $hold, undef, $hold_before_mod )
|
|
if C4::Context->preference('HoldsLog');
|
|
}
|
|
|
|
}
|
|
|
|
$template->param(
|
|
updated_holds => to_json( \@hold_ids ),
|
|
updated_holds_obj => \@holds_data,
|
|
failed_holds_obj => \@failed_holds,
|
|
total_updated => scalar @holds_data,
|
|
total_failed => scalar @failed_holds,
|
|
view => 'report',
|
|
);
|
|
|
|
}
|
|
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|