From 26b562c5f902b14ecc3c3cc3563d1680fb382dd1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Nazl=C4=B1=20=C3=87etin?= Date: Wed, 19 Dec 2018 11:37:54 +0000 Subject: [PATCH] Bug 5770: Notify for new suggestion --- C4/Suggestions.pm | 33 +++++++++++++++++++++- .../data/mysql/atomicupdate/bug_5770_notice.sql | 26 +++++++++++++++++ 2 files changed, 58 insertions(+), 1 deletion(-) create mode 100644 installer/data/mysql/atomicupdate/bug_5770_notice.sql diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm index 70b7b0de020..0aba6a6f831 100644 --- a/C4/Suggestions.pm +++ b/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( $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 diff --git a/installer/data/mysql/atomicupdate/bug_5770_notice.sql b/installer/data/mysql/atomicupdate/bug_5770_notice.sql new file mode 100644 index 00000000000..c816fdfdc4c --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_5770_notice.sql @@ -0,0 +1,26 @@ +INSERT IGNORE INTO `letter` (module, code, name, title, content, is_html, message_transport_type) +VALUES ('suggestions','NEW_SUGGESTION','New suggestion','New Suggestion','

Suggestion pending approval

+

Suggested by

+ +

+

Item on suggestion

+ +

',1, 'email'); -- 2.11.0