Revision 1853d251
Von Sven Schöling vor mehr als 9 Jahren hinzugefügt
| SL/DBConnect.pm | ||
|---|---|---|
|
|
||
|
sub _connect {
|
||
|
my ($self, @args) = @_;
|
||
|
@args = $self->get_connect_args if !@args;
|
||
|
|
||
|
return DBI->connect(@args) unless $::lx_office_conf{debug} && $::lx_office_conf{debug}->{dbix_log4perl};
|
||
|
|
||
| ... | ... | |
|
|
||
|
sub connect {
|
||
|
my ($self, @args) = @_;
|
||
|
@args = $self->get_connect_args if !@args;
|
||
|
my $initial_sql = $self->get_initial_sql;
|
||
|
|
||
|
if (my $cached_dbh = SL::DBConnect::Cache->get(@args, $initial_sql)) {
|
||
Auch abrufbar als: Unified diff
DBConnect Caching: DBConnect auto args in den Key aufnehmen