projekt kivitendo

      my $timestamp = $now->format_cldr('yyyyMMddHHmmss');

      my $dbh = $client->dbconnect(AutoCommit => 1);

      $dbh->do(qq|UPDATE employee SET login = ? WHERE login = ?;|,undef,

               $params->{'login'} . $timestamp, $params->{'login'});

      $dbh->disconnect;

  my $clients = SL::DB::Manager::AuthClient->get_all_sorted;

  for my $client (@$clients) {

    my $dbh = $client->dbconnect();

    my ($result) = $dbh->selectrow_array(qq|SELECT login FROM employee WHERE login = ?;|,undef,

                                        $self->user->{'login'});

    $dbh->disconnect;