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 );
28 use Koha
::DateUtils
qw( dt_from_string output_pref );
31 my $op = $input->param('op') // q
|form
|;
32 my $preview_results = $input->param('preview_results');
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' },
46 if ( $op eq 'form' ) {
47 $template->param( view
=> 'form', );
49 elsif ( $op eq 'list' ) {
51 my @categorycodes = $input->multi_param('categorycodes');
52 my @branchcodes = $input->multi_param('branchcodes');
53 my $from_due_date = $input->param('from_due_date');
54 my $to_due_date = $input->param('to_due_date');
55 my $new_hard_due_date = $input->param('new_hard_due_date');
56 my $due_date_days = $input->param('due_date_days');
58 $new_hard_due_date &&= dt_from_string
($new_hard_due_date);
60 my $dtf = Koha
::Database
->new->schema->storage->datetime_parser;
63 $search_params->{'borrower.categorycode'} = { -in => \
@categorycodes };
66 $search_params->{'me.branchcode'} = { -in => \
@branchcodes };
68 if ( $from_due_date and $to_due_date ) {
69 my $to_due_date_endday = dt_from_string
($to_due_date);
71 ->set( # We set last second of day to see all checkouts from that day
76 $search_params->{'me.date_due'} = {
78 $dtf->format_datetime( dt_from_string
($from_due_date) ),
79 $dtf->format_datetime($to_due_date_endday),
83 elsif ($from_due_date) {
84 $search_params->{'me.date_due'} =
85 { '>=' => $dtf->format_datetime( dt_from_string
($from_due_date) ) };
87 elsif ($to_due_date) {
88 my $to_due_date_endday = dt_from_string
($to_due_date);
90 ->set( # We set last second of day to see all checkouts from that day
95 $search_params->{'me.date_due'} =
96 { '<=' => $dtf->format_datetime($to_due_date_endday) };
99 my $checkouts = Koha
::Checkouts
->search(
102 join => [ 'item', 'borrower' ]
107 while ( my $checkout = $checkouts->next ) {
108 if ($preview_results) {
113 dt
=> calc_new_due_date
(
116 dt_from_string
( $checkout->date_due ),
117 new_hard_due_date
=> $new_hard_due_date,
118 add_days
=> $due_date_days
126 push( @issue_ids, $checkout->id );
130 if ( $preview_results ) {
132 checkouts
=> $checkouts,
133 new_hard_due_date
=> $new_hard_due_date
134 ? dt_from_string
($new_hard_due_date)
136 due_date_days
=> $due_date_days,
137 new_due_dates
=> \
@new_due_dates,
145 if ( $op eq 'modify' ) {
147 # We want to modify selected checkouts!
148 my $new_hard_due_date = $input->param('new_hard_due_date');
149 my $due_date_days = $input->param('due_date_days');
151 # @issue_ids will already be populated if we are skipping the results display
152 @issue_ids = $input->multi_param('issue_id') unless @issue_ids;
154 $new_hard_due_date &&= dt_from_string
($new_hard_due_date);
156 Koha
::Checkouts
->search( { issue_id
=> { -in => \
@issue_ids } } );
157 while ( my $checkout = $checkouts->next ) {
158 my $new_due_date = calc_new_due_date
(
160 due_date
=> dt_from_string
($checkout->date_due),
161 new_hard_due_date
=> $new_hard_due_date,
162 add_days
=> $due_date_days
166 # Update checkout's due date
167 $checkout->date_due($new_due_date)->store;
169 # Update items.onloan
170 $checkout->item->onloan($new_due_date)->store;
175 checkouts
=> $checkouts,
179 sub calc_new_due_date
{
181 my $due_date = $params->{due_date
};
182 my $new_hard_due_date = $params->{new_hard_due_date
};
183 my $add_days = $params->{add_days
};
186 if ( $new_hard_due_date ) {
187 $new = $new_hard_due_date->clone->set(
188 hour
=> $due_date->hour,
189 minute
=> $due_date->minute,
190 second
=> $due_date->second,
193 $new = $due_date->clone->add( days
=> $add_days );
198 output_html_with_http_headers
$input, $cookie, $template->output;