From de77802693ae73147565df4ea751476e4f6823d7 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 30 Jul 2001 10:00:23 +0000
Subject: [PATCH] primary key Pg fix

---
 DBSchema/Table.pm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/DBSchema/Table.pm b/DBSchema/Table.pm
index e4bc2dd..96618b5 100644
--- a/DBSchema/Table.pm
+++ b/DBSchema/Table.pm
@@ -374,20 +374,24 @@ sub sql_create_table {
   }
   #eofalse
 
+#should be in the DBD somehwere :/
+#  my $saved_pkey = '';
 #  if ( $driver eq 'Pg' && $self->primary_key ) {
 #    my $pcolumn = $self->column( (
 #      grep { $self->column($_)->name eq $self->primary_key } $self->columns
 #    )[0] );
-#    $pcolumn->type('serial') if lc($pcolumn->type) eq 'integer';
-##    $pcolumn->local( $pcolumn->local. ' PRIMARY KEY' );
-##    $self->primary_key('');
-#    #prolly shoudl change it back afterwords :/
+##AUTO-INCREMENT#    $pcolumn->type('serial') if lc($pcolumn->type) eq 'integer';
+#    $pcolumn->local( $pcolumn->local. ' PRIMARY KEY' );
+#    #my $saved_pkey = $self->primary_key;
+#    #$self->primary_key('');
+#    #change it back afterwords :/
 #  }
 
   my(@columns)=map { $self->column($_)->line($dbh) } $self->columns;
 
   push @columns, "PRIMARY KEY (". $self->primary_key. ")"
-    if $self->primary_key && $driver ne 'Pg';
+    #if $self->primary_key && $driver ne 'Pg';
+    if $self->primary_key;
 
   my $indexnum = 1;
 
@@ -411,6 +415,7 @@ sub sql_create_table {
                } $self->index->sql_list
     if $self->index;
 
+  #$self->primary_key($saved_pkey) if $saved_pkey;
   $dbh->disconnect if $created_dbh;
   @r;
 }
-- 
2.11.0