From 141f09206d1941231d810ecdcc2b04be2e84b3b1 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Wed, 10 Feb 2021 12:09:19 +0000 Subject: [PATCH] Bug 14233: Add logging to notice creation/update actions --- tools/letter.pl | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) diff --git a/tools/letter.pl b/tools/letter.pl index 0e7d23536d..c53f50c099 100755 --- a/tools/letter.pl +++ b/tools/letter.pl @@ -46,6 +46,7 @@ use C4::Auth; use C4::Context; use C4::Output; use C4::Letters; +use C4::Log; use Koha::Patron::Attribute::Types; @@ -315,6 +316,7 @@ sub add_validate { next; } elsif ( $letter and $letter->{message_transport_type} eq $mtt and $letter->{lang} eq $lang ) { + logaction('NOTICES', 'REPLACE', $letter->{id}, $letter->{content}, 'Intranet'); $dbh->do( q{ UPDATE letter @@ -326,11 +328,19 @@ sub add_validate { $branchcode, $oldmodule, $code, $mtt, $lang ); } else { - $dbh->do( - q{INSERT INTO letter (branchcode,module,code,name,is_html,title,content,message_transport_type, lang) VALUES (?,?,?,?,?,?,?,?,?)}, - undef, - $branchcode || '', $module, $code, $name, $is_html || 0, $title, $content, $mtt, $lang - ); + my $letter = Koha::Notice::Templates->new( + { + branchcode => $branchcode, + module => $module, + name => $name, + is_html => $is_html, + title => $title, + content => $content, + message_transport_type => $mtt, + lang => $lang + } + )->store; + logaction('NOTICES', 'CREATE', $letter->id, $letter->content, 'Intranet'); } } # set up default display -- 2.20.1