diff Lib/IMPL/SQL/Schema/Traits/mysql.pm @ 206:c8fe3f84feba

+IMPL::Web::Handlers::ViewSelector +IMPL::Web::Handlers::ErrorHandler *IMPL::Web::Handlers::RestController moved types mappings to ViewSelector
author sergey
date Thu, 03 May 2012 16:48:39 +0400
parents 76515373dac0
children 4ddb27ff4a0b
line wrap: on
line diff
--- a/Lib/IMPL/SQL/Schema/Traits/mysql.pm	Thu May 03 01:00:02 2012 +0400
+++ b/Lib/IMPL/SQL/Schema/Traits/mysql.pm	Thu May 03 16:48:39 2012 +0400
@@ -256,24 +256,24 @@
         push @sql, ');';
     }
     
-    return map { ("\t" x $level) . $_ } @sql;
+    return map { ("    " x $level) . $_ } @sql;
 }
 
 sub formatDropTable {
     my ($tableName,$level) = @_;
     
-    return "\t"x$level."DROP TABLE ".quote_names($tableName).";";
+    return "    "x$level."DROP TABLE ".quote_names($tableName).";";
 }
 
 sub formatTableTag {
     my ($tag,$level) = @_;
-    return map { "\t"x$level . "$_ = ".$tag->{$_} } grep {/^(ENGINE)$/i} keys %{$tag};
+    return map { "    "x$level . "$_ = ".$tag->{$_} } grep {/^(ENGINE)$/i} keys %{$tag};
 }
 
 sub formatColumn {
     my ($column,$level) = @_;
     $level ||= 0;
-    return "\t"x$level.quote_names($column->Name)." ".formatType($column->Type)." ".($column->CanBeNull ? 'NULL' : 'NOT NULL').($column->DefaultValue ? formatValueToType($column->DefaultValue,$column->Type) : '' ).($column->Tag ? ' '.join(' ',$column->Tag) : '');
+    return "    "x$level.quote_names($column->Name)." ".formatType($column->Type)." ".($column->CanBeNull ? 'NULL' : 'NOT NULL').($column->DefaultValue ? formatValueToType($column->DefaultValue,$column->Type) : '' ).($column->Tag ? ' '.join(' ',$column->Tag) : '');
 }
 
 sub formatType {
@@ -306,11 +306,11 @@
     my $columns = join(',',map quote_names($_->Name),@{$constraint->Columns});
     
     if (ref $constraint eq 'IMPL::SQL::Schema::Constraint::PrimaryKey') {
-        return "\t"x$level."PRIMARY KEY ($columns)";
+        return "    "x$level."PRIMARY KEY ($columns)";
     } elsif ($constraint eq 'IMPL::SQL::Schema::Constraint::Unique') {
-        return "\t"x$level."UNIQUE $name ($columns)";
+        return "    "x$level."UNIQUE $name ($columns)";
     } elsif ($constraint eq 'IMPL::SQL::Schema::Constraint::Index') {
-        return "\t"x$level."INDEX $name ($columns)";
+        return "    "x$level."INDEX $name ($columns)";
     } else {
         die new IMPL::InvalidArgumentException('The unknown constraint', ref $constraint);
     }
@@ -329,7 +329,7 @@
     my $refname = quote_names($constraint->ReferencedPrimaryKey->Table->Name);
     my $refcolumns = join(',',map quote_names($_->Name),@{$constraint->ReferencedPrimaryKey->Columns});
     return (
-        "\t"x$level.
+        "    "x$level.
         "CONSTRAINT $name FOREIGN KEY $name ($columns) REFERENCES $refname ($refcolumns)".
         ($constraint->OnUpdate ? 'ON UPDATE'.$constraint->OnUpdate : '').
         ($constraint->OnDelete ? 'ON DELETE'.$constraint->OnDelete : '')
@@ -339,13 +339,13 @@
 sub formatAlterTableRename {
     my ($oldName,$newName,$level) = @_;
     
-    return "\t"x$level."ALTER TABLE ".quote_names($oldName)." RENAME TO ".quote_names($newName).";";
+    return "    "x$level."ALTER TABLE ".quote_names($oldName)." RENAME TO ".quote_names($newName).";";
 }
 
 sub formatAlterTableDropColumn {
     my ($tableName, $columnName,$level) = @_;
     
-    return "\t"x$level."ALTER TABLE ".quote_names($tableName)." DROP COLUMN ".quote_names($columnName).";";
+    return "    "x$level."ALTER TABLE ".quote_names($tableName)." DROP COLUMN ".quote_names($columnName).";";
 }
 
 =pod
@@ -356,7 +356,7 @@
     
     my $posSpec = $pos == 0 ? 'FIRST' : 'AFTER '.quote_names($table->ColumnAt($pos-1)->Name);
     
-    return "\t"x$level."ALTER TABLE ".quote_names($tableName)." ADD COLUMN ".formatColumn($column) .' '. $posSpec.";";
+    return "    "x$level."ALTER TABLE ".quote_names($tableName)." ADD COLUMN ".formatColumn($column) .' '. $posSpec.";";
 }
 
 =pod
@@ -365,7 +365,7 @@
 sub formatAlterTableChangeColumn {
     my ($tableName,$column,$table,$pos,$level) = @_;
     my $posSpec = $pos == 0 ? 'FIRST' : 'AFTER '.quote_names($table->ColumnAt($pos-1)->Name);
-    return "\t"x$level."ALTER TABLE ".quote_names($tableName)." MODIFY COLUMN ".formatColumn($column).' '. $posSpec.";";
+    return "    "x$level."ALTER TABLE ".quote_names($tableName)." MODIFY COLUMN ".formatColumn($column).' '. $posSpec.";";
 }
 
 =pod
@@ -383,7 +383,7 @@
     } else {
         die new IMPL::Exception("The unknow type of the constraint",ref $constraint);
     }
-    return "\t"x$level."ALTER TABLE ".quote_names($tableName)." DROP $constraintName;";
+    return "    "x$level."ALTER TABLE ".quote_names($tableName)." DROP $constraintName;";
 }
 
 =pod
@@ -392,7 +392,7 @@
 sub formatAlterTableAddConstraint {
     my ($tableName,$constraint,$level) = @_;
     
-    return "\t"x$level."ALTER TABLE ".quote_names($tableName)." ADD ".formatConstraint($constraint,0).';';
+    return "    "x$level."ALTER TABLE ".quote_names($tableName)." ADD ".formatConstraint($constraint,0).';';
 }
 
 sub CreateTable {