-# CanBookBeRenewed returns 'auto_renew' when the renewal should be done by this script
- ( $ok, $error ) = CanBookBeRenewed( $borrowernumber, $itemnumber );
- AddRenewal( $borrowernumber, $itemnumber, $branch )
- if ( $error eq "auto_renew" );
+for my $borrowernumber ( keys %report ) {
+ my $patron = Koha::Patrons->find($borrowernumber);
+ my @issues;
+ for my $issue ( @{ $report{$borrowernumber} } ) {
+ my $item = Koha::Items->find( $issue->itemnumber );
+ my $letter = C4::Letters::GetPreparedLetter(
+ module => 'circulation',
+ letter_code => 'AUTO_RENEWALS',
+ tables => {
+ borrowers => $patron->borrowernumber,
+ issues => $issue->itemnumber,
+ items => $issue->itemnumber,
+ biblio => $item->biblionumber,
+ },
+ );
+
+ my $library = Koha::Libraries->find( $patron->branchcode );
+ my $admin_email_address = $library->branchemail || C4::Context->preference('KohaAdminEmailAddress');
+
+ C4::Letters::EnqueueLetter(
+ { letter => $letter,
+ borrowernumber => $borrowernumber,
+ message_transport_type => 'email',
+ from_address => $admin_email_address,
+ }
+ );
+ }