Lines 49-55
use C4::Context;
Link Here
|
49 |
use C4::Output qw( output_html_with_http_headers ); |
49 |
use C4::Output qw( output_html_with_http_headers ); |
50 |
use C4::Letters qw( GetMessageTransportTypes ); |
50 |
use C4::Letters qw( GetMessageTransportTypes ); |
51 |
use C4::Log qw( logaction ); |
51 |
use C4::Log qw( logaction ); |
52 |
|
|
|
53 |
use Koha::Notice::Templates; |
52 |
use Koha::Notice::Templates; |
54 |
use Koha::Patron::Attribute::Types; |
53 |
use Koha::Patron::Attribute::Types; |
55 |
|
54 |
|
Lines 228-233
sub add_form {
Link Here
|
228 |
content => $letter->{content} // '', |
227 |
content => $letter->{content} // '', |
229 |
tt_error => $letter->{tt_error}, |
228 |
tt_error => $letter->{tt_error}, |
230 |
}; |
229 |
}; |
|
|
230 |
$letters{ $lang }{params} = $letter; |
231 |
} |
231 |
} |
232 |
} |
232 |
} |
233 |
else { |
233 |
else { |
Lines 310-321
sub add_validate {
Link Here
|
310 |
my $oldmodule = $input->param('oldmodule'); |
310 |
my $oldmodule = $input->param('oldmodule'); |
311 |
my $code = $input->param('code'); |
311 |
my $code = $input->param('code'); |
312 |
my $name = $input->param('name'); |
312 |
my $name = $input->param('name'); |
|
|
313 |
my $text_justify = $input->param('text_justify'); |
314 |
my $font_size = $input->param('font_size'); |
315 |
my $units = $input->param('units'); |
316 |
my $notice_width = $input->param('notice_width'); |
317 |
my $top_margin = $input->param('top_margin'); |
318 |
my $left_margin = $input->param('left_margin'); |
319 |
my $format_all = $input->param('format_all'); |
313 |
my @mtt = $input->multi_param('message_transport_type'); |
320 |
my @mtt = $input->multi_param('message_transport_type'); |
314 |
my @title = $input->multi_param('title'); |
321 |
my @title = $input->multi_param('title'); |
315 |
my @content = $input->multi_param('content'); |
322 |
my @content = $input->multi_param('content'); |
316 |
my @lang = $input->multi_param('lang'); |
323 |
my @lang = $input->multi_param('lang'); |
317 |
for my $mtt ( @mtt ) { |
324 |
for my $mtt ( @mtt ) { |
318 |
my $lang = shift @lang; |
325 |
my $lang = shift @lang; |
|
|
326 |
if ( $format_all ) { |
327 |
my @letters = Koha::Notice::Templates->search({ lang => $lang })->as_list; |
328 |
foreach my $letter ( @letters ) { |
329 |
$letter->set( |
330 |
{ |
331 |
text_justify => $text_justify, |
332 |
font_size => $font_size, |
333 |
units => $units, |
334 |
notice_width => $notice_width, |
335 |
top_margin => $top_margin, |
336 |
left_margin => $left_margin, |
337 |
} |
338 |
)->store; |
339 |
} |
340 |
} |
319 |
my $is_html = $input->param("is_html_$mtt\_$lang"); |
341 |
my $is_html = $input->param("is_html_$mtt\_$lang"); |
320 |
my $title = shift @title; |
342 |
my $title = shift @title; |
321 |
my $content = shift @content; |
343 |
my $content = shift @content; |
Lines 348-354
sub add_validate {
Link Here
|
348 |
is_html => $is_html || 0, |
370 |
is_html => $is_html || 0, |
349 |
title => $title, |
371 |
title => $title, |
350 |
content => $content, |
372 |
content => $content, |
351 |
lang => $lang |
373 |
lang => $lang, |
|
|
374 |
text_justify => $text_justify, |
375 |
font_size => $font_size, |
376 |
units => $units, |
377 |
notice_width => $notice_width, |
378 |
top_margin => $top_margin, |
379 |
left_margin => $left_margin, |
352 |
} |
380 |
} |
353 |
)->store; |
381 |
)->store; |
354 |
|
382 |
|
Lines 363-369
sub add_validate {
Link Here
|
363 |
title => $title, |
391 |
title => $title, |
364 |
content => $content, |
392 |
content => $content, |
365 |
message_transport_type => $mtt, |
393 |
message_transport_type => $mtt, |
366 |
lang => $lang |
394 |
lang => $lang, |
|
|
395 |
text_justify => $text_justify, |
396 |
font_size => $font_size, |
397 |
units => $units, |
398 |
notice_width => $notice_width, |
399 |
top_margin => $top_margin, |
400 |
left_margin => $left_margin, |
367 |
} |
401 |
} |
368 |
)->store; |
402 |
)->store; |
369 |
logaction( 'NOTICES', 'CREATE', $letter->id, $letter->content, |
403 |
logaction( 'NOTICES', 'CREATE', $letter->id, $letter->content, |
370 |
- |
|
|