X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/0b280f98054da74f79cbc9fdb3e9f4c23326be53..eabb0fd8c765a8d27c93a35f6092d2bc04348e8d:/SL/User.pm diff --git a/SL/User.pm b/SL/User.pm index d2e914f7a..830544b8c 100644 --- a/SL/User.pm +++ b/SL/User.pm @@ -966,9 +966,10 @@ sub update2_available { $query = qq|SELECT tag FROM schema_info|; $sth = $dbh->prepare($query); - $sth->execute() || $form->dberror($query); - while (($tag) = $sth->fetchrow_array()) { - $controls->{$tag}->{"applied"} = 1 if (defined($controls->{$tag})); + if ($sth->execute()) { + while (($tag) = $sth->fetchrow_array()) { + $controls->{$tag}->{"applied"} = 1 if (defined($controls->{$tag})); + } } $sth->finish(); $dbh->disconnect();