X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/3ced230b9d35b6f2665162d6789af124431f23aa..8c7e44938a661e035f62840e1e177353240ace5d:/SL/IO.pm

diff --git a/SL/IO.pm b/SL/IO.pm
new file mode 100644
index 000000000..ee85e23b1
--- /dev/null
+++ b/SL/IO.pm
@@ -0,0 +1,27 @@
+package IO;
+
+use SL::DBUtils;
+
+sub retrieve_partunits {
+  $main::lxdebug->enter_sub();
+
+  my $self     = shift;
+  my %params   = @_;
+
+  Common::check_params(\%params, qw(part_ids));
+
+  my $myconfig = \%main::myconfig;
+  my $form     = $main::form;
+
+  my $dbh      = $params{dbh} || $form->get_standard_dbh();
+
+  my $query    = qq|SELECT id, unit FROM parts WHERE id IN (| . join(', ', map { '?' } @{ $params{part_ids} }) . qq|)|;
+  my %units    = selectall_as_map($form, $dbh, $query, 'id', 'unit', @{ $params{part_ids} });
+
+  $main::lxdebug->leave_sub();
+
+  return %units;
+}
+
+
+1;