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 952-958 sub GetOverdueMessageTransportTypes { Link Here
952
    return \@mtts;
952
    return \@mtts;
953
}
953
}
954
954
955
=head2 parse_letter
955
=head2 parse_overdues_letter
956
956
957
parses the letter template, replacing the placeholders with data
957
parses the letter template, replacing the placeholders with data
958
specific to this patron, biblio, or item for overdues
958
specific to this patron, biblio, or item for overdues
Lines 968-974 substituted keys and values. Link Here
968
968
969
=cut
969
=cut
970
970
971
sub parse_letter {
971
sub parse_overdues_letter {
972
    my $params = shift;
972
    my $params = shift;
973
    foreach my $required (qw( letter_code borrowernumber )) {
973
    foreach my $required (qw( letter_code borrowernumber )) {
974
        return unless ( exists $params->{$required} && $params->{$required} );
974
        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 672-678 END_SQL Link Here
672
                my $print_sent = 0; # A print notice is not yet sent for this patron
672
                my $print_sent = 0; # A print notice is not yet sent for this patron
673
                for my $mtt ( @message_transport_types ) {
673
                for my $mtt ( @message_transport_types ) {
674
674
675
                    my $letter = parse_letter(
675
                    my $letter = parse_overdues_letter(
676
                        {   letter_code     => $overdue_rules->{"letter$i"},
676
                        {   letter_code     => $overdue_rules->{"letter$i"},
677
                            borrowernumber  => $borrowernumber,
677
                            borrowernumber  => $borrowernumber,
678
                            branchcode      => $branchcode,
678
                            branchcode      => $branchcode,
679
- 

Return to bug 12933