X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/fc1e67b429bb959ab60bd50d144c0a51fbc4b292..39bdd9e00b88bd6a32276b1a25dfb158a6f382c2:/bin/mozilla/ar.pl

diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl
index d88cb2d14..17b87476b 100644
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -817,6 +817,10 @@ sub post {
   }
   # /saving the history
 
+  if ($::instance_conf->get_ar_add_doc && $::instance_conf->get_doc_storage) {
+    my $add_doc_url = build_std_url("script=ar.pl", 'action=edit', 'id=' . E($form->{id}));
+    print $form->redirect_header($add_doc_url);
+  }
   $form->redirect($locale->text('AR transaction posted.') . ' ' . $locale->text('ID') . ': ' . $form->{id}) unless $inline;
 
   $main::lxdebug->leave_sub();