Bug 15629: Koha::Libraries - Remove GetBranchDetail

[koha.git] / misc / cronjobs / notice_unprocessed_suggestions.pl

diff --git a/misc/cronjobs/notice_unprocessed_suggestions.pl b/misc/cronjobs/notice_unprocessed_suggestions.pl
index 29c8663..4c370e8 100755 (executable)
--- a/misc/cronjobs/notice_unprocessed_suggestions.pl
+++ b/misc/cronjobs/notice_unprocessed_suggestions.pl
@@ -8,6 +8,7 @@ use Getopt::Long;
 use C4::Budgets qw( GetBudget );
 use C4::Members qw( GetMember );
 use C4::Suggestions qw( GetUnprocessedSuggestions );
+use Koha::Libraries;
 
 my ( $help, $verbose, $confirm, @days );
 GetOptions(
@@ -28,12 +29,12 @@ unless (@days) {
 
 unless ($confirm) {
     say "Doing a dry run; no email will be sent.";
-    say "Run again with --confirm to sent emails.";
+    say "Run again with --confirm to send emails.";
     $verbose = 1 unless $verbose;
 }
 
 for my $number_of_days (@days) {
-    say "Searching suggestions suggested $number_of_days ago" if $verbose;
+    say "Searching suggestions suggested $number_of_days days ago" if $verbose;
 
     my $suggestions = C4::Suggestions::GetUnprocessedSuggestions($number_of_days);
 
@@ -47,8 +48,8 @@ for my $number_of_days (@days) {
         my $patron = C4::Members::GetMember( borrowernumber => $budget->{budget_owner_id} );
         my $email_address =
           C4::Members::GetNoticeEmailAddress( $budget->{budget_owner_id} );
-        my $library = C4::Branch::GetBranchDetail( $patron->{branchcode} );
-        my $admin_email_address = $library->{branchemail}
+        my $library = Koha::Libraries->find( $patron->{branchcode} );
+        my $admin_email_address = $library->branchemail
           || C4::Context->preference('KohaAdminEmailAddress');
 
         if ($email_address) {