From: Holger Lindemann <hli@lx-system.de>
Date: Fri, 24 Apr 2009 12:46:37 +0000 (+0000)
Subject: Suche auch nach EAN auf Gleichheit, wenn nur partnumber gefüllt ist
X-Git-Tag: release-2.6.0beta2~98
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=4b47dbd9756ab4d8df2ee508fb3179c77372629a;p=kivitendo-erp.git

Suche auch nach EAN auf Gleichheit, wenn nur partnumber gefüllt ist
---

diff --git a/SL/IS.pm b/SL/IS.pm
index 98f283711..9a197ab84 100644
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -1697,13 +1697,19 @@ sub retrieve_item {
   my $where = qq|NOT p.obsolete = '1'|;
   my @values;
 
-  foreach my $column (qw(p.partnumber p.description pgpartsgroup)) {
+  foreach my $column (qw(p.partnumber p.description pgpartsgroup )) {
     my ($table, $field) = split m/\./, $column;
     next if !$form->{"${field}_${i}"};
     $where .= qq| AND lower(${column}) ILIKE ?|;
     push @values, '%' . $form->{"${field}_${i}"} . '%';
   }
 
+  #Es soll auch nach EAN gesucht werden, ohne Einschränkung durch Beschreibung
+  if ($form->{"partnumber_$i"} && !$form->{"description_$i"}) {
+	$where .= qq| OR (NOT p.obsolete = '1' AND p.ean = ? )|;
+	push @values, $form->{"partnumber_$i"};
+  }
+
   if ($form->{"description_$i"}) {
     $where .= qq| ORDER BY p.description|;
   } else {