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 =cut
sub get_tables { sub get_tables {
my $self = shift; my $self = shift;
my @tables = (); my %seen = ();
my %seen = (); my @tables =
push @tables,
grep { ! $seen{$_}++ } grep { ! $seen{$_}++ }
map { $_->tableName } map { $_->tableName }
$self->get_all_class_metas $self->get_all_properties
; ;
return @tables; return @tables;
} }