@@ -, +, @@ --- Koha/Notice/Message.pm | 35 ++++++++++++++++++- .../prog/en/modules/members/notices.tt | 2 +- 2 files changed, 35 insertions(+), 2 deletions(-) --- a/Koha/Notice/Message.pm +++ a/Koha/Notice/Message.pm @@ -17,7 +17,6 @@ package Koha::Notice::Message; use Modern::Perl; - use Koha::Database; use base qw(Koha::Object); @@ -32,6 +31,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 %] --