Lines 159-165
sub add_form {
Link Here
|
159 |
|
159 |
|
160 |
my $message_transport_types = GetMessageTransportTypes(); |
160 |
my $message_transport_types = GetMessageTransportTypes(); |
161 |
my $templates = { map { $_ => { message_transport_type => $_ } } sort @$message_transport_types }; |
161 |
my $templates = { map { $_ => { message_transport_type => $_ } } sort @$message_transport_types }; |
162 |
my %letters = ( default => { templates => $templates } ); |
162 |
my %letters = ( default => { templates => {%$templates} } ); |
163 |
|
163 |
|
164 |
my $translated_languages = C4::Languages::getTranslatedLanguages( |
164 |
my $translated_languages = C4::Languages::getTranslatedLanguages( |
165 |
'opac', |
165 |
'opac', |
Lines 189-207
sub add_form {
Link Here
|
189 |
$template->param( default_language => $default_language ); |
189 |
$template->param( default_language => $default_language ); |
190 |
if ($letters) { |
190 |
if ($letters) { |
191 |
$template->param( |
191 |
$template->param( |
192 |
modify => 1, |
192 |
modify => 1, |
193 |
code => $code, |
193 |
code => $code, |
194 |
); |
194 |
); |
195 |
my $first_flag_name = 1; |
195 |
my $first_flag_name = 1; |
196 |
my $lang; |
196 |
my $lang; |
197 |
|
197 |
|
198 |
# The letter name is contained into each mtt row. |
198 |
# The letter name is contained into each mtt row. |
199 |
# So we can only sent the first one to the template. |
199 |
# So we can only sent the first one to the template. |
200 |
for my $letter ( @$letters ) { |
200 |
for my $letter (@$letters) { |
|
|
201 |
|
201 |
# The letter_name |
202 |
# The letter_name |
202 |
if ( $first_flag_name and $letter->{name} ) { |
203 |
if ( $first_flag_name and $letter->{name} ) { |
203 |
$template->param( |
204 |
$template->param( |
204 |
letter_name=> $letter->{name}, |
205 |
letter_name => $letter->{name}, |
205 |
); |
206 |
); |
206 |
$first_flag_name = 0; |
207 |
$first_flag_name = 0; |
207 |
} |
208 |
} |
Lines 217-239
sub add_form {
Link Here
|
217 |
}; |
218 |
}; |
218 |
|
219 |
|
219 |
my $lang = $letter->{lang}; |
220 |
my $lang = $letter->{lang}; |
220 |
my $mtt = $letter->{message_transport_type}; |
221 |
my $mtt = $letter->{message_transport_type}; |
221 |
$letters{ $lang }{templates}{$mtt} = { |
222 |
$letters{$lang}{templates}{$mtt} = { |
222 |
message_transport_type => $letter->{message_transport_type}, |
223 |
message_transport_type => $letter->{message_transport_type}, |
223 |
is_html => $letter->{is_html}, |
224 |
is_html => $letter->{is_html}, |
224 |
updated_on => $letter->{updated_on}, |
225 |
updated_on => $letter->{updated_on}, |
225 |
title => $letter->{title}, |
226 |
title => $letter->{title}, |
226 |
content => $letter->{content} // '', |
227 |
content => $letter->{content} // '', |
227 |
tt_error => $letter->{tt_error}, |
228 |
tt_error => $letter->{tt_error}, |
228 |
}; |
229 |
}; |
229 |
$letters{ $lang }{params} = $letter; |
230 |
$letters{$lang}{params} = $letter; |
|
|
231 |
} |
230 |
|
232 |
|
231 |
my $object = Koha::Notice::Templates->find( { id => $letter->{id} } ); |
233 |
# Fetch sample notices |
232 |
$letters{ $lang }{templates}{$mtt}{sample} = $object->get_default; |
234 |
for my $lang_key ( keys %letters ) { |
233 |
$letters{ $lang }{templates}{$mtt}{id} = $letter->{id}; |
235 |
for my $mtt_key ( keys %{ $letters{$lang_key}{templates} } ) { |
|
|
236 |
my $object = Koha::Notice::Template->new( |
237 |
{ module => $module, code => $code, message_transport_type => $mtt_key, lang => $lang_key } ); |
238 |
my $sample = $object->get_default; |
239 |
my $template = { %{ $letters{$lang_key}{templates}{$mtt_key} } }; |
240 |
$template->{sample} = $sample; |
241 |
$template->{id} = lc( "$module" . "_" . $code . "_" . $mtt_key . "_" . $lang_key ); |
242 |
$letters{$lang_key}{templates}{$mtt_key} = $template; |
243 |
} |
234 |
} |
244 |
} |
235 |
} |
245 |
} else { |
236 |
else { |
|
|
237 |
$template->param( adding => 1 ); |
246 |
$template->param( adding => 1 ); |
238 |
} |
247 |
} |
239 |
|
248 |
|
240 |
- |
|
|