SF.net SVN: ledger-smb: [1944] trunk/scripts/vouchers.pl

[..hidden..]

Revision: 1944
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1944&view=rev
Author:   einhverfr
Date:     2007-12-04 21:59:13 -0800 (Tue, 04 Dec 2007)

Log Message:
-----------
Correcting logic for vouchers and payments

Modified Paths:
--------------
    trunk/scripts/vouchers.pl

Modified: trunk/scripts/vouchers.pl
===================================================================
--- trunk/scripts/vouchers.pl	2007-12-05 00:53:35 UTC (rev 1943)
+++ trunk/scripts/vouchers.pl	2007-12-05 05:59:13 UTC (rev 1944)
@@ -44,9 +44,20 @@
     {
         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. 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.