oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

convert WebGUI to a mod perl handler

Browse source
This commit is contained in:
JT Smith 2005-11-03 09:14:23 +00:00
parent ec9d561c5a
commit 9b23c24a6a
13 changed files with 198 additions and 101 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/Post/Thread.pm
View file

@ -666,7 +666,7 @@ sub view {
} else {
$sql .= "asset.lineage";
}
my $currentPageUrl = $session{env}{PATH_INFO};
my $currentPageUrl = $session{env}{SCRIPT_NAME};
$currentPageUrl =~ s/^\///;
$p->setDataByQuery($sql, undef, undef, undef, "url", $currentPageUrl);
foreach my $dataSet (@{$p->getPageData()}) {