Finanzbuchhaltung -> Kreditorenbuchung. Gibt derzeit keine Rückmeldung mehr, ob die...

diff --git a/SL/AP.pm b/SL/AP.pm
index aaf2d5e6e4293ed5b25c393b72e0119ea1478659..c2ed2b5e3db7e1191fae2f525623676c160c481b 100644 (file)
--- 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) = @_;
   $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);
 
   # 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);
 
 
   IO->set_datepaid(table => 'ap', id => $form->{id}, dbh => $dbh);
 

-  my $rc = 1;

   if (!$provided_dbh) {
     $dbh->commit();
     $dbh->disconnect();
   }
 
   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;
   $main::lxdebug->leave_sub();
 
   return $rc;

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index bac1b81975a496908367957b1e4df2c73e037494..a6d5cdc5c1073cfbf6c21b9e956e7101fe66fa8d 100644 (file)
--- 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};
     }
     # /saving the history
     remove_draft() if $form->{remove_draft};

+    # Dieser Text wird niemals ausgegeben: Probleme beim redirect?

     $form->redirect($locale->text('Transaction posted!'));
     $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();
 }
 
   $main::lxdebug->leave_sub();
 }