@@ -, +, @@ --- C4/Overdues.pm | 6 +++--- members/print_overdues.pl | 4 ++-- misc/cronjobs/overdue_notices.pl | 2 +- 3 files changed, 6 insertions(+), 6 deletions(-) --- a/C4/Overdues.pm +++ a/C4/Overdues.pm @@ -55,7 +55,7 @@ BEGIN { &RemoveNotifyLine &AddNotifyLine &GetOverdueMessageTransportTypes - &parse_letter + &parse_overdues_letter ); # subs to remove push @EXPORT, qw( @@ -952,7 +952,7 @@ sub GetOverdueMessageTransportTypes { return \@mtts; } -=head2 parse_letter +=head2 parse_overdues_letter parses the letter template, replacing the placeholders with data specific to this patron, biblio, or item for overdues @@ -968,7 +968,7 @@ substituted keys and values. =cut -sub parse_letter { +sub parse_overdues_letter { my $params = shift; foreach my $required (qw( letter_code borrowernumber )) { return unless ( exists $params->{$required} && $params->{$required} ); --- a/members/print_overdues.pl +++ a/members/print_overdues.pl @@ -25,7 +25,7 @@ use C4::Context; use C4::Auth; use C4::Output; use C4::Members qw(GetOverdues); -use C4::Overdues qw(parse_letter); +use C4::Overdues qw(parse_overdues_letter); my $input = new CGI; @@ -47,7 +47,7 @@ my $branchcode = C4::Context->userenv->{'branch'}; my $overdues = GetOverdues($borrowernumber); -my $letter = parse_letter( +my $letter = parse_overdues_letter( { letter_code => 'OVERDUES_SLIP', borrowernumber => $borrowernumber, --- a/misc/cronjobs/overdue_notices.pl +++ a/misc/cronjobs/overdue_notices.pl @@ -672,7 +672,7 @@ END_SQL my $print_sent = 0; # A print notice is not yet sent for this patron for my $mtt ( @message_transport_types ) { - my $letter = parse_letter( + my $letter = parse_overdues_letter( { letter_code => $overdue_rules->{"letter$i"}, borrowernumber => $borrowernumber, branchcode => $branchcode, --