Revision c09536f4
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 497 | 497 |
if (($form->{"make_$i"}) || ($form->{"model_$i"})) {
|
| 498 | 498 |
|
| 499 | 499 |
$query = qq|INSERT INTO makemodel (parts_id, make, model) | . |
| 500 |
qq|VALUES (?, ?, ?)|;
|
|
| 501 |
@values = (conv_i($form->{id}), conv_i($form->{"make_$i"}), $form->{"model_$i"});
|
|
| 500 |
qq|VALUES (?, ?, ?)|;
|
|
| 501 |
@values = (conv_i($form->{id}), conv_i($form->{"make_$i"}), $form->{"model_$i"});
|
|
| 502 | 502 |
|
| 503 | 503 |
do_query($form, $dbh, $query, @values); |
| 504 | 504 |
} |
| ... | ... | |
| 511 | 511 |
$query = |
| 512 | 512 |
qq|INSERT INTO partstax (parts_id, chart_id) |
| 513 | 513 |
VALUES (?, (SELECT id FROM chart WHERE accno = ?))|; |
| 514 |
@values = (conv_i($form->{id}), $item);
|
|
| 514 |
@values = (conv_i($form->{id}), $item);
|
|
| 515 | 515 |
do_query($form, $dbh, $query, @values); |
| 516 | 516 |
} |
| 517 | 517 |
} |
| ... | ... | |
| 525 | 525 |
if ($form->{"qty_$i"} != 0) {
|
| 526 | 526 |
$form->{"bom_$i"} *= 1;
|
| 527 | 527 |
$query = qq|INSERT INTO assembly (id, parts_id, qty, bom) | . |
| 528 |
qq|VALUES (?, ?, ?, ?)|;
|
|
| 529 |
@values = (conv_i($form->{id}), conv_i($form->{"id_$i"}), conv_i($form->{"qty_$i"}), $form->{"bom_$i"} ? 't' : 'f');
|
|
| 528 |
qq|VALUES (?, ?, ?, ?)|;
|
|
| 529 |
@values = (conv_i($form->{id}), conv_i($form->{"id_$i"}), conv_i($form->{"qty_$i"}), $form->{"bom_$i"} ? 't' : 'f');
|
|
| 530 | 530 |
do_query($form, $dbh, $query, @values); |
| 531 | 531 |
} |
| 532 | 532 |
} |
Auch abrufbar als: Unified diff
Keine Tabs in SL/* Modulen.
Machen das Leben nur schwer für Leute die zufällig nicht die Tabbreite eingestellt haben wie der Autor.