Revision 4b47dbd9
Von Holger Lindemann vor mehr als 15 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1697 | 1697 |
my $where = qq|NOT p.obsolete = '1'|; |
| 1698 | 1698 |
my @values; |
| 1699 | 1699 |
|
| 1700 |
foreach my $column (qw(p.partnumber p.description pgpartsgroup)) {
|
|
| 1700 |
foreach my $column (qw(p.partnumber p.description pgpartsgroup )) {
|
|
| 1701 | 1701 |
my ($table, $field) = split m/\./, $column; |
| 1702 | 1702 |
next if !$form->{"${field}_${i}"};
|
| 1703 | 1703 |
$where .= qq| AND lower(${column}) ILIKE ?|;
|
| 1704 | 1704 |
push @values, '%' . $form->{"${field}_${i}"} . '%';
|
| 1705 | 1705 |
} |
| 1706 | 1706 |
|
| 1707 |
#Es soll auch nach EAN gesucht werden, ohne Einschränkung durch Beschreibung |
|
| 1708 |
if ($form->{"partnumber_$i"} && !$form->{"description_$i"}) {
|
|
| 1709 |
$where .= qq| OR (NOT p.obsolete = '1' AND p.ean = ? )|; |
|
| 1710 |
push @values, $form->{"partnumber_$i"};
|
|
| 1711 |
} |
|
| 1712 |
|
|
| 1707 | 1713 |
if ($form->{"description_$i"}) {
|
| 1708 | 1714 |
$where .= qq| ORDER BY p.description|; |
| 1709 | 1715 |
} else {
|
Auch abrufbar als: Unified diff
Suche auch nach EAN auf Gleichheit, wenn nur partnumber gefüllt ist