SF.net SVN: ledger-smb: [1180] branches/1.2

[..hidden..]

Revision: 1180
          http://svn.sourceforge.net/ledger-smb/?rev=1180&view=rev
Author:   einhverfr
Date:     2007-05-10 16:53:48 -0700 (Thu, 10 May 2007)

Log Message:
-----------
Adding performance patch for larger datasets

Modified Paths:
--------------
    branches/1.2/Changelog
    branches/1.2/LedgerSMB/Form.pm

Modified: branches/1.2/Changelog
===================================================================
--- branches/1.2/Changelog	2007-05-10 23:53:09 UTC (rev 1179)
+++ branches/1.2/Changelog	2007-05-10 23:53:48 UTC (rev 1180)
@@ -11,6 +11,7 @@
 * Corrected number parsing issues with 1.000,00 formats (Chris T).
 * Corrected a number of date handling issues and added tests (Seneca).
 * Applied invoice performance patch from Ashley Gittins (Chris T)
+* Applide performance improvements to lastname_used (Chris T)
 
 Changelog for 1.2.4
 * Fixed internal functions avgcost() and lastcost() to not use float (Joshua D)

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2007-05-10 23:53:09 UTC (rev 1179)
+++ branches/1.2/LedgerSMB/Form.pm	2007-05-10 23:53:48 UTC (rev 1180)
@@ -2408,29 +2408,15 @@
     }
 
     my $query = qq|
-		SELECT id 
-		FROM $arap
-		WHERE id IN 
-			(SELECT MAX(id) 
-			FROM $arap
-			WHERE $where AND ${vc}_id > 0)|;
-
-    my ($trans_id) = $dbh->selectrow_array($query);
-
-    $trans_id *= 1;
-
-    $query = qq|
-		SELECT ct.name AS $vc, a.curr AS currency, a.${vc}_id,
+		SELECT ct.name AS $vc, ct.curr AS currency, ct.id AS ${vc}_id,
 			current_date + ct.terms AS duedate, 
-			a.department_id, d.description AS department, ct.notes, 
+			ct.notes, 
 			ct.curr AS currency
-		FROM $arap a
-		JOIN $vc ct ON (a.${vc}_id = ct.id)
-		LEFT JOIN department d ON (a.department_id = d.id)
-		WHERE a.id = ?|;
+		FROM $vc ct
+		WHERE ct.id = (select customer_id from $arap where $where AND ${vc}_id IS NOT NULL order by id DESC limit 1)|;
 
     $sth = $dbh->prepare($query);
-    $sth->execute($trans_id) || $self->dberror($query);
+    $sth->execute() || $self->dberror($query);
 
     my $ref = $sth->fetchrow_hashref(NAME_lc);
     for ( keys %$ref ) { $self->{$_} = $ref->{$_} }


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