my ($self, $form) = @_;
- my $employee = SL::DB::Manager::Employee->find_by(login => $::myconfig{login});
+ my $employee = SL::DB::Manager::Employee->current;
$employee->update_attributes(name => $form->{name});
my $user = SL::DB::Manager::AuthUser->find_by(login => $::myconfig{login});
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;