View | Details | Raw Unified | Return to bug 13504
Collapse All | Expand All

(-)a/C4/Message.pm (-2 / +6 lines)
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
- 

Return to bug 13504