Mercurial > pub > Impl
diff Lib/IMPL/SQL/Schema/TraitsOld.pm @ 180:d1676be8afcc
Перекодировка в utf-8
author | sourcer |
---|---|
date | Fri, 30 Dec 2011 23:40:00 +0300 |
parents | 4267a2ac3d46 |
children |
line wrap: on
line diff
--- a/Lib/IMPL/SQL/Schema/TraitsOld.pm Tue Dec 20 23:00:30 2011 +0300 +++ b/Lib/IMPL/SQL/Schema/TraitsOld.pm Fri Dec 30 23:40:00 2011 +0300 @@ -78,8 +78,8 @@ my $i = 0; my %dstColumns = map { $_->Name, $i++} @{$dstTable->Columns} ; - # - # + # сначала удаляем столбцы + # потом добавляем недостающие и изменяем столбцы в нужном порядке my @columnsToUpdate; @@ -175,7 +175,7 @@ sub CreateTable { my ($this,$tbl) = @_; - # , + # создаем таблицу, кроме внешних ключей $this->{$Handler}->CreateTable($tbl,skip_foreign_keys => 1); $this->{$TableInfo}->{$tbl->Name}->{'State'} = STATE_CREATED; @@ -237,8 +237,8 @@ sub AddConstraint { my ($this,$constraint) = @_; - # , - # ( ) + # перед добавлением ограничения нужно убедиться в том, что созданы все необходимые столбцы и сопутствующие + # ограничения (например первичные ключи) my $pending;