From 1e6644f597489d9bd71f9596b8c42d4cf773913d Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Thu, 8 Mar 2012 13:50:47 +0100
Subject: [PATCH] Bug 6090: Do not enqueue empty messages

This patch avoid enqueuing messages that have an empty body. It can
happen when letter is empty or becomes empty after being processed by
parseletter

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
---
 C4/Letters.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/C4/Letters.pm b/C4/Letters.pm
index 514b355377..4bde166188 100644
--- a/C4/Letters.pm
+++ b/C4/Letters.pm
@@ -672,6 +672,13 @@ sub EnqueueLetter ($) {
     return unless exists $params->{'borrowernumber'};
     return unless exists $params->{'message_transport_type'};
 
+    my $content = $params->{letter}->{content};
+    $content =~ s/\s+//g if(defined $content);
+    if ( not defined $content or $content eq '' ) {
+        warn "Trying to add an empty message to the message queue" if $debug;
+        return;
+    }
+
     # If we have any attachments we should encode then into the body.
     if ( $params->{'attachments'} ) {
         $params->{'letter'} = _add_attachments(
-- 
2.39.5