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;