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