SF.net SVN: ledger-smb: [970] branches/1.2/bin/aa.pl

[..hidden..]

Revision: 970
          http://svn.sourceforge.net/ledger-smb/?rev=970&view=rev
Author:   einhverfr
Date:     2007-03-20 19:23:24 -0700 (Tue, 20 Mar 2007)

Log Message:
-----------
Fixing errors posting transactions

Modified Paths:
--------------
    branches/1.2/bin/aa.pl

Modified: branches/1.2/bin/aa.pl
===================================================================
--- branches/1.2/bin/aa.pl	2007-03-21 02:17:37 UTC (rev 969)
+++ branches/1.2/bin/aa.pl	2007-03-21 02:23:24 UTC (rev 970)
@@ -120,6 +120,13 @@
 
 
 sub create_links {
+  if ($form->{script} eq 'ap.pl'){
+	$form->{ARAP} = 'AP';
+	$form->{vc} = 'vendor';
+  } elsif ($form->{script} eq 'ar.pl'){
+        $form->{ARAP} = 'AR';
+        $form->{vc} = 'customer';
+  }
 
   $form->create_links($form->{ARAP}, \%myconfig, $form->{vc});
   


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