%# "I'm really enjoying not talking to you ... Let's not talk again _REAL_ soon...
<& /Edit/Elements/PopHeader, Action => 'Owner.html' &>
|
<& /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;
%INIT>
<%ARGS>
$Queue
$Entry
$Parent
%ARGS>