Merge von 682 aus unstable: sql-performance

SQL-Query optimiert fuer raussuchen letzer Kunde

diff --git a/SL/Form.pm b/SL/Form.pm
index 5fb58aff2fff5134dfabdcd845a8d274f2048e41..a0fa96a2ce6283852b21cd913aa8da349369a22c 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1765,10 +1765,9 @@ sub lastname_used {
     $where = "quotation = '1'";
   }
 
     $where = "quotation = '1'";
   }
 

-  my $query = qq|SELECT id FROM $arap
-                 WHERE id IN (SELECT MAX(id) FROM $arap
+  my $query = qq|SELECT MAX(id) FROM $arap

                              WHERE $where
                              WHERE $where

-                             AND ${table}_id > 0)|;
+                             AND ${table}_id > 0|;

   my $sth = $dbh->prepare($query);
   $sth->execute || $self->dberror($query);
 
   my $sth = $dbh->prepare($query);
   $sth->execute || $self->dberror($query);