SL/IO.pm

   1 package IO;
   2
   3 use strict;
   4
   5 use SL::DBUtils;
   6
   7 sub retrieve_partunits {
   8   $main::lxdebug->enter_sub();
   9
  10   my $self     = shift;
  11   my %params   = @_;
  12
  13   Common::check_params(\%params, qw(part_ids));
  14
  15   my $myconfig = \%main::myconfig;
  16   my $form     = $main::form;
  17
  18   my $dbh      = $params{dbh} || $form->get_standard_dbh();
  19
  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} });
  22
  23   $main::lxdebug->leave_sub();
  24
  25   return %units;
  26 }
  27
  28
  29 1;