| 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}) { |