%#
%# COPYRIGHT:
%#
-%# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2016 Best Practical Solutions, LLC
%# <sales@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
</%ARGS>
<%INIT>
+$BaseURL = $m->interp->apply_escapes($BaseURL, 'h');
+
$m->out(qq{<div class="paging">});
if ($Pages == 1) {
$m->out(loc('Page 1 of 1'));
}
else{
$m->out(loc('Page') . ' ');
-my $prev = $m->comp(
- '/Elements/QueryString',
- %$URLParams,
- Page => ( $CurrentPage - 1 )
- );
-my $next = $m->comp(
- '/Elements/QueryString',
- %$URLParams,
- Page => ( $CurrentPage + 1 )
- );
+my $prev = $m->interp->apply_escapes($m->comp(
+ '/Elements/QueryString',
+ %$URLParams,
+ Page => ( $CurrentPage - 1 )
+ ), 'h');
+my $next = $m->interp->apply_escapes($m->comp(
+ '/Elements/QueryString',
+ %$URLParams,
+ Page => ( $CurrentPage + 1 )
+ ), 'h');
my %show;
$show{1} = 1;
$show{$_} = 1 for (($CurrentPage - 2)..($CurrentPage + 2));
if ( $show{$number} ) {
$dots = undef;
my $qs =
- $m->comp( '/Elements/QueryString', %$URLParams, Page => $number );
- $m->out(qq{<span class="pagenum">});
+ $m->interp->apply_escapes($m->comp( '/Elements/QueryString', %$URLParams, Page => $number ), 'h');
+ $m->out(qq{<span class="pagenum">});
if ( $number == $CurrentPage ) {
$m->out(qq{<span class="currentpage">$number</span> });
}
$dots = 1;
$m->out(qq{<span class="dots">...</span>});
}
- $m->out(qq{</span>});
+ $m->out(qq{</span>});
}
if ($CurrentPage > 1) {