Ein Fehler an dieser Stelle ist nicht schlimm, da er auch dadurch zustande gekommen...

[mfinanz.git] / SL / User.pm

diff --git a/SL/User.pm b/SL/User.pm
index d2e914f7af0afd5e6534c44ed88a64e246fab977..830544b8ce9436ccb0c1960a33270c821a292434 100644 (file)
--- 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();