use DBIx::Class::Schema::Loader::Table::Sybase ();
-our $VERSION = '0.07027';
+our $VERSION = '0.07036';
=head1 NAME
=cut
+# SQL Server 2000: Ancient as time itself, but still out in the wild
+sub _is_2k {
+ return shift->schema->storage->_server_info->{normalized_dbms_version} < 9;
+}
+
sub _system_databases {
return (qw/
master model tempdb msdb
/);
}
-sub _owners {
+sub _schemas {
my ($self, $db) = @_;
- my $owners = $self->dbh->selectcol_arrayref(<<"EOF");
+ my $owners = $self->dbh->selectcol_arrayref($self->_is_2k ? <<"EOF2K" : <<"EOF");
SELECT name
FROM [$db].dbo.sysusers
WHERE uid <> gid
+EOF2K
+SELECT name
+FROM [$db].sys.schemas
EOF
return grep !/^(?:#|guest|INFORMATION_SCHEMA|sys)/, @$owners;
}
+sub _current_schema {
+ my $self = shift;
+
+ if ($self->_is_2k) {
+ return ($self->dbh->selectrow_array('SELECT user_name()'))[0];
+ }
+
+ return ($self->dbh->selectrow_array('SELECT schema_name()'))[0];
+}
+
sub _current_db {
my $self = shift;
return ($self->dbh->selectrow_array('SELECT db_name()'))[0];
}
else {
if ($db ne $current_db) {
- $self->dbh->do("USE [$db]");
+ $self->_switch_db($db);
$self->qualify_objects(1);
}
}
elsif (ref $self->db_schema eq 'ARRAY' || (not defined $self->db_schema)) {
my $owners = $self->db_schema;
- $owners ||= [ $self->dbh->selectrow_array('SELECT user_name()') ];
+ $owners ||= [ $self->_current_schema ];
$self->qualify_objects(1) if @$owners > 1;
foreach my $db (keys %{ $self->db_schema }) {
if ($self->db_schema->{$db} eq '%') {
- $self->db_schema->{$db} = [ $self->_owners($db) ];
+ $self->db_schema->{$db} = [ $self->_schemas($db) ];
$self->qualify_objects(1);
}
my $db = $table->database;
my $sth = $self->dbh->prepare(<<"EOF");
-SELECT rc.constraint_name, rc.unique_constraint_schema, uk_tc.table_name, fk_kcu.column_name, uk_kcu.column_name
+SELECT rc.constraint_name, rc.unique_constraint_schema, uk_tc.table_name,
+ fk_kcu.column_name, uk_kcu.column_name, rc.delete_rule, rc.update_rule
FROM [$db].INFORMATION_SCHEMA.TABLE_CONSTRAINTS fk_tc
JOIN [$db].INFORMATION_SCHEMA.REFERENTIAL_CONSTRAINTS rc
ON rc.constraint_name = fk_tc.constraint_name
my %rels;
- while (my ($fk, $remote_schema, $remote_table, $col, $remote_col) = $sth->fetchrow_array) {
+ while (my ($fk, $remote_schema, $remote_table, $col, $remote_col,
+ $delete_rule, $update_rule) = $sth->fetchrow_array) {
push @{ $rels{$fk}{local_columns} }, $self->_lc($col);
push @{ $rels{$fk}{remote_columns} }, $self->_lc($remote_col);
database => $db,
schema => $remote_schema,
) unless exists $rels{$fk}{remote_table};
+
+ $rels{$fk}{attrs} ||= {
+ on_delete => uc $delete_rule,
+ on_update => uc $update_rule,
+ is_deferrable => 1 # constraints can be temporarily disabled, but DEFERRABLE is not supported
+ };
}
return [ values %rels ];
my $result = $self->next::method(@_);
- # SQL Server: Ancient as time itself, but still out in the wild
- my $is_2k = $self->schema->storage->_server_info->{normalized_dbms_version} < 9;
-
# get type info (and identity)
- my $rows = $self->dbh->selectall_arrayref($is_2k ? <<"EOF2K" : <<"EOF");
+ my $rows = $self->dbh->selectall_arrayref($self->_is_2k ? <<"EOF2K" : <<"EOF");
SELECT c.column_name, c.character_maximum_length, c.data_type, c.datetime_precision, c.column_default, (sc.status & 0x80) is_identity
FROM [$db].INFORMATION_SCHEMA.COLUMNS c
JOIN [$db].dbo.sysusers ss ON