Revision d6db88a3
Von Sven Schöling vor mehr als 11 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
|
my $i = $form->{assembly_rows};
|
||
|
# if last row is not empty add them
|
||
|
if ($form->{"partnumber_$i"} ne "") {
|
||
|
$query = qq|SELECT id FROM parts WHERE partnumber = ?|;
|
||
|
my ($partid) = selectrow_query($form, $dbh, $query,$form->{"partnumber_$i"} );
|
||
|
if ( $partid ) {
|
||
|
$form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
|
||
|
$form->{"id_$i"} = $partid;
|
||
|
$form->{"bom_$i"} = 0;
|
||
|
$form->{assembly_rows}++;
|
||
|
}
|
||
|
else {
|
||
|
$::form->error($::locale->text("uncorrect partnumber ").$form->{"partnumber_$i"});
|
||
|
}
|
||
|
$query = qq|SELECT id FROM parts WHERE partnumber = ?|;
|
||
|
my ($partid) = selectrow_query($form, $dbh, $query,$form->{"partnumber_$i"} );
|
||
|
if ( $partid ) {
|
||
|
$form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
|
||
|
$form->{"id_$i"} = $partid;
|
||
|
$form->{"bom_$i"} = 0;
|
||
|
$form->{assembly_rows}++;
|
||
|
}
|
||
|
else {
|
||
|
$::form->error($::locale->text("uncorrect partnumber ").$form->{"partnumber_$i"});
|
||
|
}
|
||
|
}
|
||
|
|
||
|
for my $i (1 .. $form->{assembly_rows}) {
|
||
Auch abrufbar als: Unified diff
no tabs