2 |
## $Id$ |
## $Id$ |
3 |
## ---------------------------------------------------------------------- |
## ---------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.2 2003/03/27 15:43:05 joko |
6 |
|
## minor fix: new comment/remark |
7 |
|
## |
8 |
## Revision 1.1 2003/02/20 18:41:48 joko |
## Revision 1.1 2003/02/20 18:41:48 joko |
9 |
## + initial commit |
## + initial commit |
10 |
## |
## |
123 |
my $dbkeys; |
my $dbkeys; |
124 |
|
|
125 |
my $dbcfg; |
my $dbcfg; |
126 |
|
|
127 |
|
# CACHE THIS! JUST BOOT STORAGES INTO CONTAINER IF NOT ALREADY DONE! |
128 |
my $container = DesignPattern::Object->fromPackage('Data::Storage::Container'); |
my $container = DesignPattern::Object->fromPackage('Data::Storage::Container'); |
129 |
|
|
130 |
if (my $dbkey_raw = $self->{app}->{use_databases}) { |
if (my $dbkey_raw = $self->{app}->{use_databases}) { |