summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: c897f82)
raw | patch | inline | side by side (parent: c897f82)
author | janw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Mon, 21 Apr 2008 14:06:40 +0000 (14:06 +0000) | ||
committer | janw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Mon, 21 Apr 2008 14:06:40 +0000 (14:06 +0000) |
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@10592 594d385d-05f5-0310-b6e9-bd551577e9d8
gosa-si/modules/DBsqlite.pm | patch | blob | history |
index ddf709af00d54e9019dcb9433973115021e89706..420a5694988468d0bcfa60034f97a4f4047f81c7 100644 (file)
my $sql_list = shift;
my @db_answer;
- $self->{dbh}->do("ANALYZE");
foreach my $sql (@$sql_list) {
eval {
- push @db_answer, @{$self->{dbh}->selectall_arrayref($sql)};
+ my @answer = @{$self->{dbh}->selectall_arrayref($sql)};
+ push @db_answer, @answer;
};
if($@) {
$self->{dbh}->do("ANALYZE");
eval {
- push @db_answer, @{$self->{dbh}->selectall_arrayref($sql)};
+ my @answer = @{$self->{dbh}->selectall_arrayref($sql)};
+ push @db_answer, @answer;
};
if($@) {
&main::daemon_log("ERROR: $sql failed with $@", 1);