From 82718936f4233bd7e0acabdd35e9273493d68392 Mon Sep 17 00:00:00 2001
From: Matthias Le Gac <matthias.le-gac@inlibro.com>
Date: Thu, 7 Mar 2024 16:55:37 -0500
Subject: [PATCH] Bug 36122: NEW_SUGGESTION is sent for every modification to
 the suggestion

---
 Koha/Suggestion.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Koha/Suggestion.pm b/Koha/Suggestion.pm
index 631c1f662a..37c509fa88 100644
--- a/Koha/Suggestion.pm
+++ b/Koha/Suggestion.pm
@@ -69,8 +69,7 @@ sub store {
     my $emailpurchasesuggestions = C4::Context->preference("EmailPurchaseSuggestions");
 
     my $result = $self->SUPER::store();
-
-    if( $emailpurchasesuggestions ){
+    if ( $emailpurchasesuggestions && $self->STATUS eq 'ASKED' ) {
 
         if (
             my $letter = C4::Letters::GetPreparedLetter(
-- 
2.34.1