don't set tableName on property elements if it is already specified

This commit is contained in:
Graham Knop 2009-10-22 09:32:12 -05:00
parent 0e94b4a783
commit 8b975cc810
2 changed files with 11 additions and 4 deletions

View file

@ -31,7 +31,7 @@ sub import {
if ( my $properties = $definition->{properties} ) {
my $table = $definition->{tableName};
for ( my $i = 1; $i < @{ $properties }; $i += 2) {
$properties->[$i]{tableName} = $table;
$properties->[$i]{tableName} ||= $table;
}
}