X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f42b94216fad4b5cca9f394e91a9d64774499325..d79bc72848fa8fe73fc51f0ba954068ee180c5d6:/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();