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} ); |