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