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();