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

convert AssetLineage from stringy to blocky eval

Browse source
This commit is contained in:
Colin Kuskie 2007-12-24 06:50:02 +00:00
parent c8a1bb6a7c
commit 53b7a7bfcb
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/AssetLineage.pm
View file

@ -390,9 +390,13 @@ sub getLineage {
my $tables = "asset left join assetData on asset.assetId=assetData.assetId "; my $tables = "asset left join assetData on asset.assetId=assetData.assetId ";
if (exists $rules->{joinClass}) { if (exists $rules->{joinClass}) {
my $className = $rules->{joinClass}; my $className = $rules->{joinClass};
my $cmd = "use ".$className; my $file = $className;
eval ($cmd); $file =~ s{::}{/}g;
$self->session->errorHandler->fatal("Couldn't compile asset package: ".$className.". Root cause: ".$@) if ($@); $file .= '.pm';
if (!exists $INC{ $file }) { ##Alread loaded?
eval{ require $file };
$self->session->errorHandler->fatal("Couldn't compile asset package: ".$className.". Root cause: ".$@) if ($@);
}
foreach my $definition (@{$className->definition($self->session)}) { foreach my $definition (@{$className->definition($self->session)}) {
unless ($definition->{tableName} eq "asset") { unless ($definition->{tableName} eq "asset") {
my $tableName = $definition->{tableName}; my $tableName = $definition->{tableName};