Revision 715b80ec
Von Bernd Bleßmann vor fast 2 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
|
}
|
||
|
|
||
|
my $placeholders = join ', ', ('?') x scalar(@part_ids);
|
||
|
my $query = qq|SELECT mm.parts_id, mm.model, mm.part_description AS mm_part_description, mm.lastcost, v.name AS make
|
||
|
my $query = qq|SELECT mm.parts_id, mm.model,
|
||
|
mm.part_description AS mm_part_description,
|
||
|
mm.part_longdescription AS mm_part_longdescription,
|
||
|
mm.lastcost, v.name AS make
|
||
|
FROM makemodel mm
|
||
|
LEFT JOIN vendor v ON (mm.make = v.id)
|
||
|
WHERE mm.parts_id IN ($placeholders)|;
|
||
| ... | ... | |
|
my %data = selectall_as_map($form, $dbh, $query, 'id', \@columns, @part_ids);
|
||
|
|
||
|
my %template_arrays;
|
||
|
map { $template_arrays{$_} = [] } (qw(make model mm_part_description customer_make customer_model cm_part_description cm_part_longdescription), @columns);
|
||
|
map { $template_arrays{$_} = [] } (qw(make model mm_part_description mm_part_longdescription customer_make customer_model cm_part_description cm_part_longdescription), @columns);
|
||
|
|
||
|
foreach my $i (1 .. $rowcount) {
|
||
|
my $id = $form->{"${prefix}${i}"};
|
||
| ... | ... | |
|
|
||
|
push @{ $template_arrays{make} }, [];
|
||
|
push @{ $template_arrays{model} }, [];
|
||
|
push @{ $template_arrays{mm_part_description} }, [];
|
||
|
push @{ $template_arrays{mm_part_description} }, [];
|
||
|
push @{ $template_arrays{mm_part_longdescription} }, [];
|
||
|
|
||
|
if ($makemodel{$id}) {
|
||
|
foreach my $ref (@{ $makemodel{$id} }) {
|
||
|
map { push @{ $template_arrays{$_}->[-1] }, $ref->{$_} } qw(make model mm_part_description);
|
||
|
map { push @{ $template_arrays{$_}->[-1] }, $ref->{$_} } qw(make model mm_part_description mm_part_longdescription);
|
||
|
}
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
Lieferantenartikelnummern um Langtext erweitern: zum Drucken