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
+
+ - Library : <>
+ - Title : <>
+ - Author : <>
+ - Copyright date : <>
+ - Standard number (ISBN, ISSN or other) : <>
+ - Publisher : <>
+ - Collection title : <>
+ - Publication place : <>
+ - Quantity : <>
+ - Item type : <>
+ - Reason for suggestion : <>
+ - Notes : <>
+
+',1, 'email');
--
2.11.0