Changeset 4964

Timestamp:

11/02/09 06:21:40 (4 weeks ago)

Author:

takayama

Message:

* Fixed to run 33-ddl-postgres.t successfully. bugid:102786

Files:

• branches/greyhound/lib/MT/ObjectDriver/DDL/Pg.pm (modified) (2 diffs)

branches/greyhound/lib/MT/ObjectDriver/DDL/Pg.pm

@@ -108 +108 @@
     return undef if $sth->err;
     return undef unless %$attr;
+
+    my @key_column_names = $dbh->primary_key(undef, undef, $table_name);
+    my $key_columns = {};
+    foreach ( @key_column_names ) {
+        $key_columns->{$_} = 1;
+    }
 
     my $defs = {};
@@ -127 +133 @@
         }
         if ( $col->{PRIMARY_KEY} ) {
+            $defs->{$colname}{key} = 1;
+        } elsif ( exists $key_columns->{$field_prefix.'_'.$colname} ) {
             $defs->{$colname}{key} = 1;
         }