Lines 227-236
sub add_form {
Link Here
|
227 |
tt_error => $letter->{tt_error}, |
227 |
tt_error => $letter->{tt_error}, |
228 |
}; |
228 |
}; |
229 |
$letters{ $lang }{params} = $letter; |
229 |
$letters{ $lang }{params} = $letter; |
|
|
230 |
} |
230 |
|
231 |
|
231 |
my $object = Koha::Notice::Templates->find( { id => $letter->{id} } ); |
232 |
# Fetch sample notices |
232 |
$letters{ $lang }{templates}{$mtt}{sample} = $object->get_default; |
233 |
while (my ($lang_key, $lang_value) = each %letters) { |
233 |
$letters{ $lang }{templates}{$mtt}{id} = $letter->{id}; |
234 |
while (my ($mtt_key, $mtt_value) = each %{ $lang_value->{templates} }) { |
|
|
235 |
my $object = Koha::Notice::Template->new( |
236 |
{ module => $module, code => $code, message_transport_type => $mtt_key, lang => $lang_key } ); |
237 |
$mtt_value->{sample} = $object->get_default; |
238 |
$mtt_value->{id} = lc("$module" . "_" . $code . "_" . $mtt_key . "_" . $lang_key); |
239 |
} |
234 |
} |
240 |
} |
235 |
} |
241 |
} |
236 |
else { |
242 |
else { |
237 |
- |
|
|