From 6c5c1c36fa682244c355f6c06808ec715f0a2baa Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 26 Apr 2007 20:28:38 +0000
Subject: Merging bugfixes from current branches/1.2

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1105 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/aa.pl | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'bin/aa.pl')

diff --git a/bin/aa.pl b/bin/aa.pl
index 08a766f2..f4e6c1b1 100644
--- a/bin/aa.pl
+++ b/bin/aa.pl
@@ -117,6 +117,14 @@ sub display_form {
 }
 
 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} );
 
@@ -1481,13 +1489,12 @@ qq|<input name="l_transdate" class=checkbox type=checkbox value=Y checked> |
 }
 
 sub transactions {
-
     if ( $form->{ $form->{vc} } ) {
         $form->{ $form->{vc} } = $form->unescape( $form->{ $form->{vc} } );
         ( $form->{ $form->{vc} }, $form->{"$form->{vc}_id"} ) =
           split( /--/, $form->{ $form->{vc} } );
     }
-
+    my @column_index;
     AA->transactions( \%myconfig, \%$form );
 
     $href = "$form->{script}?action=transactions";
@@ -1640,7 +1647,6 @@ sub transactions {
             $href     .= "&l_$item=Y";
         }
     }
-
     if ( !$form->{summary} ) {
         foreach $item (qw(source debit credit accno description projectnumber))
         {
-- 
cgit v1.2.3