From ac836087123d066b6fe5277911fa8f8db81292c0 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 5 Dec 2007 05:59:13 +0000
Subject: Correcting logic for vouchers and payments

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

diff --git a/scripts/vouchers.pl b/scripts/vouchers.pl
index e264ed8a..c779e887 100644
--- a/scripts/vouchers.pl
+++ b/scripts/vouchers.pl
@@ -44,9 +44,20 @@ sub create_vouchers {
     {
         payable    => {script => 'bin/ap.pl', function => sub {add()}},
         receivable => {script => 'bin/ar.pl', function => sub {add()}},
-        payments   => {script => 'bin/cp.pl', function => sub {payments()}},
-        receipts   => {script => 'bin/cp.pl', function => sub {receipts()}},
         gl         => {script => 'bin/gl.pl', function => sub {add()}},
+        receipts   => {script => 'scripts/payments.pl', 
+	             function => sub {
+				my ($request) = @_;
+				$request->{account_class} = 2;
+				LedgerSMB::Scripts::payment::payments($request);
+				}},
+        payments   => {script => 'scripts/payments.pl', 
+	             function => sub {
+				my ($request) = @_;
+				$request->{account_class} = 1;
+				LedgerSMB::Scripts::payment::payments($request);
+				}},
+	
     };
 
     # Note that the line below is generally considered incredibly bad form. 
-- 
cgit v1.2.3