3 # This file is part of Koha.
5 # Copyright 2020 Koha Development Team
7 # Koha is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as
9 # published by the Free Software Foundation; either version 3
10 # of the License, or (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General
18 # Public License along with Koha; if not, see
19 # <http://www.gnu.org/licenses>
25 use C4::Auth qw( get_template_and_user );
26 use C4::Output qw( output_html_with_http_headers );
27 use C4::Items qw( ModItem );
29 use Koha::DateUtils qw( dt_from_string );
32 my $op = $input->param('op') // q|form|;
34 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
36 template_name => 'tools/batch_extend_due_dates.tt',
40 flagsrequired => { tools => 'batch_extend_due_dates' },
44 if ( $op eq 'form' ) {
45 $template->param( view => 'form', );
47 elsif ( $op eq 'list' ) {
49 my @categorycodes = $input->multi_param('categorycodes');
50 my @branchcodes = $input->multi_param('branchcodes');
51 my $from_due_date = $input->param('from_due_date');
52 my $to_due_date = $input->param('to_due_date');
53 my $new_hard_due_date = $input->param('new_hard_due_date');
54 my $due_date_days = $input->param('due_date_days');
56 my $dtf = Koha::Database->new->schema->storage->datetime_parser;
59 $search_params->{'borrower.categorycode'} = { -in => \@categorycodes };
62 $search_params->{'me.branchcode'} = { -in => \@branchcodes };
64 if ( $from_due_date and $to_due_date ) {
65 my $to_due_date_endday = dt_from_string($to_due_date);
67 ->set( # We set last second of day to see all checkouts from that day
72 $search_params->{'me.date_due'} = {
74 $dtf->format_datetime( dt_from_string($from_due_date) ),
75 $dtf->format_datetime($to_due_date_endday),
79 elsif ($from_due_date) {
80 $search_params->{'me.date_due'} =
81 { '>=' => $dtf->format_datetime( dt_from_string($from_due_date) ) };
83 elsif ($to_due_date) {
84 my $to_due_date_endday = dt_from_string($to_due_date);
86 ->set( # We set last second of day to see all checkouts from that day
91 $search_params->{'me.date_due'} =
92 { '<=' => $dtf->format_datetime($to_due_date_endday) };
95 my $checkouts = Koha::Checkouts->search(
98 join => [ 'item', 'borrower' ]
103 if ( not $new_hard_due_date && $due_date_days ) {
104 while ( my $checkout = $checkouts->next ) {
105 my $due_date = dt_from_string( $checkout->date_due );
106 push @new_due_dates, $due_date->add( days => $due_date_days );
110 checkouts => $checkouts,
111 new_hard_due_date => $new_hard_due_date
112 ? dt_from_string($new_hard_due_date)
114 due_date_days => $due_date_days,
115 new_due_dates => \@new_due_dates,
119 elsif ( $op eq 'modify' ) {
121 # We want to modify selected checkouts!
122 my @issue_ids = $input->multi_param('issue_id');
123 my $new_hard_due_date = $input->param('new_hard_due_date');
124 my $due_date_days = $input->param('due_date_days');
126 $new_hard_due_date &&= dt_from_string($new_hard_due_date);
128 Koha::Checkouts->search( { issue_id => { -in => \@issue_ids } } );
129 while ( my $checkout = $checkouts->next ) {
130 my $new_due_date = $new_hard_due_date
131 || dt_from_string( $checkout->date_due )->add( days => $due_date_days );
133 # Update checkout's due date
134 $checkout->date_due($new_due_date)->store;
136 # Update items.onloan
137 ModItem( { onloan => $new_due_date->strftime('%Y-%m-%d %H:%M') },
138 undef, $checkout->itemnumber );
143 checkouts => $checkouts,
147 output_html_with_http_headers $input, $cookie, $template->output;