From 0310359486bfb8ddb5d9c8542393903c93b5233c Mon Sep 17 00:00:00 2001 From: Martin Renvoize <martin.renvoize@ptfs-europe.com> Date: Thu, 8 Aug 2024 11:44:35 +0100 Subject: [PATCH] Bug 10190: Update overdue_notices script to refer to circ rules This patch updates the overdue_notices cron script to refer to the new location for overdue rules found in the circulation rules table now. Sponsored-by: Glasgow Colleges Library Group <https://library.cityofglasgowcollege.ac.uk> Signed-off-by: George Harkins <George.Harkins@cityofglasgowcollege.ac.uk> --- misc/cronjobs/overdue_notices.pl | 85 +++++++++++++++++--------------- 1 file changed, 46 insertions(+), 39 deletions(-) diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl index 7d3fd8796d5..f68cb46cf0d 100755 --- a/misc/cronjobs/overdue_notices.pl +++ b/misc/cronjobs/overdue_notices.pl @@ -29,7 +29,7 @@ use DateTime::Duration; use Koha::Script -cron; use C4::Context; use C4::Letters; -use C4::Overdues qw( GetOverdueMessageTransportTypes parse_overdues_letter ); +use C4::Overdues qw( parse_overdues_letter ); use C4::Log qw( cronlogaction ); use Koha::Patron::Debarments qw( AddUniqueDebarment ); use Koha::DateUtils qw( dt_from_string output_pref ); @@ -489,43 +489,54 @@ END_SQL } my $sth2 = $dbh->prepare($sql2); - my $query = "SELECT * FROM overduerules WHERE delay1 IS NOT NULL AND branchcode = ? "; - $query .= " AND categorycode IN (" . join( ',', ('?') x @myborcat ) . ") " if (@myborcat); - $query .= " AND categorycode NOT IN (" . join( ',', ('?') x @myborcatout ) . ") " if (@myborcatout); - - my $rqoverduerules = $dbh->prepare($query); - $rqoverduerules->execute( $branchcode, @myborcat, @myborcatout ); - - # We get default rules if there is no rule for this branch - if ( $rqoverduerules->rows == 0 ) { - $query = "SELECT * FROM overduerules WHERE delay1 IS NOT NULL AND branchcode = '' "; - $query .= " AND categorycode IN (" . join( ',', ('?') x @myborcat ) . ") " if (@myborcat); - $query .= " AND categorycode NOT IN (" . join( ',', ('?') x @myborcatout ) . ") " if (@myborcatout); - - $rqoverduerules = $dbh->prepare($query); - $rqoverduerules->execute( @myborcat, @myborcatout ); + my @categories; + if (@myborcat) { + @categories = @myborcat; + } elsif (@myborcatout) { + @categories = Koha::Patron::Categories->search( { catagorycode => { 'not_in' => \@myborcatout } } ) + ->get_column('categorycode'); + } else { + @categories = Koha::Patron::Categories->search()->get_column('categorycode'); } - # my $outfile = 'overdues_' . ( $mybranch || $branchcode || 'default' ); - while ( my $overdue_rules = $rqoverduerules->fetchrow_hashref ) { - PERIOD: foreach my $i ( 1 .. 3 ) { + for my $category (@categories) { + my $i = 0; + PERIOD: while (1) { + $i++; + my $j = $i + 1; + my $overdue_rules = Koha::CirculationRules->get_effective_rules( + { + rules => [ + "overdue_$i" . '_delay', "overdue_$i" . '_notice', "overdue_$i" . '_mtt', + "overdue_$i" . '_restrict', "overdue_$j" . '_delay' + ], + categorycode => $category, + branchcode => $branchcode + } + ); + $verbose and warn "branch '$branchcode', categorycode = $category pass $i\n"; - $verbose and warn "branch '$branchcode', categorycode = $overdue_rules->{categorycode} pass $i\n"; + if ( !$overdue_rules->{ "overdue_$i" . '_delay' } ) { + last PERIOD; + } - my $mindays = $overdue_rules->{"delay$i"}; # the notice will be sent after mindays days (grace period) + my $mindays = + $overdue_rules->{ "overdue_$i" . '_delay' }; # the notice will be sent after mindays days (grace period) my $maxdays = ( - $overdue_rules->{ "delay" . ( $i + 1 ) } - ? $overdue_rules->{ "delay" . ( $i + 1 ) } - 1 + $overdue_rules->{ "overdue_$j" . '_delay' } + ? $overdue_rules->{ "overdue_$j" . '_delay' } - 1 : ($MAX) ); # issues being more than maxdays late are managed somewhere else. (borrower probably suspended) next unless defined $mindays; - if ( !$overdue_rules->{"letter$i"} ) { + if ( !$overdue_rules->{ "overdue_$i" . '_notice' } ) { $verbose and warn sprintf "No letter code found for pass %s\n", $i; next PERIOD; } - $verbose and warn sprintf "Using letter code '%s' for pass %s\n", $overdue_rules->{"letter$i"}, $i; + $verbose + and warn sprintf "Using letter code '%s' for pass %s\n", $overdue_rules->{ "overdue_$i" . '_notice' }, + $i; # $letter->{'content'} is the text of the mail that is sent. # this text contains fields that are replaced by their value. Those fields must be written between brackets @@ -551,9 +562,9 @@ END_SQL } push @borrower_parameters, $branchcode; } - if ( $overdue_rules->{categorycode} ) { + if ($category) { $borrower_sql .= ' AND borrowers.categorycode=? '; - push @borrower_parameters, $overdue_rules->{categorycode}; + push @borrower_parameters, $category; } $borrower_sql .= ' AND categories.overduenoticerequired=1 ORDER BY issues.borrowernumber'; @@ -565,7 +576,7 @@ END_SQL warn sprintf "--------Borrower SQL------\n"; warn $borrower_sql . "\n $branchcode | " - . $overdue_rules->{'categorycode'} + . $category . "\n ($mindays, $maxdays, " . $date_to_run->datetime() . ")\n"; warn sprintf "--------------------------\n"; @@ -637,21 +648,21 @@ END_SQL my $letter = Koha::Notice::Templates->find_effective_template( { module => 'circulation', - code => $overdue_rules->{"letter$i"}, + code => $overdue_rules->{ "overdue_$i" . '_notice' }, branchcode => $branchcode, lang => $patron->lang } ); unless ($letter) { - $verbose and warn qq|Message '$overdue_rules->{"letter$i"}' content not found|; + $verbose and warn qq|Message '$overdue_rules->{"overdue_$i"."_notice"}' content not found|; # might as well skip while PERIOD, no other borrowers are going to work. # FIXME : Does this mean a letter must be defined in order to trigger a debar ? next PERIOD; } - if ( $overdue_rules->{"debarred$i"} ) { + if ( $overdue_rules->{ "overdue_$i" . '_restrict' } ) { #action taken is debarring AddUniqueDebarment( @@ -715,11 +726,7 @@ END_SQL } $sth2->finish; - my @message_transport_types = - @{ GetOverdueMessageTransportTypes( $branchcode, $overdue_rules->{categorycode}, $i ) }; - @message_transport_types = - @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i ) } - unless @message_transport_types; + my @message_transport_types = split( /,/, $overdue_rules->{ "overdue_$i" . '_mtt' } ); my $print_sent = 0; # A print notice is not yet sent for this patron for my $mtt (@message_transport_types) { @@ -739,7 +746,7 @@ END_SQL my $letter_exists = Koha::Notice::Templates->find_effective_template( { module => 'circulation', - code => $overdue_rules->{"letter$i"}, + code => $overdue_rules->{ "overdue_$i" . '_notice' }, message_transport_type => $effective_mtt, branchcode => $branchcode, lang => $patron->lang @@ -748,7 +755,7 @@ END_SQL my $letter = parse_overdues_letter( { - letter_code => $overdue_rules->{"letter$i"}, + letter_code => $overdue_rules->{ "overdue_$i" . '_notice' }, borrowernumber => $borrowernumber, branchcode => $branchcode, items => \@items, @@ -764,7 +771,7 @@ END_SQL } ); unless ( $letter && $letter->{content} ) { - $verbose and warn qq|Message '$overdue_rules->{"letter$i"}' content not found|; + $verbose and warn qq|Message '$overdue_rules->{"overdue_$i"."_notice"}' content not found|; # this transport doesn't have a configured notice, so try another next; -- 2.48.1