Revision 0064769c
Von Bernd Bleßmann vor etwa 1 Jahr hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 908 | 908 |
|
| 909 | 909 |
$query = qq|SELECT |
| 910 | 910 |
cp.parts_id, |
| 911 |
cp.customer_partnumber AS customer_model, |
|
| 912 |
c.name AS customer_make |
|
| 911 |
cp.customer_partnumber AS customer_model, |
|
| 912 |
cp.part_description AS cm_part_description, |
|
| 913 |
cp.part_longdescription AS cm_part_longdescription, |
|
| 914 |
c.name AS customer_make |
|
| 913 | 915 |
FROM part_customer_prices cp |
| 914 | 916 |
LEFT JOIN customer c ON (cp.customer_id = c.id) |
| 915 | 917 |
WHERE cp.parts_id IN ($placeholders)|; |
| ... | ... | |
| 934 | 936 |
my %data = selectall_as_map($form, $dbh, $query, 'id', \@columns, @part_ids); |
| 935 | 937 |
|
| 936 | 938 |
my %template_arrays; |
| 937 |
map { $template_arrays{$_} = [] } (qw(make model mm_part_description customer_make customer_model), @columns);
|
|
| 939 |
map { $template_arrays{$_} = [] } (qw(make model mm_part_description customer_make customer_model cm_part_description cm_part_longdescription), @columns);
|
|
| 938 | 940 |
|
| 939 | 941 |
foreach my $i (1 .. $rowcount) {
|
| 940 | 942 |
my $id = $form->{"${prefix}${i}"};
|
| ... | ... | |
| 957 | 959 |
|
| 958 | 960 |
push @{ $template_arrays{customer_make} }, [];
|
| 959 | 961 |
push @{ $template_arrays{customer_model} }, [];
|
| 962 |
push @{ $template_arrays{cm_part_description} }, [];
|
|
| 963 |
push @{ $template_arrays{cm_part_longdescription} }, [];
|
|
| 960 | 964 |
|
| 961 | 965 |
if ($customermodel{$id}) {
|
| 962 | 966 |
foreach my $ref (@{ $customermodel{$id} }) {
|
| 963 |
push @{ $template_arrays{$_}->[-1] }, $ref->{$_} for qw(customer_make customer_model);
|
|
| 967 |
push @{ $template_arrays{$_}->[-1] }, $ref->{$_} for qw(customer_make customer_model cm_part_description cm_part_longdescription);
|
|
| 964 | 968 |
} |
| 965 | 969 |
} |
| 966 | 970 |
|
Auch abrufbar als: Unified diff
Kundenspez. Preise um Beschreibung u. Langtext erweitern: in S:IC zum Drucken