X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c5fa1d85e9034725d2e58e1e33b663ea2a4a3882..7a98647b06d8fe8eb71a40d20e25d84d9faa3ed9:/bin/mozilla/is.pl?ds=inline

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index c330ec2f5..c2fc22b34 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -689,10 +689,15 @@ sub post_payment {
   ($form->{AR})      = split /--/, $form->{AR};
   ($form->{AR_paid}) = split /--/, $form->{AR_paid};
   relink_accounts();
-  $form->redirect($locale->text('Payment posted!'))
-      if (IS->post_payment(\%myconfig, \%$form));
-    $form->error($locale->text('Cannot post payment!'));
-
+  if ( IS->post_payment(\%myconfig, \%$form) ) {
+    $form->{snumbers}  = qq|invnumber_| . $form->{invnumber};
+    $form->{what_done} = $form->{type};
+    $form->{addition}  = "PAYMENT POSTED";
+    $form->save_history;
+    $form->redirect($locale->text('Payment posted!'))
+  } else {
+   $form->error($locale->text('Cannot post payment!'));
+  };
 
   $main::lxdebug->leave_sub();
 }