SL/IO.pm

   1 package IO;
   2
   3 use SL::DBUtils;
   4
   5 sub retrieve_partunits {
   6   $main::lxdebug->enter_sub();
   7
   8   my $self     = shift;
   9   my %params   = @_;
  10
  11   Common::check_params(\%params, qw(part_ids));
  12
  13   my $myconfig = \%main::myconfig;
  14   my $form     = $main::form;
  15
  16   my $dbh      = $params{dbh} || $form->get_standard_dbh();
  17
  18   my $query    = qq|SELECT id, unit FROM parts WHERE id IN (| . join(', ', map { '?' } @{ $params{part_ids} }) . qq|)|;
  19   my %units    = selectall_as_map($form, $dbh, $query, 'id', 'unit', @{ $params{part_ids} });
  20
  21   $main::lxdebug->leave_sub();
  22
  23   return %units;
  24 }
  25
  26
  27 1;