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

(-)a/Koha/ILL/Request.pm (-8 / +26 lines)
Lines 26-31 use DateTime; Link Here
26
use C4::Letters;
26
use C4::Letters;
27
use Mojo::Util     qw(deprecated);
27
use Mojo::Util     qw(deprecated);
28
use File::Basename qw(dirname);
28
use File::Basename qw(dirname);
29
use Carp           qw( croak );
29
30
30
use Koha::AuthorisedValue;
31
use Koha::AuthorisedValue;
31
use Koha::AuthorisedValues;
32
use Koha::AuthorisedValues;
Lines 2021-2041 sub get_notice { Link Here
2021
    my $author    = $self->extended_attributes->find( { type => 'author' } );
2022
    my $author    = $self->extended_attributes->find( { type => 'author' } );
2022
    my $metahash  = $self->metadata;
2023
    my $metahash  = $self->metadata;
2023
    my @metaarray = ();
2024
    my @metaarray = ();
2025
    my $template  = Koha::Notice::Templates->find_effective_template(
2026
        {
2027
            module                 => 'ill',
2028
            code                   => $params->{notice_code},
2029
            branchcode             => $self->branchcode,
2030
            message_transport_type => $params->{transport},
2031
            lang                   => $self->patron ? $self->patron->lang : undef
2032
        }
2033
    );
2034
2035
    unless ($template) {
2036
        croak "No 'ill' " . $params->{notice_code} . " letter transported by " . $params->{transport};
2037
        return;
2038
    }
2039
2024
    foreach my $key ( sort { lc $a cmp lc $b } keys %{$metahash} ) {
2040
    foreach my $key ( sort { lc $a cmp lc $b } keys %{$metahash} ) {
2025
        my $value = $metahash->{$key};
2041
        my $value = $metahash->{$key};
2026
        push @metaarray, "- $key: $value" if $value;
2042
        push @metaarray, "- $key: $value" if $value;
2027
    }
2043
    }
2028
    my $metastring = join( "\n", @metaarray );
2029
2044
2045
    my $metastring;
2046
    my $template_hash = $template->unblessed;
2047
    if ( $template_hash->{is_html} ) {
2048
        $metastring = join( "<br>\n", @metaarray );
2049
        $template_hash->{'content-type'} = 'text/html; charset="UTF-8"';
2050
    } else {
2051
        $metastring = join( "\n", @metaarray );
2052
    }
2030
    my $illrequestattributes = { map { $_->type => $_->value } $self->extended_attributes->as_list };
2053
    my $illrequestattributes = { map { $_->type => $_->value } $self->extended_attributes->as_list };
2031
2054
2032
    my $letter = C4::Letters::GetPreparedLetter(
2055
    my $letter = C4::Letters::GetPreparedLetter(
2033
        module                 => 'ill',
2056
        letter => $template_hash,
2034
        letter_code            => $params->{notice_code},
2057
        tables => {
2035
        branchcode             => $self->branchcode,
2036
        message_transport_type => $params->{transport},
2037
        lang                   => $self->patron ? $self->patron->lang : undef,
2038
        tables                 => {
2039
            illrequests => $self->illrequest_id,
2058
            illrequests => $self->illrequest_id,
2040
            borrowers   => $self->borrowernumber,
2059
            borrowers   => $self->borrowernumber,
2041
            biblio      => $self->biblio_id,
2060
            biblio      => $self->biblio_id,
2042
- 

Return to bug 40860