3 # This file is part of Koha.
5 # Copyright (C) 2014 Hochschule für Gesundheit (hsg), Germany
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (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 Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
22 automatic_renewals.pl - cron script to renew loans
26 ./automatic_renewals.pl
29 0 3 * * * automatic_renewals.pl
33 This script searches for issues scheduled for automatic renewal
34 (issues.auto_renew). If there are still renews left (Renewals allowed)
35 and the renewal isn't premature (No Renewal before) the issue is renewed.
55 my $auto_renews = Koha::Checkouts->search({ auto_renew => 1 });
58 while ( my $auto_renew = $auto_renews->next ) {
60 # CanBookBeRenewed returns 'auto_renew' when the renewal should be done by this script
61 my ( $ok, $error ) = CanBookBeRenewed( $auto_renew->borrowernumber, $auto_renew->itemnumber );
62 if ( $error eq 'auto_renew' ) {
63 my $date_due = AddRenewal( $auto_renew->borrowernumber, $auto_renew->itemnumber, $auto_renew->branchcode );
64 push @{ $report{ $auto_renew->borrowernumber } }, $auto_renew;
65 } elsif ( $error eq 'too_many'
66 or $error eq 'on_reserve'
67 or $error eq 'restriction'
68 or $error eq 'overdue'
69 or $error eq 'auto_too_late'
70 or $error eq 'auto_too_much_oweing'
71 or $error eq 'auto_too_soon' ) {
72 if ( not $auto_renew->auto_renew_error or $error ne $auto_renew->auto_renew_error ) {
73 $auto_renew->auto_renew_error($error)->store;
74 push @{ $report{ $auto_renew->borrowernumber } }, $auto_renew
75 if $error ne 'auto_too_soon'; # Do not notify if it's too soon
80 for my $borrowernumber ( keys %report ) {
81 my $patron = Koha::Patrons->find($borrowernumber);
83 for my $issue ( @{ $report{$borrowernumber} } ) {
84 my $item = Koha::Items->find( $issue->itemnumber );
85 my $letter = C4::Letters::GetPreparedLetter(
86 module => 'circulation',
87 letter_code => 'AUTO_RENEWALS',
89 borrowers => $patron->borrowernumber,
90 issues => $issue->itemnumber,
91 items => $issue->itemnumber,
92 biblio => $item->biblionumber,
96 my $library = Koha::Libraries->find( $patron->branchcode );
97 my $admin_email_address = $library->branchemail || C4::Context->preference('KohaAdminEmailAddress');
99 C4::Letters::EnqueueLetter(
101 borrowernumber => $borrowernumber,
102 message_transport_type => 'email',
103 from_address => $admin_email_address,