%# "I'm really enjoying not talking to you ... Let's not talk again _REAL_ soon... <& /Edit/Elements/PopHeader, Action => 'Owner.html' &>
<&|/l&>Approver Setting
> <&|/l&>Owner
> <&|/l&>Requestor's <&|/l&>level Admins
> <&|/l&>Requestor Group's <&|/l&>Roles
> <&|/l&>Group's <&|/l&>Roles
> <&|/l&>CustomField:
<& /Edit/Elements/PopFooter &> <%INIT> my $Workflows = RT::Templates->new($session{'CurrentUser'}); my $QueueObj = RT::Queue->new($session{'CurrentUser'}); $QueueObj->Load($Queue) if $Queue; if ($QueueObj->Id) { $Workflows->LimitToQueue($Queue); } else { $Workflows->LimitToGlobal(); } $Workflows->Limit( FIELD => 'Content', VALUE => '%===Create-Ticket:%', OPERATOR => 'LIKE' ); require RT::Workflow; my $List = RT::Workflow->new($session{'CurrentUser'}); if ( $Workflows->Count ) { $List->Load($Workflows->First->Id); } else { $List->Create( Queue => $Queue ); } my $Item = $List->Entries->{$Entry} || $RT::Nothing; if ($ARGS{'Action-Commit'}) { foreach my $method (grep /^Set/, keys %ARGS) { $Item->{substr($method, 3)} = $ARGS{$method}; } my %Field; foreach my $method (grep /^FieldSet/, keys %ARGS) { $Field{substr($method, 8)} = $ARGS{$method}; } $Item->SetOwnerFields(join(',', map { s/,/./g; $_ } %Field)) if %Field; $List->Parse($List->Dump); $List->Save; $m->print(''); $m->abort; } my $OwnerClass = $Item->OwnerClass || 'owner'; my %F = split(/,/, $Item->OwnerFields); my $CFs; if ($QueueObj->Id) { $CFs = $QueueObj->CustomFields; } else { $CFs = RT::CustomFields->new($session{'CurrentUser'}); $CFs->LimitToGlobal(); } my $Roles = RT::Groups->new($session{'CurrentUser'}); $Roles->LimitToRolesForGroup(); $Roles->OrderBy( FIELD => 'NAME' ); $List = RT::Groups->HRMSUserDefinedGroups( $session{'CurrentUser'} ); my $U = $session{CurrentUser}->UserObj; my $J = $U->table($U->normalize($U->table('employee'), 'job')); my %J = map {($_->{job_cname}, $_)} values %$J; my $Jobs; @$Jobs = sort keys %J; <%ARGS> $Queue $Entry $Parent