Payment-Helper _skonto_charts... debugs und kommentare aufgeräumt

[mfinanz.git] / SL / AM.pm

diff --git a/SL/AM.pm b/SL/AM.pm
index 57e6b445abf44c388e3bc682401b98401f929dc8..2ec225238a2ca63ab14fd156e73b4cb5846c15ae 100644 (file)
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -556,7 +556,7 @@ sub save_preferences {
 
   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});
@@ -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;