From 17718a5a16c99ce8bfee6ba098ee7c0184b2fa5f Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Mon, 13 Dec 2010 11:01:17 +0100 Subject: [PATCH] =?utf8?q?Lagertransfer:=20Falscher=20Spaltenname=20f?= =?utf8?q?=C3=BCr=20Einheitenname?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/WH.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SL/WH.pm b/SL/WH.pm index bf850fa30..3fbbfa4a5 100644 --- a/SL/WH.pm +++ b/SL/WH.pm @@ -79,7 +79,7 @@ sub transfer { my ($trans_id) = selectrow_query($::form, $::form->get_standard_dbh, qq|SELECT nextval('id')|); my $part = $objectify->($transfer, 'parts', 'SL::DB::Part'); - my $unit = $objectify->($transfer, 'unit', 'SL::DB::Unit', unit => $transfer->{unit}); + my $unit = $objectify->($transfer, 'unit', 'SL::DB::Unit', name => $transfer->{unit}); my $qty = $transfer->{qty}; my $src_bin = $objectify->($transfer, 'src_bin', 'SL::DB::Bin'); my $dst_bin = $objectify->($transfer, 'dst_bin', 'SL::DB::Bin'); -- 2.20.1