163 |
$c->assert_user_roles('Account Admins'); |
$c->assert_user_roles('Account Admins'); |
164 |
$c->stash( subpages => gensubpages('account') ); |
$c->stash( subpages => gensubpages('account') ); |
165 |
my @errors; |
my @errors; |
166 |
|
my @promoted; |
167 |
if ( defined $c->req->param('gid') and defined $c->req->param('username') ) |
if ( defined $c->req->param('gid') and defined $c->req->param('username') ) |
168 |
{ |
{ |
169 |
my $gid = $c->req->param('gid'); |
my $gid = $c->req->param('gid'); |
207 |
$idpool->replace( uidNumber => $uidnum ); |
$idpool->replace( uidNumber => $uidnum ); |
208 |
$mesg = $idpool->update; |
$mesg = $idpool->update; |
209 |
$c->log->info("ERROR IdPool could not be reset to $uidnum: ", $mesg->error) if $mesg->code; |
$c->log->info("ERROR IdPool could not be reset to $uidnum: ", $mesg->error) if $mesg->code; |
210 |
|
} else { |
211 |
|
push @promoted, $uid; |
212 |
} |
} |
213 |
} |
} |
214 |
} |
} |
231 |
my @groups = $mesg->entries; |
my @groups = $mesg->entries; |
232 |
$c->stash( groups => \@groups ); |
$c->stash( groups => \@groups ); |
233 |
$c->stash( errors => \@errors ); |
$c->stash( errors => \@errors ); |
234 |
|
$c->stash( promoted => \@promoted ); |
235 |
} |
} |
236 |
|
|
237 |
sub account_modify : Local { |
sub account_modify : Local { |