From 327beb77919cbea42841ec0c10977f4d1c3648ca Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 31 Jul 2008 22:08:16 +0000
Subject: Fixing issues with adding ap/ar vouchers to existing batch

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2228 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/vouchers.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'scripts')

diff --git a/scripts/vouchers.pl b/scripts/vouchers.pl
index 047afcb7..5173045a 100644
--- a/scripts/vouchers.pl
+++ b/scripts/vouchers.pl
@@ -72,10 +72,10 @@ sub add_vouchers {
     my $batch = LedgerSMB::Batch->new({base => $request});
     our $vouchers_dispatch = 
     {
-        payable    => {script => 'bin/ap.pl', function => sub {add()}},
-        receivable => {script => 'bin/ar.pl', function => sub {add()}},
+        ap         => {script => 'bin/ap.pl', function => sub {add()}},
+        ar         => {script => 'bin/ar.pl', function => sub {add()}},
         gl         => {script => 'bin/gl.pl', function => sub {add()}},
-        receipt   => {script => 'scripts/payment.pl', 
+        receipt    => {script => 'scripts/payment.pl', 
 	             function => sub {
 				my ($request) = @_;
 				$request->{account_class} = 2;
@@ -124,6 +124,8 @@ sub add_vouchers {
     my $script = $vouchers_dispatch->{$request->{batch_type}}{script};
     $form->{script} = $script;
     $form->{script} =~ s|.*/||;
+    delete $form->{id};
+    delete $request->{id};
     if ($script =~ /^bin/){
 
         # Note that the line below is generally considered incredibly bad form. 
-- 
cgit v1.2.3