8 use C4::Budgets qw( GetBudget );
9 use C4::Suggestions qw( GetUnprocessedSuggestions );
13 my ( $help, $verbose, $confirm, @days );
16 'v|verbose' => \$verbose,
18 'c|confirm' => \$confirm,
19 ) || pod2usage( verbose => 2 );
22 pod2usage( verbose => 2 );
26 pod2usage(q{At least one day parameter should be given});
31 say "Doing a dry run; no email will be sent.";
32 say "Run again with --confirm to send emails.";
33 $verbose = 1 unless $verbose;
36 for my $number_of_days (@days) {
37 say "Searching suggestions suggested $number_of_days days ago" if $verbose;
39 my $suggestions = C4::Suggestions::GetUnprocessedSuggestions($number_of_days);
41 say "No suggestion found" if $verbose and not @$suggestions;
43 for my $suggestion (@$suggestions) {
45 say "Suggestion $suggestion->{suggestionid} should be processed" if $verbose;
47 my $budget = C4::Budgets::GetBudget( $suggestion->{budgetid} );
48 my $patron = Koha::Patrons->find( $budget->{budget_owner_id} );
50 C4::Members::GetNoticeEmailAddress( $budget->{budget_owner_id} );
51 my $library = $patron->library;
52 my $admin_email_address = $library->branchemail
53 || C4::Context->preference('KohaAdminEmailAddress');
56 say "Patron " . $patron->borrowernumber . " is going to be notified" if $verbose;
57 my $letter = C4::Letters::GetPreparedLetter(
58 module => 'suggestions',
59 letter_code => 'TO_PROCESS',
60 branchcode => $patron->branchcode,
61 lang => $patron->lang,
63 suggestions => $suggestion->{suggestionid},
64 branches => $patron->branchcode,
65 borrowers => $patron->borrowernumber,
69 C4::Letters::EnqueueLetter(
72 borrowernumber => $patron->borrowernumber,
73 message_transport_type => 'email',
74 from_address => $admin_email_address,
79 say "Patron " . $patron->borrowernumber . " does not have an email address" if $verbose;
87 notice_unprocessed_suggestions.pl - Generate notification for unprocessed suggestions.
89 The budget owner will be notified.
91 The letter template 'TO_PROCESS' will be used.
95 notice_unprocessed_suggestions.pl [-h|--help] [-v|--verbose] [-c|--confirm] [--days=NUMBER_OF_DAYS]
103 Print a brief help message
105 =item B<-c|--confirm>
107 This flag must be provided in order for the script to actually
108 generate notices. If it is not supplied, the script will
109 only report on the patron it would have noticed.
113 This parameter is mandatory.
114 It must contain an integer representing the number of days elapsed since the last modification of suggestions to process.
116 =item B<-v|--verbose>
124 Jonathan Druart <jonathan.druart@biblibre.com>
128 Copyright 2014 BibLibre
132 This file is part of Koha.
134 Koha is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software
135 Foundation; either version 3 of the License, or (at your option) any later version.
137 You should have received a copy of the GNU General Public License along
138 with Koha; if not, write to the Free Software Foundation, Inc.,
139 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.