projekt kivitendo

use Digest::MD5 qw(md5_hex);

use IO::File;

use Time::HiRes qw(gettimeofday);

use SL::Auth::DB;

use SL::Auth::LDAP;

  $sth   = prepare_query($form, $dbh, $query);

  foreach $group (values %{$groups}) {

    do_statement($form, $sth, $query, $group->{id});

    while ($row = $sth->fetchrow_hashref()) {

    }

  }

  $sth->finish();

  $query  = qq|INSERT INTO auth.user_group (user_id, group_id) VALUES (?, ?)|;

  $sth    = prepare_query($form, $dbh, $query);

    do_statement($form, $sth, $query, $user_id, $group->{id});

  }

  $sth->finish();

#

#======================================================================

sub edit_groups {

  $lxdebug->enter_sub();

  my %all_users   = $auth->read_all_users();

  my %users_by_id = map { $_->{id} => $_ } values %all_users;

  my @non_members = sort { lc $a->{login} cmp lc $b->{login} } grep { !$grouped{$_->{id}} } values %all_users;

  my @rights = map {

  }

  $group = $groups->{$form->{group_id}};

  $auth->save_group($group);

  }

  $group            = $groups->{$form->{group_id}};

  $auth->save_group($group);