X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/efb9a24f2252104ab4af5c25334119d7c5c70a8c..refs/heads/price_source:/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} ],