@@ -, +, @@ --- C4/Suggestions.pm | 33 ++++++++++++++++++++++++++++++++- 1 file changed, 32 insertions(+), 1 deletion(-) --- a/C4/Suggestions.pm +++ a/C4/Suggestions.pm @@ -454,7 +454,38 @@ sub NewSuggestion { $suggestion->{suggesteddate} = dt_from_string unless $suggestion->{suggesteddate}; my $rs = Koha::Database->new->schema->resultset('Suggestion'); - return $rs->create($suggestion)->id; + my $new_id = $rs->create($suggestion)->id; + + my $full_suggestion = GetSuggestion( $new_id ); + if ( + my $letter = C4::Letters::GetPreparedLetter( + module => 'suggestions', + letter_code => 'NEW_SUGGESTION', + tables => { + 'branches' => $full_suggestion->{branchcode}, + 'borrowers' => $full_suggestion->{suggestedby}, + 'suggestions' => $full_suggestion, + }, + ) + ){ + my $emailpurchasesuggestions = C4::Context->preference("EmailPurchaseSuggestions"); + + my $toaddress = ( $emailpurchasesuggestions eq "BranchEmailAddress" ) + ? ( Koha::Libraries->find($full_suggestion->{branchcode})->branchemail || C4::Context->preference('KohaAdminEmailAddress') ) + : C4::Context->preference( $emailpurchasesuggestions ) ; + + C4::Letters::EnqueueLetter( + { + letter => $letter, + borrowernumber => $full_suggestion->{suggestedby}, + suggestionid => $full_suggestion->{suggestionid}, + to_address => $toaddress, + message_transport_type => 'email', + } + ) or warn "can't enqueue letter $letter"; + } + + return $new_id; } =head2 ModSuggestion --