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 |
- |
|
|