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