X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f27b1f4819fac91b1dce3a7bf25945f479b7b908..33823a7743de188f6e37802716ee5bd877a3ec5f:/SL/Helper/Inventory.pm

diff --git a/SL/Helper/Inventory.pm b/SL/Helper/Inventory.pm
index 11857fecf..da3e5b1d8 100644
--- a/SL/Helper/Inventory.pm
+++ b/SL/Helper/Inventory.pm
@@ -152,8 +152,8 @@ sub get_onhand {
 sub allocate {
   my (%params) = @_;
 
-  croak('allocate needs a qty') unless $params{part};
-  croak('allocate needs a qty') unless $params{qty};
+  croak('allocate needs a part') unless $params{part};
+  croak('allocate needs a qty')  unless $params{qty};
 
   my $part = $params{part};
   my $qty  = $params{qty};