3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.41 2003/06/29 02:03:45 joko |
7 |
|
# fix:? initialize schema on startup |
8 |
|
# |
9 |
# Revision 1.40 2003/06/25 22:57:54 joko |
# Revision 1.40 2003/06/25 22:57:54 joko |
10 |
# major rework of "sub sendQuery / sub getListFiltered": now should be capable of "sorting" |
# major rework of "sub sendQuery / sub getListFiltered": now should be capable of "sorting" |
11 |
# |
# |
193 |
#if (!$schema_tangram) { |
#if (!$schema_tangram) { |
194 |
#my $obj = getNewPerlObjectByPkgName($self->{locator}->{schema}, { EXPORT_OBJECTS => $self->{locator}->{classnames}, want_transactions => $self->{locator}->{want_transactions} } ); |
#my $obj = getNewPerlObjectByPkgName($self->{locator}->{schema}, { EXPORT_OBJECTS => $self->{locator}->{classnames}, want_transactions => $self->{locator}->{want_transactions} } ); |
195 |
my $obj = DesignPattern::Object->fromPackage($self->{locator}->{schema}, { 'EXPORT_OBJECTS' => $self->{locator}->{classnames}, 'want_transactions' => $self->{locator}->{want_transactions} } ); |
my $obj = DesignPattern::Object->fromPackage($self->{locator}->{schema}, { 'EXPORT_OBJECTS' => $self->{locator}->{classnames}, 'want_transactions' => $self->{locator}->{want_transactions} } ); |
196 |
$schema_tangram = $obj->getSchema(); |
$schema_tangram = $obj->getSchema() if $obj; |
197 |
#} |
#} |
198 |
if (!$schema_tangram) { |
if (!$schema_tangram) { |
199 |
$logger->error( __PACKAGE__ . "->_initSchema: No Schema available for $self->{schema}" ); |
$logger->error( __PACKAGE__ . "->_initSchema: No Schema available for $self->{locator}->{schema}." ); |
200 |
return 0; |
return 0; |
201 |
} |
} |
202 |
#$self->_patchSchema(); |
#$self->_patchSchema(); |
242 |
# return; |
# return; |
243 |
# } |
# } |
244 |
|
|
245 |
#return unless $self->_initSchema(); |
return unless $self->_initSchema(); |
246 |
$self->_initSchema(); |
#$self->_initSchema(); |
247 |
|
|
248 |
# create the main tangram storage object |
# create the main tangram storage object |
249 |
#$self->{COREHANDLE} = Tangram::Relational->connect( $schema, $dsn ); |
#$self->{COREHANDLE} = Tangram::Relational->connect( $schema, $dsn ); |