From 0845ca9d3bd7adc7689a34d562c3ff0371711514 Mon Sep 17 00:00:00 2001 From: "Martin Helmling martin.helmling@octosoft.eu" Date: Thu, 19 Mar 2020 17:25:31 +0100 Subject: [PATCH] Inventory Helper: Bessere Fehlermeldung bei fehlenden Parametern MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Alle Fehler im allocate() des Inventory-Helpers werden nun per SL::X::Inventory::Allocation Fehlermethode erzeugt, damit es eine einheitliche Prüfung geben kann. verbessert egw 12413 --- SL/Helper/Inventory.pm | 13 +++++++++++-- locale/de/all | 2 ++ 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/SL/Helper/Inventory.pm b/SL/Helper/Inventory.pm index 538876666..cd5090780 100644 --- a/SL/Helper/Inventory.pm +++ b/SL/Helper/Inventory.pm @@ -167,8 +167,17 @@ sub get_onhand { sub allocate { my (%params) = @_; - my $part = $params{part} or Carp::croak('allocate needs a part'); - my $qty = $params{qty} or Carp::croak('allocate needs a qty'); + die SL::X::Inventory::Allocation->new( + error => 'allocate needs a part', + msg => t8("Method allocate needs the parameter 'part'"), + ) unless $params{part}; + die SL::X::Inventory::Allocation->new( + error => 'allocate needs a qty', + msg => t8("Method allocate needs the parameter 'qty'"), + ) unless $params{qty}; + + my $part = $params{part}; + my $qty = $params{qty}; return () if $qty <= 0; diff --git a/locale/de/all b/locale/de/all index 4f3384afd..202108d70 100755 --- a/locale/de/all +++ b/locale/de/all @@ -1963,6 +1963,8 @@ $self->{texts} = { 'Meta tag keywords' => 'Metatag Keywords', 'Meta tag title' => 'Metatag Titel', 'Method' => 'Verfahren', + 'Method allocate needs the parameter \'part\'' => 'Es fehlt der Parameter \'part\'', + 'Method allocate needs the parameter \'qty\'' => 'Es fehlt der Parameter \'qty\' oder die Menge ist 0', 'Microfiche' => 'Mikrofilm', 'Minimum Amount' => 'Mindestbetrag', 'Miscellaneous' => 'Verschiedenes', -- 2.20.1