%# "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>