Lines 21-26
Link Here
|
21 |
|
21 |
|
22 |
use Modern::Perl; |
22 |
use Modern::Perl; |
23 |
use CGI qw ( -utf8 ); |
23 |
use CGI qw ( -utf8 ); |
|
|
24 |
use URI::Escape qw( uri_escape_utf8 ); |
24 |
use C4::Output; |
25 |
use C4::Output; |
25 |
use C4::Auth; |
26 |
use C4::Auth; |
26 |
use C4::Koha; |
27 |
use C4::Koha; |
Lines 75-80
my $pending_article_requests = Koha::ArticleRequests->search_limited(
Link Here
|
75 |
} |
76 |
} |
76 |
)->count; |
77 |
)->count; |
77 |
|
78 |
|
|
|
79 |
warn $query->param('a_var'); |
80 |
my $var = "a_var"; |
81 |
my $value = "a<v&al=>"; |
78 |
$template->param( |
82 |
$template->param( |
79 |
pendingcomments => $pendingcomments, |
83 |
pendingcomments => $pendingcomments, |
80 |
pendingtags => $pendingtags, |
84 |
pendingtags => $pendingtags, |
Lines 82-87
$template->param(
Link Here
|
82 |
pending_borrower_modifications => $pending_borrower_modifications, |
86 |
pending_borrower_modifications => $pending_borrower_modifications, |
83 |
pending_discharge_requests => $pending_discharge_requests, |
87 |
pending_discharge_requests => $pending_discharge_requests, |
84 |
pending_article_requests => $pending_article_requests, |
88 |
pending_article_requests => $pending_article_requests, |
|
|
89 |
p_1 => "$var=$value", |
90 |
p_2 => { var => $var, value => $value, }, |
91 |
p_3 => { var => uri_escape_utf8($var), value => uri_escape_utf8($value), }, |
85 |
); |
92 |
); |
86 |
|
93 |
|
87 |
output_html_with_http_headers $query, $cookie, $template->output; |
94 |
output_html_with_http_headers $query, $cookie, $template->output; |
88 |
- |
|
|