X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/be6eabfc4b62af1a8173e5cbcaff0b7f0d9b6db4..5e169469ff3e97710a0c380f3cda99d50c32d90b:/SL/WH.pm diff --git a/SL/WH.pm b/SL/WH.pm index 7e4d5194b..4e0c3fc56 100644 --- a/SL/WH.pm +++ b/SL/WH.pm @@ -162,7 +162,7 @@ sub transfer_assembly { Common::check_params(\%params, qw(assembly_id dst_warehouse_id login qty unit dst_bin_id chargenumber bestbefore comment)); - my $unit = SL::DB::Manager::Unit->find_by(name => $params{unit}); + my $unit = SL::DB::Manager::Unit->find_by(name => $params{unit}); if ($unit) { my $assembly = SL::DB::Manager::Assembly->get_all( query => [ id => $params{assembly_id} ],