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

added getTables()

Browse source
This commit is contained in:
JT Smith 2009-10-22 15:03:38 -05:00
parent 96c8a7a47e
commit 95ecfc0adf
4 changed files with 75 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/AssetLineage.pm
View file

@ -617,10 +617,9 @@ sub getLineageSql {
if ( ! eval { require $module; 1 }) {
$self->session->errorHandler->fatal("Couldn't compile asset package: ".$className.". Root cause: ".$@) if ($@);
}
foreach my $definition (@{$className->definition($self->session)}) {
unless ($definition->{tableName} eq "asset" || $definition->{tableName} eq "assetData") {
my $tableName = $definition->{tableName};
$tables .= " left join $tableName on assetData.assetId=".$tableName.".assetId and assetData.revisionDate=".$tableName.".revisionDate";
foreach my $table ($self->getTables) {
unless ($table eq "asset" || $table eq "assetData") {
$tables .= " left join $table on assetData.assetId=".$table.".assetId and assetData.revisionDate=".$table.".revisionDate";
}
}
}