Revision 4bbf708c
Von Jan Büren vor mehr als 15 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 491 | 491 |
unless ($form->{item} eq 'service') {
|
| 492 | 492 |
for my $i (1 .. $form->{makemodel_rows}) {
|
| 493 | 493 |
if (($form->{"make_$i"}) || ($form->{"model_$i"})) {
|
| 494 |
map { $form->{"${_}_$i"} =~ s/\'/\'\'/g } qw(make model);
|
|
| 495 | 494 |
|
| 496 | 495 |
$query = qq|INSERT INTO makemodel (parts_id, make, model) | . |
| 497 | 496 |
qq|VALUES (?, ?, ?)|; |
| 498 |
@values = (conv_i($form->{id}), $form->{"make_$i"}, $form->{"model_$i"});
|
|
| 497 |
@values = (conv_i($form->{id}), conv_i($form->{"make_$i"}), $form->{"model_$i"});
|
|
| 498 |
|
|
| 499 | 499 |
do_query($form, $dbh, $query, @values); |
| 500 | 500 |
} |
| 501 | 501 |
} |
| ... | ... | |
| 1818 | 1818 |
} |
| 1819 | 1819 |
|
| 1820 | 1820 |
my $placeholders = join ', ', ('?') x scalar(@part_ids);
|
| 1821 |
my $query = qq|SELECT parts_id, make, model |
|
| 1822 |
FROM makemodel |
|
| 1823 |
WHERE parts_id IN ($placeholders)|; |
|
| 1821 |
my $query = qq|SELECT mm.parts_id, mm.model, v.name AS make |
|
| 1822 |
FROM makemodel mm |
|
| 1823 |
LEFT JOIN vendor v ON (mm.make = v.id) |
|
| 1824 |
WHERE mm.parts_id IN ($placeholders)|; |
|
| 1825 |
|
|
| 1824 | 1826 |
my %makemodel = (); |
| 1825 | 1827 |
|
| 1826 | 1828 |
my $sth = prepare_execute_query($form, $dbh, $query, @part_ids); |
Auch abrufbar als: Unified diff
Backport von Revision 7581 von XPlace. Hintergrund: Hersteller und Modell sind derzeit Freitextfelder, in der Regel möchte man Lieferanten und die entsprechenden Lieferanten-Art.-Nr. abbilden. Am liebsten noch mit Lieferanten-Art-Preis. Dazu vielleicht nach der 2.6 mehr