+
+
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;
--