my $uk_col = $self->_lc($raw_rel->[3]);
my $fk_scm = $raw_rel->[5];
my $fk_col = $self->_lc($raw_rel->[7]);
+ my $key_seq = $raw_rel->[8] - 1;
my $relid = ($raw_rel->[11] || ( "__dcsld__" . $i++ ));
foreach my $var ($uk_scm, $uk_tbl, $uk_col, $fk_scm, $fk_col, $relid) {
ignore_schema => 1
)),
);
- $rels{$relid}{cols}{$uk_col} = $fk_col;
+
+ # Add this data IN ORDER
+ $rels{$relid}{rcols}[$key_seq] = $uk_col;
+ $rels{$relid}{lcols}[$key_seq] = $fk_col;
}
$sth->finish;
my @rels;
foreach my $relid (keys %rels) {
push(@rels, {
- remote_columns => [ keys %{$rels{$relid}->{cols}} ],
- local_columns => [ values %{$rels{$relid}->{cols}} ],
+ remote_columns => $rels{$relid}{rcols},
+ local_columns => $rels{$relid}{lcols},
remote_table => $rels{$relid}->{tbl},
});
}