comparison Lib/IMPL/SQL/Schema/Traits.pm @ 283:2f06250bab5f

*IMPL::SQL::MySQL fixed issues with foreign keys and drop table
author sergey
date Tue, 12 Feb 2013 18:43:32 +0400
parents 47db27ed5b43
children
comparison
equal deleted inserted replaced
282:68d905f8dc43 283:2f06250bab5f
538 } 538 }
539 539
540 sub CanApply { 540 sub CanApply {
541 my ($this,$schema) = @_; 541 my ($this,$schema) = @_;
542 542
543 my $table = $schema->GetTable($this->tableName); 543 my $table = $schema->GetTable($this->tableName)
544 or return 0;
544 545
545 my $constraint = $table->GetConstraint($this->constraintName) 546 my $constraint = $table->GetConstraint($this->constraintName)
546 or return 0; 547 or return 0;
547 548
548 # есть ли внешние ключи на данную таблицу 549 # есть ли внешние ключи на данную таблицу