|
Lines 127-146
foreach my $type (@types) {
Link Here
|
| 127 |
my $date = C4::Dates->new( $issues->{'date_due'}, 'iso' ); |
127 |
my $date = C4::Dates->new( $issues->{'date_due'}, 'iso' ); |
| 128 |
my $due_date = $date->output('metric'); |
128 |
my $due_date = $date->output('metric'); |
| 129 |
|
129 |
|
| 130 |
# gets the placeholder message, and enqueues the letter |
130 |
my $letter = C4::Letters::GetPreparedLetter( |
| 131 |
my $letter = getletter( $module, $code ); |
131 |
module => $module, |
| 132 |
die "No letter found for type $type!... dying\n" unless $letter; |
132 |
letter_code => $code, |
|
|
133 |
tables => { |
| 134 |
borrowers => $issues->{'borrowernumber'}, |
| 135 |
biblio => $issues->{'biblionumber'}, |
| 136 |
biblioitems => $issues->{'biblionumber'} |
| 137 |
}, |
| 138 |
); |
| 133 |
|
139 |
|
| 134 |
# covers basic variable parsing in letter |
140 |
die "No letter found for type $type!... dying\n" unless $letter; |
| 135 |
$letter = |
|
|
| 136 |
C4::Letters::parseletter( $letter, 'borrowers', |
| 137 |
$issues->{'borrowernumber'} ); |
| 138 |
$letter = |
| 139 |
C4::Letters::parseletter( $letter, 'biblio', |
| 140 |
$issues->{'biblionumber'} ); |
| 141 |
$letter = |
| 142 |
C4::Letters::parseletter( $letter, 'biblioitems', |
| 143 |
$issues->{'biblionumber'} ); |
| 144 |
|
141 |
|
| 145 |
my $message_id = 0; |
142 |
my $message_id = 0; |
| 146 |
if ($outfile) { |
143 |
if ($outfile) { |
| 147 |
- |
|
|