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:
JT Smith 2002-09-13 02:28:43 +00:00
parent 0177032bb8
commit cb0b2e74dc

View file

@ -183,7 +183,8 @@ sub www_view {
$url = WebGUI::URL::page();
foreach (keys %{$session{form}}) {
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"));