%# No one can make you feel inferior without your consent. %# -- Eleanor Roosevelt <& /Edit/Elements/PopHeader, Title => loc('Pick'), $IsWork ? (BG => '#C0EBEB') : () &>
<& /Edit/Elements/PopFooter &> <%INIT> my $QueueObj = RT::Queue->new($session{'CurrentUser'}); $QueueObj->Load($Queue) or Abort("Cannot load queue $Queue"); if ($User) { foreach my $User (@{$QueueObj->AdminCc->UserMembersObj->ItemsArrayRef}) { $QueueObj->AdminCc->DeleteMember($User->PrincipalId); } if ($User) { my ($val, $msg) = $QueueObj->AdminCc->AddMember($User); Abort($msg) unless $val; } $QueueObj->UpdateCompany if $QueueObj->can('UpdateCompany'); $m->print(""); $m->abort; } my $U = $session{'CurrentUser'}->UserObj; my $J = $U->table($U->normalize($U->table('employee'), 'job')); my $company = $U->val('company') || 1; my %J = map {($_->{job_cname}, $_->{job_id})} grep { $_->{company_id} eq $company } values %$J; my $Jobs; @$Jobs = sort keys %J; my $Groups = RT::Groups->new($session{'CurrentUser'}); $Groups->LimitToUserDefinedGroups(); my $List = $Groups->ItemsArrayRef; @$List = ( map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { [ $_ => (int($_->Description) ? 1 : 0) . $_->Name ] } grep { $_->Description >= 0 } grep { $_->Name } @$List ); my $Users = $RT::Nothing; if ($Group or $Job) { $Users = RT::Users->new($session{'CurrentUser'}); $Users->Limit( FIELD => 'ExternalAuthId', OPERATOR => '!=', VALUE =>'0'); $Users->MemberOfGroup($Group) if $Group; } <%ARGS> $User => 0 $IsWork => 0 $Queue => '' $Group => 0 $Job => 0 $CurrentUser => $session{'CurrentUser'}->UserObj->PrincipalId