getRequestedUrl

This commit is contained in:
Matthew Wilson 2006-01-15 19:42:51 +00:00
parent f8de599f35
commit 83e071fde1

View file

@ -668,7 +668,7 @@ sub view {
} else { } else {
$sql .= "asset.lineage"; $sql .= "asset.lineage";
} }
my $currentPageUrl = $self->session->url->requestedUrl; my $currentPageUrl = $self->session->url->getRequestedUrl;
$p->setDataByQuery($sql, undef, undef, undef, "url", $currentPageUrl); $p->setDataByQuery($sql, undef, undef, undef, "url", $currentPageUrl);
foreach my $dataSet (@{$p->getPageData()}) { foreach my $dataSet (@{$p->getPageData()}) {
next unless ($dataSet->{className} eq "WebGUI::Asset::Post" || $dataSet->{className} eq "WebGUI::Asset::Post::Thread"); #handle non posts! next unless ($dataSet->{className} eq "WebGUI::Asset::Post" || $dataSet->{className} eq "WebGUI::Asset::Post::Thread"); #handle non posts!