@@ -, +, @@ --- Koha/Notice/Message.pm | 34 +++++++++++++++++++ .../prog/en/modules/members/notices.tt | 2 +- 2 files changed, 35 insertions(+), 1 deletion(-) --- a/Koha/Notice/Message.pm +++ a/Koha/Notice/Message.pm @@ -32,6 +32,40 @@ Koha::Notice::Message - Koha notice message Object class, related to the message =cut +=head3 html_content + + my $wrapped_content = $message->html_content; + +This method returns the message content approprately wrapped +with html headers and css includes for html formatted notices. + +=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 %] --