... | ... |
@@ -317,6 +317,7 @@ sub each_column { |
317 | 317 |
eval {$sth_columns = $self->dbh->column_info(undef, $schema, $table, '%')}; |
318 | 318 |
next if $@; |
319 | 319 |
while (my $column_info = $sth_columns->fetchrow_hashref) { |
320 |
+ $DB::single = 1; |
|
320 | 321 |
my $column = $column_info->{COLUMN_NAME}; |
321 | 322 |
$self->$cb($table, $column, $column_info); |
322 | 323 |
} |
... | ... |
@@ -1126,10 +1127,10 @@ sub setup_model { |
1126 | 1127 |
$self->each_column( |
1127 | 1128 |
sub { |
1128 | 1129 |
my ($self, $table, $column, $column_info) = @_; |
1129 |
- my $database = $column_info->{TABLE_SCHEM}; |
|
1130 |
- return if exists $opt{database} && $opt{database} ne $database; |
|
1130 |
+ my $schema = $column_info->{TABLE_SCHEM}; |
|
1131 |
+ return if exists $opt{database} && $opt{database} ne $schema; |
|
1131 | 1132 |
|
1132 |
- $table = "$database.$table" if exists $opt{prefix}; |
|
1133 |
+ $table = "$schema.$table" if exists $opt{prefix}; |
|
1133 | 1134 |
if (my $model = $self->models->{$table}) { |
1134 | 1135 |
push @{$model->columns}, $column; |
1135 | 1136 |
} |
... | ... |
@@ -1217,11 +1218,11 @@ sub type_rule { |
1217 | 1218 |
$filter = $self->filters->{$fname}; |
1218 | 1219 |
} |
1219 | 1220 |
|
1220 |
- my $database = $column_info->{TABLE_SCHEM}; |
|
1221 |
+ my $schema = $column_info->{TABLE_SCHEM}; |
|
1221 | 1222 |
$self->{"_$into"}{key}{$table}{$column} = $filter; |
1222 | 1223 |
$self->{"_$into"}{dot}{"$table.$column"} = $filter; |
1223 |
- $self->{"_$into"}{key}{"$database.$table"}{$column} = $filter; |
|
1224 |
- $self->{"_$into"}{dot}{"$database.$table.$column"} = $filter; |
|
1224 |
+ $self->{"_$into"}{key}{"$schema.$table"}{$column} = $filter; |
|
1225 |
+ $self->{"_$into"}{dot}{"$schema.$table.$column"} = $filter; |
|
1225 | 1226 |
} |
1226 | 1227 |
}); |
1227 | 1228 |
} |
... | ... |
@@ -3961,7 +3961,6 @@ $dbi->setup_model(@$setup_model_args); |
3961 | 3961 |
$dbi->execute("insert into $table1 ($key1, $key2) values (1, 2)"); |
3962 | 3962 |
$dbi->execute("insert into $table2 ($key1, $key3) values (1, 4)"); |
3963 | 3963 |
$model = $dbi->model($table1); |
3964 |
-$DB::single = 1; |
|
3965 | 3964 |
$result = $model->select( |
3966 | 3965 |
column => [ |
3967 | 3966 |
$model->column($table2, {alias => u$table2_alias}) |