View | Details | Raw Unified | Return to bug 12933
Collapse All | Expand All

(-)a/C4/Overdues.pm (-3 / +3 lines)
Lines 55-61 BEGIN { Link Here
55
        &RemoveNotifyLine
55
        &RemoveNotifyLine
56
        &AddNotifyLine
56
        &AddNotifyLine
57
        &GetOverdueMessageTransportTypes
57
        &GetOverdueMessageTransportTypes
58
        &parse_letter
58
        &parse_overdues_letter
59
	);
59
	);
60
	# subs to remove
60
	# subs to remove
61
	push @EXPORT, qw(
61
	push @EXPORT, qw(
Lines 957-963 sub GetOverdueMessageTransportTypes { Link Here
957
    return \@mtts;
957
    return \@mtts;
958
}
958
}
959
959
960
=head2 parse_letter
960
=head2 parse_overdues_letter
961
961
962
parses the letter template, replacing the placeholders with data
962
parses the letter template, replacing the placeholders with data
963
specific to this patron, biblio, or item for overdues
963
specific to this patron, biblio, or item for overdues
Lines 973-979 substituted keys and values. Link Here
973
973
974
=cut
974
=cut
975
975
976
sub parse_letter {
976
sub parse_overdues_letter {
977
    my $params = shift;
977
    my $params = shift;
978
    foreach my $required (qw( letter_code borrowernumber )) {
978
    foreach my $required (qw( letter_code borrowernumber )) {
979
        return unless ( exists $params->{$required} && $params->{$required} );
979
        return unless ( exists $params->{$required} && $params->{$required} );
(-)a/members/print_overdues.pl (-2 / +2 lines)
Lines 25-31 use C4::Context; Link Here
25
use C4::Auth;
25
use C4::Auth;
26
use C4::Output;
26
use C4::Output;
27
use C4::Members qw(GetOverdues);
27
use C4::Members qw(GetOverdues);
28
use C4::Overdues qw(parse_letter);
28
use C4::Overdues qw(parse_overdues_letter);
29
29
30
my $input = new CGI;
30
my $input = new CGI;
31
31
Lines 47-53 my $branchcode = C4::Context->userenv->{'branch'}; Link Here
47
47
48
my $overdues = GetOverdues($borrowernumber);
48
my $overdues = GetOverdues($borrowernumber);
49
49
50
my $letter = parse_letter(
50
my $letter = parse_overdues_letter(
51
    {
51
    {
52
        letter_code            => 'OVERDUES_SLIP',
52
        letter_code            => 'OVERDUES_SLIP',
53
        borrowernumber         => $borrowernumber,
53
        borrowernumber         => $borrowernumber,
(-)a/misc/cronjobs/overdue_notices.pl (-2 / +1 lines)
Lines 654-660 END_SQL Link Here
654
                my $print_sent = 0; # A print notice is not yet sent for this patron
654
                my $print_sent = 0; # A print notice is not yet sent for this patron
655
                for my $mtt ( @message_transport_types ) {
655
                for my $mtt ( @message_transport_types ) {
656
656
657
                    my $letter = parse_letter(
657
                    my $letter = parse_overdues_letter(
658
                        {   letter_code     => $overdue_rules->{"letter$i"},
658
                        {   letter_code     => $overdue_rules->{"letter$i"},
659
                            borrowernumber  => $borrowernumber,
659
                            borrowernumber  => $borrowernumber,
660
                            branchcode      => $branchcode,
660
                            branchcode      => $branchcode,
661
- 

Return to bug 12933