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