34 |
$dbs->unlimit; |
$dbs->unlimit; |
35 |
[{ |
[{ |
36 |
display_from => 'name', |
display_from => 'name', |
37 |
value_from => 'name', |
value_from => 'id', |
38 |
collection => $dbs, |
collection => $dbs, |
39 |
}]; |
}]; |
40 |
}; |
}; |
92 |
my $database = $self->argument_value('database'); |
my $database = $self->argument_value('database'); |
93 |
warn "database: $database\n"; |
warn "database: $database\n"; |
94 |
|
|
95 |
my $dbs = SQLSession::Model::DatabaseCollection->new; |
my $db = SQLSession::Model::Database->new; |
96 |
$dbs->limit( column => 'name', value => $database ); |
$db->load_by_cols( id => $database ) || |
97 |
my $db = $dbs->first || $self->result->error("Can't find database $database"); |
$self->result->error("Can't find database $database"); |
98 |
|
|
99 |
my $dbh = DBI->connect( $db->dsn, $db->login, $db->passwd ) || |
my $dbh = DBI->connect( $db->dsn, $db->login, $db->passwd ) || |
100 |
$self->result->error("Can't connect to " . $db->dsn . " as " . $db->login . "<br/>" . $DBI::errstr) && return 0; |
$self->result->error("Can't connect to " . $db->dsn . " as " . $db->login . "<br/>" . $DBI::errstr) && return 0; |