Admin: 2 revisions imported

2016-04-06T20:03:25Z

2 revisions imported

New page

This provides the functionality of cloning existing queues including templates, scrips, privileges and custom fields during queue creation. It requires the modification '''Admin/Queues/Modify.html''' to include 2 callback points and 2 callbacks in '''local/html/Callbacks/'''. I can be contacted at [mailto:ccelhf@nus.edu.sg ccelhf@nus.edu.sg] to answer any queries regarding this customization.

NOTE: this customization was only tested on RT3.6.7, please let me know if it works on other releases.

OK -- This doesn't work in 3.8.8 :) -- [[TomL]]

'''Admin/Queues/Modify.html'''

Place the following code after the "'''Description'''" input field.

<& /Elements/Callback, %ARGS, _CallbackName => 'CloneFrom' &>

and this before the "'''Process''''''Links'''" Callback.

$m->comp('/Elements/Callback', %ARGS, _CallbackName => 'Clone', newqueue => $QueueObj->Id, clonequeue => $CloneQueue);

You will need the following 2 callbacks in your '''local/html/Callbacks/'''

'''Admin/Queues/Modify.html/Clone''''''From'''

% if ( $ARGS{Create} == 1 ) {
<tr>
<td align="right">Clone from: </td>
<td colspan="3">
<& /Elements/SelectNewTicketQueue, Name=>'CloneQueue', ShowNullOption=>1 &>
</td>
</tr>
% }

and

'''Admin/Queues/Modify.html/Clone'''

<nowiki><%init>
return if ($clonequeue !~ /\d+/);

my $NewQueueObj = new RT::Queue($session{'CurrentUser'});
$NewQueueObj->Load($newqueue);

my $CloneQueueObj = new RT::Queue($session{'CurrentUser'});
$CloneQueueObj->Load($clonequeue);

#### attach all custom fields from clone queue to the new queue

my $objCFs = RT::ObjectCustomFields->new($RT::SystemUser);
$objCFs->LimitToObjectId($clonequeue);

my $objNewCF = RT::ObjectCustomField->new($session{'CurrentUser'});
while (my $cf = $objCFs->Next) {
$objNewCF->Create(ObjectId=>$newqueue,SortOrder=>$cf->SortOrder,CustomField=>$cf->CustomField);
}

#### assign group and user privileges from clone queue to the new queue

my $objACL = RT::ACL->new($RT::SystemUser);
$objACL->LimitToObject($CloneQueueObj);

my $objACE = RT::ACE->new($session{'CurrentUser'});
my $objGroup = RT::Group->new($session{'CurrentUser'});

while (my $acl = $objACL->Next) {
$objGroup->LoadQueueRoleGroup(Queue=>$newqueue, Type=>$acl->PrincipalType);
$objACE->Create(Object=>$NewQueueObj,
PrincipalId=>$objGroup->id || $acl->PrincipalId,
PrincipalType=>$acl->PrincipalType,
RightName=>$acl->RightName);
}

#### create templates for the new queue
my $objTemplates = RT::Templates->new($RT::SystemUser);
$objTemplates->LimitToQueue($clonequeue);

my $objTemplate = RT::Template->new($session{'CurrentUser'});

while (my $t = $objTemplates->Next) {
$objTemplate->Create(Content=>$t->Content,Queue=>$newqueue,Description=>$t->Description,Type=>$t->Type,Name=>$t->Name);
}

#### create scrips for the new queue

my $objScrips = RT::Scrips->new($RT::SystemUser);
$objScrips->LimitToQueue($clonequeue);

my $objScrip = RT::Scrip->new($session{'CurrentUser'});

while (my $s = $objScrips->Next) {
my $template;
$objTemplate->Load($s->Template);
if ($objTemplate->Queue == 0) { ### global template
$template = $s->Template;
}
else { ### local template, go find out which one
my $objLocalTemplate = RT::Template->new($session{'CurrentUser'});
$objLocalTemplate->LoadQueueTemplate(Queue=>$newqueue,Name=>$objTemplate->Name);
$template = $objLocalTemplate->id;
}
$objScrip->Create(
Queue=>$newqueue,
Description=>$s->Description,
ScripAction=>$s->ScripAction,
ScripCondition=>$s->ScripCondition,
CustomPrepareCode=>$s->CustomPrepareCode,
CustomCommitCode=>$s->CustomCommitCode,
CustomIsApplicableCode=>$s->CustomIsApplicableCode,
Stage=>$s->Stage,
Template=>$template);

}

</%init>

<%args>
$newqueue => undef
$clonequeue => undef
</%args>
</nowiki>

CloningQueues - Revision history

Admin: 2 revisions imported