X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/eabfa79517bccb2dd56220ffd7f381605944bc7f..d1f58302cc300e4e7a6420eff5e0630d1fb388d2:/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;