From 11f71dfefaa3fe7de784f882c1fc88fa15c01e73 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Mon, 14 May 2007 02:07:33 +0000 Subject: Applying performance patch git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1181 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/AA.pm | 17 +++++++++-------- 1 file 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} ); } -- cgit v1.2.3