X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2a7f7f23f9bf349b0329ef7216037935686a1325..fbcd5580:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 3407a202d..344f1f0bc 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -344,13 +344,12 @@ sub numtextrows {
 }
 
 sub dberror {
-  $main::lxdebug->enter_sub();
-
   my ($self, $msg) = @_;
 
-  $self->error("$msg\n" . $DBI::errstr);
-
-  $main::lxdebug->leave_sub();
+  die SL::X::DBError->new(
+    msg   => $msg,
+    error => $DBI::errstr,
+  );
 }
 
 sub isblank {
@@ -733,7 +732,7 @@ sub redirect {
     $self->info($msg);
 
   } else {
-    SL::Helper::Flash::flash_later('info', $msg);
+    SL::Helper::Flash::flash_later('info', $msg) if $msg;
     $self->_store_redirect_info_in_session;
     print $::form->redirect_header($self->{callback});
   }