3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.42 2003/07/01 23:24:17 joko |
7 |
|
# now using package before using function |
8 |
|
# |
9 |
|
# Revision 1.41 2003/06/29 02:03:45 joko |
10 |
|
# fix:? initialize schema on startup |
11 |
|
# |
12 |
# Revision 1.40 2003/06/25 22:57:54 joko |
# Revision 1.40 2003/06/25 22:57:54 joko |
13 |
# 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" |
14 |
# |
# |
169 |
|
|
170 |
use Data::Dumper; |
use Data::Dumper; |
171 |
use Tangram; |
use Tangram; |
172 |
|
use Class::Tangram; |
173 |
|
|
174 |
use DesignPattern::Object; |
use DesignPattern::Object; |
175 |
use Data::Storage::Result::Tangram; |
use Data::Storage::Result::Tangram; |
197 |
#if (!$schema_tangram) { |
#if (!$schema_tangram) { |
198 |
#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} } ); |
199 |
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} } ); |
200 |
$schema_tangram = $obj->getSchema(); |
$schema_tangram = $obj->getSchema() if $obj; |
201 |
#} |
#} |
202 |
if (!$schema_tangram) { |
if (!$schema_tangram) { |
203 |
$logger->error( __PACKAGE__ . "->_initSchema: No Schema available for $self->{schema}" ); |
$logger->error( __PACKAGE__ . "->_initSchema: No Schema available for $self->{locator}->{schema}." ); |
204 |
return 0; |
return 0; |
205 |
} |
} |
206 |
#$self->_patchSchema(); |
#$self->_patchSchema(); |
246 |
# return; |
# return; |
247 |
# } |
# } |
248 |
|
|
249 |
#return unless $self->_initSchema(); |
return unless $self->_initSchema(); |
250 |
$self->_initSchema(); |
#$self->_initSchema(); |
251 |
|
|
252 |
# create the main tangram storage object |
# create the main tangram storage object |
253 |
#$self->{COREHANDLE} = Tangram::Relational->connect( $schema, $dsn ); |
#$self->{COREHANDLE} = Tangram::Relational->connect( $schema, $dsn ); |