2 |
## $Id$ |
## $Id$ |
3 |
## ---------------------------------------------------------------------- |
## ---------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.4 2003/12/03 00:21:38 joko |
6 |
|
## + minor fix to '_bootDatabases': instantiate the DSC-container if no ref to it exists |
7 |
|
## |
8 |
## Revision 1.3 2003/06/06 03:14:16 joko |
## Revision 1.3 2003/06/06 03:14:16 joko |
9 |
## enhanced database connection bootstrapping: |
## enhanced database connection bootstrapping: |
10 |
## - boot default ones |
## - boot default ones |
144 |
|
|
145 |
# FIXME: CACHE THIS! JUST BOOT STORAGES INTO CONTAINER IF NOT ALREADY DONE! |
# FIXME: CACHE THIS! JUST BOOT STORAGES INTO CONTAINER IF NOT ALREADY DONE! |
146 |
# WATCH OUT FOR GLOBAL USED RESOURCES! |
# WATCH OUT FOR GLOBAL USED RESOURCES! |
147 |
$self->{DSC} ||= DesignPattern::Object->fromPackage('Data::Storage::Container'); |
if (not ref $self->{DSC} eq 'Data::Storage::Container') { |
148 |
|
$self->{DSC} = DesignPattern::Object->fromPackage('Data::Storage::Container'); |
149 |
|
} |
150 |
|
|
151 |
# Check if database keys were specified explicitely |
# Check if database keys were specified explicitely |
152 |
# as default inside the application container ... |
# as default inside the application container ... |