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

(-)a/C4/Overdues.pm (-3 / +3 lines)
Lines 57-63 BEGIN { Link Here
57
      &RemoveNotifyLine
57
      &RemoveNotifyLine
58
      &AddNotifyLine
58
      &AddNotifyLine
59
      &GetOverdueMessageTransportTypes
59
      &GetOverdueMessageTransportTypes
60
      &parse_letter
60
      &parse_overdues_letter
61
    );
61
    );
62
62
63
    # subs to remove
63
    # subs to remove
Lines 955-961 sub GetOverdueMessageTransportTypes { Link Here
955
    return \@mtts;
955
    return \@mtts;
956
}
956
}
957
957
958
=head2 parse_letter
958
=head2 parse_overdues_letter
959
959
960
parses the letter template, replacing the placeholders with data
960
parses the letter template, replacing the placeholders with data
961
specific to this patron, biblio, or item for overdues
961
specific to this patron, biblio, or item for overdues
Lines 971-977 substituted keys and values. Link Here
971
971
972
=cut
972
=cut
973
973
974
sub parse_letter {
974
sub parse_overdues_letter {
975
    my $params = shift;
975
    my $params = shift;
976
    foreach my $required (qw( letter_code borrowernumber )) {
976
    foreach my $required (qw( letter_code borrowernumber )) {
977
        return unless ( exists $params->{$required} && $params->{$required} );
977
        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