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

fixed a bunch of bugs...almost working

Browse source
This commit is contained in:
JT Smith 2009-10-23 11:07:02 -05:00
parent 509c2d64ee
commit 377c49d141
4 changed files with 17 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -50,7 +50,6 @@ sub import {
}
}
}
$class->_install($super, 'getTables', $class->_gen_getTables());
# WebGUI::Definition->import uses caller, so avoid the extra entry in the call stack
my $next = $class->next::can;
@ -58,6 +57,12 @@ sub import {
goto $next;
}
#-------------------------------------------------------------------
sub _build {
my ($class, $super, $caller, $definition) = @_;
$class->_install($super, 'getTables', $class->_gen_getTables());
}
#-------------------------------------------------------------------
sub _gen_getTables {
my $class = shift;
@ -66,7 +71,7 @@ sub _gen_getTables {
my %tables;
foreach my $property ($self->getProperties) {
my $definition = $self->getProperty($property);
%tables{$definition->{tableName}} = 1;
$tables{$definition->{tableName}} = 1;
}
return keys %tables;
};