2 |
## $Id$ |
## $Id$ |
3 |
## ---------------------------------------------------------------------- |
## ---------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.5 2004/06/19 01:51:21 joko |
6 |
|
## don't do any "Task"-handling (would require db "oefcore") |
7 |
|
## |
8 |
|
## Revision 1.4 2003/12/03 00:21:38 joko |
9 |
|
## + minor fix to '_bootDatabases': instantiate the DSC-container if no ref to it exists |
10 |
|
## |
11 |
## Revision 1.3 2003/06/06 03:14:16 joko |
## Revision 1.3 2003/06/06 03:14:16 joko |
12 |
## enhanced database connection bootstrapping: |
## enhanced database connection bootstrapping: |
13 |
## - boot default ones |
## - boot default ones |
68 |
#$self->{boot} = BizWorks::Boot->new( use_databases => [qw( oefcore )] ); |
#$self->{boot} = BizWorks::Boot->new( use_databases => [qw( oefcore )] ); |
69 |
#$self->{app}->{use_databases} =|| [qw( oefcore )]; |
#$self->{app}->{use_databases} =|| [qw( oefcore )]; |
70 |
$self->_bootDatabases(); |
$self->_bootDatabases(); |
71 |
|
|
72 |
|
return; |
73 |
|
|
74 |
# if no "guid" is given .... |
# if no "guid" is given .... |
75 |
if (!$self->{guid}) { |
if (!$self->{guid}) { |
149 |
|
|
150 |
# FIXME: CACHE THIS! JUST BOOT STORAGES INTO CONTAINER IF NOT ALREADY DONE! |
# FIXME: CACHE THIS! JUST BOOT STORAGES INTO CONTAINER IF NOT ALREADY DONE! |
151 |
# WATCH OUT FOR GLOBAL USED RESOURCES! |
# WATCH OUT FOR GLOBAL USED RESOURCES! |
152 |
$self->{DSC} ||= DesignPattern::Object->fromPackage('Data::Storage::Container'); |
if (not ref $self->{DSC} eq 'Data::Storage::Container') { |
153 |
|
$self->{DSC} = DesignPattern::Object->fromPackage('Data::Storage::Container'); |
154 |
|
} |
155 |
|
|
156 |
# Check if database keys were specified explicitely |
# Check if database keys were specified explicitely |
157 |
# as default inside the application container ... |
# as default inside the application container ... |