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

Asset definitions use tableName, not table_name

Browse source
This commit is contained in:
Graham Knop 2009-10-13 14:31:01 -05:00
parent 34182a39ee
commit 89b7ecdf5b
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -28,11 +28,13 @@ sub import {
} }
my $definition = (@_ == 1 && ref $_[0]) ? $_[0] : { @_ }; my $definition = (@_ == 1 && ref $_[0]) ? $_[0] : { @_ };
if ( my $properties = $definition->{properties} ) { if ( my $properties = $definition->{properties} ) {
my $table = $definition->{table_name}; my $table = $definition->{tableName};
for ( my $i = 1; $i < @{ $properties }; $i += 2) { for ( my $i = 1; $i < @{ $properties }; $i += 2) {
$propeties->[$i]{table_name} = $table; $propeties->[$i]{tableName} = $table;
} }
} }
# WebGUI::Definition->import uses caller, so avoid the extra entry in the call stack
my $next = $class->next::can; my $next = $class->next::can;
@_ = ($class, $definition); @_ = ($class, $definition);
goto $next; goto $next;