]> wagnertech.de Git - kivitendo-erp.git/blobdiff - SL/Dispatcher/AuthHandler/User.pm
SL::Controller::CustomerVendor::action_new in action_add umbenannt
[kivitendo-erp.git] / SL / Dispatcher / AuthHandler / User.pm
index e126d872f9045c2478b50a43cbd40baeb47b10ce..5ee543beb921752805d59d0afc5ccb490ccad6a0 100644 (file)
@@ -11,6 +11,9 @@ sub handle {
   my $login = $::form->{'{AUTH}login'} || $::auth->get_session_value('login');
   return $self->_error(%param) if !defined $login;
 
   my $login = $::form->{'{AUTH}login'} || $::auth->get_session_value('login');
   return $self->_error(%param) if !defined $login;
 
+  my $client_id = $::form->{'{AUTH}client_id'} || $::auth->get_session_value('client_id');
+  return $self->_error(%param) if !$client_id || !$::auth->set_client($client_id);
+
   %::myconfig = $::auth->read_user(login => $login);
 
   return $self->_error(%param) unless $::myconfig{login};
   %::myconfig = $::auth->read_user(login => $login);
 
   return $self->_error(%param) unless $::myconfig{login};