Lines 159-166
sub enqueue {
Link Here
|
159 |
my ($class, $letter, $borrower, $transport) = @_; |
159 |
my ($class, $letter, $borrower, $transport) = @_; |
160 |
my $metadata = _metadata($letter); |
160 |
my $metadata = _metadata($letter); |
161 |
my $to_address = _to_address($borrower, $transport); |
161 |
my $to_address = _to_address($borrower, $transport); |
|
|
162 |
|
163 |
# Same as render_metadata |
164 |
my $format ||= sub { $_[0] || "" }; |
165 |
my $body = join('', map { $format->($_) } @{$metadata->{body}}); |
166 |
$letter->{content} = $metadata->{header} . $body . $metadata->{footer}; |
167 |
|
162 |
$letter->{metadata} = Dump($metadata); |
168 |
$letter->{metadata} = Dump($metadata); |
163 |
#carp "enqueuing... to $to_address"; |
|
|
164 |
C4::Letters::EnqueueLetter({ |
169 |
C4::Letters::EnqueueLetter({ |
165 |
letter => $letter, |
170 |
letter => $letter, |
166 |
borrowernumber => $borrower->{borrowernumber}, |
171 |
borrowernumber => $borrower->{borrowernumber}, |
167 |
- |
|
|