3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.25 2003/01/19 02:30:05 joko |
7 |
|
# + fix: modified call to '_initSchema' |
8 |
|
# |
9 |
# Revision 1.24 2002/12/22 14:13:01 joko |
# Revision 1.24 2002/12/22 14:13:01 joko |
10 |
# + sub dropDb |
# + sub dropDb |
11 |
# |
# |
169 |
my $self = shift; |
my $self = shift; |
170 |
|
|
171 |
my $dsn = shift; |
my $dsn = shift; |
172 |
|
|
173 |
|
#print Dumper($self); |
174 |
|
#exit; |
175 |
|
|
176 |
|
# TODO: re-enable |
177 |
$dsn ||= $self->{locator}->{dbi}->{dsn}; |
$dsn ||= $self->{locator}->{dbi}->{dsn}; |
|
|
|
178 |
$logger->debug( __PACKAGE__ . "->connect( dsn $dsn )" ); |
$logger->debug( __PACKAGE__ . "->connect( dsn $dsn )" ); |
179 |
|
|
180 |
#my $storage = Tangram::Relational->connect( $schema, $dsn ); |
#my $storage = Tangram::Relational->connect( $schema, $dsn ); |
186 |
# return; |
# return; |
187 |
# } |
# } |
188 |
|
|
189 |
return unless $self->_initSchema(); |
#return unless $self->_initSchema(); |
190 |
|
$self->_initSchema(); |
191 |
|
|
192 |
# create the main tangram storage object |
# create the main tangram storage object |
193 |
#$self->{COREHANDLE} = Tangram::Relational->connect( $schema, $dsn ); |
#$self->{COREHANDLE} = Tangram::Relational->connect( $schema, $dsn ); |