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