From ac6603ac6e7b587498fec9eabbf3cffe65d15778 Mon Sep 17 00:00:00 2001
From: Holger Lindemann <hli@lx-system.de>
Date: Fri, 26 Jan 2007 17:00:23 +0000
Subject: [PATCH] =?utf8?q?EAN-Code=20f=C3=BCr=20Artikel?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/IC.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/SL/IC.pm b/SL/IC.pm
index 2bbf89a88..d05d85d6e 100644
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -502,6 +502,7 @@ sub save {
 	      shop = '$form->{shop}',
               ve = '$form->{ve}',
               gv = '$form->{gv}',
+              ean = '$form->{ean}',
               not_discountable = '$form->{not_discountable}',
 	      microfiche = '$form->{microfiche}',
 	      partsgroup_id = $partsgroup_id
@@ -933,6 +934,11 @@ sub all_parts {
     }
   }
 
+  if ($form->{ean}) {
+    $var = $form->like(lc $form->{ean});
+    $where .= " AND lower(ean) LIKE '$var'";
+  }
+  
   if ($form->{searchitems} eq 'part') {
     $where .= " AND p.inventory_accno_id > 0";
   }
-- 
2.20.1