Banktransaction: Kontoauszug verbuchen überarbeitet(4)

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 04b20129c8b4ef8a318c7002f1bc1315d9f5daac..344f1f0bceac17f5dad32f455d34eb8e87f782d0 100644 (file)
--- 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});
   }
@@ -2562,8 +2561,6 @@ sub create_links {
     $arap = "ap";
   }
 
-  $self->all_vc($myconfig, $table, $module);
-
   # get last customers or vendors
   my ($query, $sth, $ref);