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; } diff --git a/t/db_dependent/Overdues.t b/t/db_dependent/Overdues.t index b023cfd2c6..1a1d5f8ad1 100644 --- a/t/db_dependent/Overdues.t +++ b/t/db_dependent/Overdues.t @@ -38,6 +38,8 @@ $dbh->do(q| ('', 'PT', 1, 'email'), ('', 'PT', 2, 'email'), ('', 'PT', 2, 'sms'), + ('', 'PT', 3, 'sms'), + ('', 'PT', 3, 'email'), ('', 'PT', 3, 'print'), ('', 'YA', 2, 'sms') |); @@ -69,7 +71,7 @@ $mtts = C4::Overdues::GetOverdueMessageTransportTypes('', 'PT', 2); is_deeply( $mtts, ['email', 'sms'], 'GetOverdueMessageTransportTypes: second overdue is by email and sms for PT (default)' ); $mtts = C4::Overdues::GetOverdueMessageTransportTypes('', 'PT', 3); -is_deeply( $mtts, ['print'], 'GetOverdueMessageTransportTypes: third overdue is by print for PT (default)' ); +is_deeply( $mtts, ['print', 'sms', 'email'], 'GetOverdueMessageTransportTypes: third overdue is by print, sms and email for PT (default). With print in first.' ); done_testing;