sub run {
my ($self) = @_;
- if ($::form->{upgrade_action} eq 'filter_parts') {
+ if (defined $::form->{upgrade_action} && $::form->{upgrade_action} eq 'filter_parts') {
return $self->filter_parts($self);
}
$update_query = qq|UPDATE parts SET partnumber = '| . $::form->{"partnumber_$i"} . qq|' WHERE id = | . $::form->{"partid_$i"};
$self->db_query($update_query);
}
- $self->dbh->commit();
}
my $query = qq|SELECT id, partnumber, description, unit, notes, assembly, ean, inventory_accno_id, obsolete