X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FProducer%2FSQLServer.pm;fp=lib%2FSQL%2FTranslator%2FProducer%2FSQLServer.pm;h=4dbfee00b45194cafe9d184bd87a3224bd411ace;hb=7a16a53e0db93fa50cd41e92afc53d82a90131eb;hp=ded928dea78349c5b51750b390968e8f9183034b;hpb=871f55d4c4da0cfdaa3364b065cf2aebb4c86f65;p=dbsrgits%2FSQL-Translator.git

diff --git a/lib/SQL/Translator/Producer/SQLServer.pm b/lib/SQL/Translator/Producer/SQLServer.pm
index ded928d..4dbfee0 100644
--- a/lib/SQL/Translator/Producer/SQLServer.pm
+++ b/lib/SQL/Translator/Producer/SQLServer.pm
@@ -135,26 +135,8 @@ sub produce {
 
         $output .= join( "\n\n",
             @comments,
-            qq[CREATE TABLE $table_name_ur (\n].
-              join( ",\n",
-                  map { "  $_" }
-                  # field defs
-                  ( map $future->field($_), $table->get_fields ),
-                  # constraint defs
-                  (map $future->enum_constraint($_->name, { $_->extra }->{list} || []),
-                     grep { 'enum' eq lc $_->data_type } $table->get_fields),
-
-                  (map $future->primary_key_constraint($_),
-                     grep { $_->type eq PRIMARY_KEY } $table->get_constraints),
-
-                  (map $future->unique_constraint_single($_),
-                     grep {
-                       $_->type eq UNIQUE &&
-                       !grep { $_->is_nullable } $_->fields
-                     } $table->get_constraints),
-              ).
-              "\n);",
             # index defs
+            $future->table($table),
             (map $future->unique_constraint_multiple($_),
                grep {
                   $_->type eq UNIQUE &&