7 sub retrieve_partunits {
8 $main::lxdebug->enter_sub();
13 Common::check_params(\%params, qw(part_ids));
15 my $myconfig = \%main::myconfig;
16 my $form = $main::form;
18 my $dbh = $params{dbh} || $form->get_standard_dbh();
20 my $query = qq|SELECT id, unit FROM parts WHERE id IN (| . join(', ', map { '?' } @{ $params{part_ids} }) . qq|)|;
21 my %units = selectall_as_map($form, $dbh, $query, 'id', 'unit', @{ $params{part_ids} });
23 $main::lxdebug->leave_sub();