From: Jan Büren <jan@lx-office-hosting.de>
Date: Tue, 2 Feb 2010 08:27:20 +0000 (+0100)
Subject: Finanzbuchhaltung -> Kreditorenbuchung. Gibt derzeit keine Rückmeldung mehr, ob die... 
X-Git-Tag: release-2.6.1beta1~63
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=92483c539c55b85c3435de918fd6baca2d236c74;p=kivitendo-erp.git

Finanzbuchhaltung -> Kreditorenbuchung. Gibt derzeit keine Rückmeldung mehr, ob die Buchung erfolgreich durchgeführt wurde. Ferner gibt die Backend-Funktion AP->post_transaction immer wahr zurück. Minimal verbessert und kommentiert, ohne das Ursprungsproblem zu lösen ...
---

diff --git a/SL/AP.pm b/SL/AP.pm
index aaf2d5e6e..c2ed2b5e3 100644
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -46,7 +46,7 @@ sub post_transaction {
   $main::lxdebug->enter_sub();
 
   my ($self, $myconfig, $form, $provided_dbh, $payments_only) = @_;
-
+  my $rc = 0; # return code auf false setzen
   # connect to database
   my $dbh = $provided_dbh ? $provided_dbh : $form->dbconnect_noauto($myconfig);
 
@@ -356,12 +356,13 @@ sub post_transaction {
 
   IO->set_datepaid(table => 'ap', id => $form->{id}, dbh => $dbh);
 
-  my $rc = 1;
   if (!$provided_dbh) {
     $dbh->commit();
     $dbh->disconnect();
   }
 
+  $rc = 1; #  Den return-code auf true setzen, aber nur falls beim commit alles i.O. ist
+
   $main::lxdebug->leave_sub();
 
   return $rc;
diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index bac1b8197..a6d5cdc5c 100644
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -1081,9 +1081,11 @@ sub post {
     }
     # /saving the history
     remove_draft() if $form->{remove_draft};
+    # Dieser Text wird niemals ausgegeben: Probleme beim redirect?
     $form->redirect($locale->text('Transaction posted!'));
+  } else {
+    $form->error($locale->text('Cannot post transaction!'));
   }
-  $form->error($locale->text('Cannot post transaction!'));
 
   $main::lxdebug->leave_sub();
 }