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