X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/eabfa79517bccb2dd56220ffd7f381605944bc7f..968c9d8f19707313ef55e58b3955209b9b841da8:/SL/AM.pm

diff --git a/SL/AM.pm b/SL/AM.pm
index 9780078f5..2ec225238 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -1249,6 +1249,8 @@ sub save_warehouse {
 
   my ($self, $myconfig, $form) = @_;
 
+  croak('Need at least one new bin') unless $form->{number_of_new_bins} > 0;
+
   SL::DB->client->with_transaction(sub {
     my $dbh = SL::DB->client->dbh;