Revision 85ffde7a
Von Holger Lindemann vor etwa 14 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 1579 | 1579 |
sub makemodel_row {
|
| 1580 | 1580 |
$lxdebug->enter_sub(); |
| 1581 | 1581 |
my ($numrows) = @_; |
| 1582 |
|
|
| 1583 |
my @mm_data = grep { any { $_ ne '' } @$_{qw(make model)} } map +{ make => $form->{"make_$_"}, model => $form->{"model_$_"} }, 1 .. $numrows;
|
|
| 1582 |
#hli |
|
| 1583 |
my @mm_data = grep { any { $_ ne '' } @$_{qw(make model)} } map +{ make => $form->{"make_$_"}, model => $form->{"model_$_"}, lastcost => $form->{"lastcost_$_"}, lastupdate => $form->{"lastupdate_$_"}, sortorder => $form->{"sortorder_$_"} }, 1 .. $numrows;
|
|
| 1584 | 1584 |
delete @{$form}{grep { m/^make_\d+/ || m/^model_\d+/ } keys %{ $form }};
|
| 1585 | 1585 |
print $form->parse_html_template('ic/makemodel', { MM_DATA => [ @mm_data, {} ], mm_rows => scalar @mm_data + 1 });
|
| 1586 | 1586 |
|
Auch abrufbar als: Unified diff
EK-Preise in der makemodel hinterlegen mit Datum der letzten Änderung.
Reihenfolge der Lieferanten nach Wichtigkeit.