Mercurial > pub > Impl
diff Lib/IMPL/SQL/Schema/Traits.pm @ 272:47db27ed5b43
sync
author | sergey |
---|---|
date | Mon, 28 Jan 2013 17:24:37 +0400 |
parents | 56364d0c4b4f |
children | 2f06250bab5f |
line wrap: on
line diff
--- a/Lib/IMPL/SQL/Schema/Traits.pm Mon Jan 28 02:43:14 2013 +0400 +++ b/Lib/IMPL/SQL/Schema/Traits.pm Mon Jan 28 17:24:37 2013 +0400 @@ -473,23 +473,18 @@ return 0 if grep not($_), @columns; if (is($constraint,FK)) { - warn "FK"; my $foreignTable = $schema->GetTable($constraint->{foreignTable}) or return 0; - warn "Table OK"; my @foreignColumns = map $foreignTable->GetColumn($_), @{$constraint->{foreignColumns}||[]}; # внешняя таблица имеет нужные столбцы return 0 if grep not($_), @foreignColumns; - - warn "FK Columns OK"; - + + # типы столбцов во внешней таблице совпадают с типами столбцов ограничения return 0 if grep not($columns[$_]->type->SameValue($foreignColumns[$_]->type)), (0 .. $#columns); - - warn "FK Columns types OK"; } return 1;