Fixed a bug where under certain versions of Perl, on SQL Reports that used the ^FormParam(); macro, the pagination function would sometimes fail.
This commit is contained in:
parent
0177032bb8
commit
cb0b2e74dc
1 changed files with 2 additions and 1 deletions
|
|
@ -183,7 +183,8 @@ sub www_view {
|
||||||
$url = WebGUI::URL::page();
|
$url = WebGUI::URL::page();
|
||||||
foreach (keys %{$session{form}}) {
|
foreach (keys %{$session{form}}) {
|
||||||
unless ($_ eq "pn") {
|
unless ($_ eq "pn") {
|
||||||
$url = WebGUI::URL::append($url, WebGUI::URL::escape($_.'='.$session{form}{$_}));
|
$url = WebGUI::URL::append($url, WebGUI::URL::escape($_)
|
||||||
|
.'='.WebGUI::URL::escape($session{form}{$_}));
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
$p = WebGUI::Paginator->new($url,\@row,$_[0]->get("paginateAfter"));
|
$p = WebGUI::Paginator->new($url,\@row,$_[0]->get("paginateAfter"));
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue