Fixing endless loop in ar/ap print and post routine

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1319 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 2 insertions, 0 deletions

diff --git a/bin/arapprn.pl b/bin/arapprn.pl
index b1885e66..03475a41 100644
--- a/bin/arapprn.pl
+++ b/bin/arapprn.pl
@@ -137,6 +137,8 @@ sub print {
     }
 
     if ( $form->{printandpost} ) {
+        $form->{action} = 'post';
+        delete $form->{printandpost};
         &post;
     }
     else {