Revision dea9aaea
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 855 | 855 |
: "current_date"; |
| 856 | 856 |
|
| 857 | 857 |
# get vendor |
| 858 |
@values = (); |
|
| 858 |
my @values = (); |
|
| 859 |
my $where = ''; |
|
| 859 | 860 |
if ($vid) {
|
| 860 | 861 |
$where .= 'AND v.id = ?'; |
| 861 | 862 |
push @values, $vid; |
| ... | ... | |
| 866 | 867 |
} |
| 867 | 868 |
my $query = |
| 868 | 869 |
qq|SELECT |
| 869 |
v.id AS vendor_id, v.name AS vendor, v.discount as vendor_discount,
|
|
| 870 |
v.id AS vendor_id, v.name AS vendor, v.discount as vendor_discount, |
|
| 870 | 871 |
v.creditlimit, v.terms, v.notes AS intnotes, |
| 871 | 872 |
v.email, v.cc, v.bcc, v.language_id, v.payment_id, |
| 872 | 873 |
v.street, v.zipcode, v.city, v.country, v.taxzone_id, |
| ... | ... | |
| 976 | 977 |
$where .= qq| OR (NOT p.obsolete = '1' AND p.ean = ? )|; |
| 977 | 978 |
push @values, $form->{"partnumber_$i"};
|
| 978 | 979 |
} |
| 979 |
|
|
| 980 |
|
|
| 980 | 981 |
if ($form->{"description_$i"}) {
|
| 981 | 982 |
$where .= " ORDER BY p.description"; |
| 982 | 983 |
} else {
|
Auch abrufbar als: Unified diff
get_vendor war nicht hinreichend abgesichert gegen mehrfache aufrufe.
bei mehrfachen aufrufen, konnte es passieren dass alte WHERE klauseln noch mitverwendet wurden.
Hoffentlich Fix für Bug 1028.