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

Rework get_tables to check each and every property.

Browse source
This commit is contained in:
Colin Kuskie 2010-03-04 16:08:30 -08:00
parent 006bda8dd0
commit 053b5a869e
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Definition/Meta/Asset.pm
View file

@ -76,13 +76,12 @@ Returns an array of the names of all tables in every class used by this class.
=cut
sub get_tables {
my $self = shift;
my @tables = ();
my %seen = ();
push @tables,
my $self = shift;
my %seen = ();
my @tables =
grep { ! $seen{$_}++ }
map { $_->tableName }
$self->get_all_class_metas
$self->get_all_properties
;
return @tables;
}