@@ -, +, @@ --- Koha/Notice/Message.pm | 29 +++++++++++++++++++ .../prog/en/modules/members/notices.tt | 2 +- 2 files changed, 30 insertions(+), 1 deletion(-) --- a/Koha/Notice/Message.pm +++ a/Koha/Notice/Message.pm @@ -32,6 +32,35 @@ Koha::Notice::Message - Koha notice message Object class, related to the message =cut +=head3 html_content + +=cut + +sub html_content { + my ($self) = @_; + + my $title = $self->subject; + my $content = $self->content; + my $css = C4::Context->preference("NoticeCSS") || ''; + $css = qq{} if $css; + + return < + + +$title + +$css + + +$content + + +EOS + +} + =head3 type =cut --- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/notices.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/notices.tt @@ -67,7 +67,7 @@ [% QUEUED_MESSAGE.subject | html %] [% IF QUEUED_MESSAGE.content_type.search('html') %] - + [% ELSE %] [% END %] --