Applying performance patch

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1181 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 9 insertions, 8 deletions

diff --git a/LedgerSMB/AA.pm b/LedgerSMB/AA.pm
index 055120fa..285d80f8 100755
--- a/LedgerSMB/AA.pm
+++ b/LedgerSMB/AA.pm
@@ -1122,16 +1122,15 @@ sub get_name {
     if ( !$form->{id} && $form->{type} !~ /_(order|quotation)/ ) {
 
         $query = qq|
-			   SELECT c.accno, c.description, c.link, c.category,
-			          ac.project_id, p.projectnumber, 
-			          a.department_id, d.description AS department
+			   SELECT c.accno, c.description, c.link, 
+                                  c.category,
+			          ac.project_id
+			          a.department_id
 			     FROM chart c
 			     JOIN acc_trans ac ON (ac.chart_id = c.id)
 			     JOIN $arap a ON (a.id = ac.trans_id)
-			LEFT JOIN project p ON (ac.project_id = p.id)
-			LEFT JOIN department d ON (d.id = a.department_id)
 			    WHERE a.$form->{vc}_id = ?
-			          AND a.id IN (SELECT max(id) 
+			          AND a.id = (SELECT max(id) 
 			                         FROM $arap
 			                        WHERE $form->{vc}_id = 
 			                              ?)
@@ -1144,9 +1143,7 @@ sub get_name {
         my $i = 0;
 
         while ( $ref = $sth->fetchrow_hashref(NAME_lc) ) {
-            $form->{department}    = $ref->{department};
             $form->{department_id} = $ref->{department_id};
-
             if ( $ref->{link} =~ /_amount/ ) {
                 $i++;
                 $form->{"$form->{ARAP}_amount_$i"} =
@@ -1165,6 +1162,10 @@ sub get_name {
         }
 
         $sth->finish;
+        $query = "select description from department where id = ?";
+        $sth = $dbh->prepare($query);
+        $sth->execute($form->{department_id});
+        ($form->{department}) = $sth->fetchrow_array;
         $form->{rowcount} = $i if ( $i && !$form->{type} );
     }