@@ -, +, @@ --- koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt | 11 +++++++++++ mainpage.pl | 7 +++++++ 2 files changed, 18 insertions(+) --- a/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt @@ -16,6 +16,17 @@
+ +p_1 raw +p_1 html +p_1 uri +p_1 url +p_2 html +p_2 uri +p_2 url +p_3 url + + [% IF ( koha_news_count ) %]

News

--- a/mainpage.pl +++ a/mainpage.pl @@ -21,6 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); +use URI::Escape qw( uri_escape_utf8 ); use C4::Output; use C4::Auth; use C4::Koha; @@ -75,6 +76,9 @@ my $pending_article_requests = Koha::ArticleRequests->search_limited( } )->count; +warn $query->param('a_var'); +my $var = "a_var"; +my $value = "a"; $template->param( pendingcomments => $pendingcomments, pendingtags => $pendingtags, @@ -82,6 +86,9 @@ $template->param( pending_borrower_modifications => $pending_borrower_modifications, pending_discharge_requests => $pending_discharge_requests, pending_article_requests => $pending_article_requests, + p_1 => "$var=$value", + p_2 => { var => $var, value => $value, }, + p_3 => { var => uri_escape_utf8($var), value => uri_escape_utf8($value), }, ); output_html_with_http_headers $query, $cookie, $template->output; --