X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FOverdues.pm;h=169b36ccfd36b2a85a4c24279085e3b41ff3a1af;hb=b57d98517c5a9572a54412f7f4e5d872acfa85c3;hp=1e1a207e23a181a4006db7e1207e882e34204bf9;hpb=9ac4591de91dd21878fc94b644d74182f9a6db84;p=koha_fer

diff --git a/C4/Overdues.pm b/C4/Overdues.pm
index 1e1a207e23..169b36ccfd 100644
--- a/C4/Overdues.pm
+++ b/C4/Overdues.pm
@@ -23,6 +23,8 @@ use strict;
 #use warnings; FIXME - Bug 2505
 use Date::Calc qw/Today Date_to_Days/;
 use Date::Manip qw/UnixDate/;
+use List::MoreUtils qw( uniq );
+
 use C4::Circulation;
 use C4::Context;
 use C4::Accounts;
@@ -928,6 +930,12 @@ sub GetOverdueMessageTransportTypes {
     while ( my $mtt = $sth->fetchrow ) {
         push @mtts, $mtt;
     }
+
+    # Put 'print' in first if exists
+    # It avoid to sent a print notice with an email or sms template is no email or sms is defined
+    @mtts = uniq( 'print', @mtts )
+        if grep {/^print$/} @mtts;
+
     return \@mtts;
 }