AutoChangeQueue - Revision history

Jbrandt at 12:20, 1 August 2016

2016-08-01T12:20:39Z

← Older revision		Revision as of 08:20, 1 August 2016
Line 15:		Line 15:
	my $newqueue = 'admin';		my $newqueue = 'admin';

	# si pas dans une action Take alors on sort		# si pas dans une action Take alors on sort
	return 1		return 1
	unless $self->TransactionObj->Type eq 'Take';		unless $self->TransactionObj->Type eq 'Take';

Jbrandt at 12:20, 1 August 2016

2016-08-01T12:20:17Z

← Older revision		Revision as of 08:20, 1 August 2016
Line 12:		Line 12:
	<syntaxhighlight lang="perl" line="1" >		<syntaxhighlight lang="perl" line="1" >

	my $group = 'admin';		my $group = 'admin';
	my $newqueue = 'admin';		my $newqueue = 'admin';

	# si pas dans une action Take alors on sort		# si pas dans une action Take alors on sort
	return 1		return 1
	unless $self->TransactionObj->Type eq 'Take';		unless $self->TransactionObj->Type eq 'Take';

	my $PrincipalObj = RT::Principal->new( $self->TransactionObj->CreatorObj );		my $PrincipalObj = RT::Principal->new( $self->TransactionObj->CreatorObj );
	$PrincipalObj->Load( $self->TransactionObj->CreatorObj->Id );		$PrincipalObj->Load( $self->TransactionObj->CreatorObj->Id );

	my $groupobj = RT::Group->new($self->TransactionObj->CreatorObj );		my $groupobj = RT::Group->new($self->TransactionObj->CreatorObj );
	$groupobj->LoadUserDefinedGroup($group);		$groupobj->LoadUserDefinedGroup($group);
	my $HasMember = $groupobj->HasMemberRecursively( $PrincipalObj );		my $HasMember = $groupobj->HasMemberRecursively( $PrincipalObj );
	if ($HasMember) {		if ($HasMember) {
	$RT::Logger->info("Ticket took by an admin : new ticket in admin queue");		$RT::Logger->info("Ticket took by an admin : new ticket in admin queue");
	my ($status, $msg) = $self->TicketObj->SetQueue($newqueue);		my ($status, $msg) = $self->TicketObj->SetQueue($newqueue);
	unless ($status) {		unless ($status) {
	$RT::Logger->warning("unable to set new queue");		$RT::Logger->warning("unable to set new queue");
	return undef;		return undef;
	}
	}		}
			}
	return 1;
			return 1;

	</syntaxhighlight>		</syntaxhighlight>

	Template: Global template: Blank		Template: Global template: Blank

Jbrandt at 12:19, 1 August 2016

2016-08-01T12:19:16Z

← Older revision		Revision as of 08:19, 1 August 2016
Line 9:		Line 9:
	Custom action preparation code: return 1;		Custom action preparation code: return 1;
	Custom action cleanup code:		Custom action cleanup code:

			<syntaxhighlight lang="perl" line="1" >

	my $group = 'admin';		my $group = 'admin';
	my $newqueue = 'admin';		my $newqueue = 'admin';
Line 14:		Line 17:
	# si pas dans une action Take alors on sort		# si pas dans une action Take alors on sort
	return 1		return 1
	unless $self-~~>~~TransactionObj-~~>~~Type eq 'Take';		unless $self->TransactionObj->Type eq 'Take';

	my $PrincipalObj = RT::Principal-~~>~~new( $self-~~>~~TransactionObj-~~>~~CreatorObj );		my $PrincipalObj = RT::Principal->new( $self->TransactionObj->CreatorObj );
	$PrincipalObj-~~>~~Load( $self-~~>~~TransactionObj-~~>~~CreatorObj-~~>~~Id );		$PrincipalObj->Load( $self->TransactionObj->CreatorObj->Id );

	my $groupobj = RT::Group-~~>~~new($self-~~>~~TransactionObj-~~>~~CreatorObj );		my $groupobj = RT::Group->new($self->TransactionObj->CreatorObj );
	$groupobj-~~>~~LoadUserDefinedGroup($group);		$groupobj->LoadUserDefinedGroup($group);
	my $HasMember = $groupobj-~~>~~HasMemberRecursively( $PrincipalObj );		my $HasMember = $groupobj->HasMemberRecursively( $PrincipalObj );
	if ($HasMember) {		if ($HasMember) {
	$RT::Logger-~~>~~info("Ticket took by an admin : new ticket in admin queue");		$RT::Logger->info("Ticket took by an admin : new ticket in admin queue");
	my ($status, $msg) = $self-~~>~~TicketObj-~~>~~SetQueue($newqueue);		my ($status, $msg) = $self->TicketObj->SetQueue($newqueue);
	unless ($status) {		unless ($status) {
	$RT::Logger-~~>~~warning("unable to set new queue");		$RT::Logger->warning("unable to set new queue");
	return undef;		return undef;
	}		}
Line 33:		Line 36:
	return 1;		return 1;

			</syntaxhighlight>

	Template: Global template: Blank		Template: Global template: Blank

Admin: 2 revisions imported

2016-04-06T20:03:16Z

2 revisions imported

New page

'''Overview'''

I've got two queues and two groups, one for admin and one for production. If an admin group member takes a ticket in the production queue, I want the ticket to go automatically into the admin queue. Just create this scrip in the '''production''' queue:

Description: AutoChangeQueue
Condition: On Owner Change
Custom condition:
Action: User Defined
Custom action preparation code: return 1;
Custom action cleanup code:
my $group = 'admin';
my $newqueue = 'admin';

# si pas dans une action Take alors on sort
return 1
unless $self->TransactionObj->Type eq 'Take';

my $PrincipalObj = RT::Principal->new( $self->TransactionObj->CreatorObj );
$PrincipalObj->Load( $self->TransactionObj->CreatorObj->Id );

my $groupobj = RT::Group->new($self->TransactionObj->CreatorObj );
$groupobj->LoadUserDefinedGroup($group);
my $HasMember = $groupobj->HasMemberRecursively( $PrincipalObj );
if ($HasMember) {
$RT::Logger->info("Ticket took by an admin : new ticket in admin queue");
my ($status, $msg) = $self->TicketObj->SetQueue($newqueue);
unless ($status) {
$RT::Logger->warning("unable to set new queue");
return undef;
}
}

return 1;

Template: Global template: Blank