AutoSetOwner - Revision history

Cris70: Added syntax highlighting

2019-10-01T08:43:52Z

Added syntax highlighting

← Older revision		Revision as of 04:43, 1 October 2019
Line 5:		Line 5:
	This custom action sets owner of the ticket to the current user if nobody yet owns the ticket. You can use this scrip action with any condition you want, for eg <code>On Resolve</code>.		This custom action sets owner of the ticket to the current user if nobody yet owns the ticket. You can use this scrip action with any condition you want, for eg <code>On Resolve</code>.

			<syntaxhighlight lang="perl" line="1" >
	Description: AutoSetOwner		Description: AutoSetOwner
	Condition: On Resolve		Condition: On Resolve
Line 11:		Line 12:
	return 1;		return 1;
	Custom action cleanup code:		Custom action cleanup code:
	\# get actor ID		# get actor ID
	my $Actor = $self-~~>~~TransactionObj-~~>~~Creator;~~<br />~~		my $Actor = $self->TransactionObj->Creator;
	\# if actor is RT_SystemUser then get out of here		# if actor is RT_SystemUser then get out of here
	return 1 if $Actor == $RT::SystemUser-~~>~~id;~~<br />~~		return 1 if $Actor == $RT::SystemUser->id;
	\# prevents a ticket being assigned to an unprivileged user, comment out if you want this		# prevents a ticket being assigned to an unprivileged user, comment out if you want this
	return 1 unless $self->TransactionObj->CreatorObj->Privileged;~~<br />~~		return 1 unless $self->TransactionObj->CreatorObj->Privileged;
	\# get out unless ticket owner is nobody		# get out unless ticket owner is nobody
	return 1 unless $self-~~>~~TicketObj-~~>~~Owner == $RT::Nobody-~~>~~id;~~<br />~~		return 1 unless $self->TicketObj->Owner == $RT::Nobody->id;
	\# ok, try to change owner		# ok, try to change owner
	$RT::Logger-~~>~~info("Auto assign ticket #". $self-~~>~~TicketObj-~~>~~id ." to user #". $Actor );		$RT::Logger->info("Auto assign ticket #". $self->TicketObj->id ." to user #". $Actor );
	my ($status, $msg) = $self-~~>~~TicketObj-~~>~~SetOwner( $Actor );		my ($status, $msg) = $self->TicketObj->SetOwner( $Actor );
	unless( $status ) {		unless( $status ) {
	$RT::Logger-~~>~~error( "Impossible to assign the ticket to $Actor: $msg" );		$RT::Logger->error( "Impossible to assign the ticket to $Actor: $msg" );
	return undef;		return undef;
	}		}
	return 1;		return 1;
	Template: Global template: Blank		Template: Global template: Blank
			</syntaxhighlight>

	N.B. If you do not have [[NotifyActor]] set and have the global default "On Owner Change Notify Owner with template Owner change" scrip, the above will notify the actor of the ticket being assigned to them as the [[SetOwner]] function creates a new transaction. To avoid this, use the following to set the ticket ownership:		N.B. If you do not have [[NotifyActor]] set and have the global default "On Owner Change Notify Owner with template Owner change" scrip, the above will notify the actor of the ticket being assigned to them as the [[SetOwner]] function creates a new transaction. To avoid this, use the following to set the ticket ownership:
Line 43:		Line 45:

	'''20181105/Cris70''' Fixed formatting of comments in code		'''20181105/Cris70''' Fixed formatting of comments in code

			'''20191001/Cris70''' Added syntax highlighting

	A variation on this theme is [[AutoSetOwnerIfAdminCc]]		A variation on this theme is [[AutoSetOwnerIfAdminCc]]

	Another variation is [[AutoSetOwnerForQueue]]		Another variation is [[AutoSetOwnerForQueue]]

Cris70 at 08:45, 5 November 2018

2018-11-05T08:45:09Z

← Older revision		Revision as of 04:45, 5 November 2018
Line 37:		Line 37:
	<u>Changelog:</u>		<u>Changelog:</u>

	20050525/Rejo Added "Condition" line		'''20050525/Rejo''' Added "Condition" line

	20060105/HaimDimer Translated the remaning French into English.		'''20060105/HaimDimer''' Translated the remaning French into English.<br />
	Changed the severity of the error message from "warning" to "error"		Changed the severity of the error message from "warning" to "error"

	20181105/Cris70 Fixed formatting of comments in code		'''20181105/Cris70''' Fixed formatting of comments in code

	A variation on this theme is [[AutoSetOwnerIfAdminCc]]		A variation on this theme is [[AutoSetOwnerIfAdminCc]]

	Another variation is [[AutoSetOwnerForQueue]]		Another variation is [[AutoSetOwnerForQueue]]

Cris70: Fixed formatting of comments in code

2018-11-05T08:41:48Z

Fixed formatting of comments in code

← Older revision		Revision as of 04:41, 5 November 2018
Line 11:		Line 11:
	return 1;		return 1;
	Custom action cleanup code:		Custom action cleanup code:
	# get actor ID		\# get actor ID
	my $Actor = $self->TransactionObj->Creator;		my $Actor = $self->TransactionObj->Creator;<br />
			\# if actor is RT_SystemUser then get out of here
	# if actor is RT_SystemUser then get out of here		return 1 if $Actor == $RT::SystemUser->id;<br />
	return 1 if $Actor == $RT::SystemUser->id;		\# prevents a ticket being assigned to an unprivileged user, comment out if you want this
			return 1 unless $self->TransactionObj->CreatorObj->Privileged;<br />
	# prevents a ticket being assigned to an unprivileged user, comment out if you want this		\# get out unless ticket owner is nobody
	return 1 unless $self->TransactionObj->CreatorObj->Privileged;		return 1 unless $self->TicketObj->Owner == $RT::Nobody->id;<br />
			\# ok, try to change owner
	# get out unless ticket owner is nobody
	return 1 unless $self->TicketObj->Owner == $RT::Nobody->id;

	# ok, try to change owner
	$RT::Logger->info("Auto assign ticket #". $self->TicketObj->id ." to user #". $Actor );		$RT::Logger->info("Auto assign ticket #". $self->TicketObj->id ." to user #". $Actor );
	my ($status, $msg) = $self->TicketObj->SetOwner( $Actor );		my ($status, $msg) = $self->TicketObj->SetOwner( $Actor );
Line 45:		Line 41:
	20060105/HaimDimer Translated the remaning French into English.		20060105/HaimDimer Translated the remaning French into English.
	Changed the severity of the error message from "warning" to "error"		Changed the severity of the error message from "warning" to "error"

			20181105/Cris70 Fixed formatting of comments in code

	A variation on this theme is [[AutoSetOwnerIfAdminCc]]		A variation on this theme is [[AutoSetOwnerIfAdminCc]]

	Another variation is [[AutoSetOwnerForQueue]]		Another variation is [[AutoSetOwnerForQueue]]

Admin: 4 revisions imported

2016-04-06T20:03:17Z

4 revisions imported

← Older revision		Revision as of 16:03, 6 April 2016
(No difference)

203.88.112.129: Added line to prevent a ticket being assigned to an unprivileged user.

2014-12-18T05:54:18Z

Added line to prevent a ticket being assigned to an unprivileged user.

← Older revision		Revision as of 01:54, 18 December 2014
Line 16:		Line 16:
	# if actor is RT_SystemUser then get out of here		# if actor is RT_SystemUser then get out of here
	return 1 if $Actor == $RT::SystemUser->id;		return 1 if $Actor == $RT::SystemUser->id;

			# prevents a ticket being assigned to an unprivileged user, comment out if you want this
			return 1 unless $self->TransactionObj->CreatorObj->Privileged;

	# get out unless ticket owner is nobody		# get out unless ticket owner is nobody

128.117.9.117 at 15:41, 26 July 2011

2011-07-26T15:41:56Z

New page

Contributed by [[NicolasC]]

'''Overview'''

This custom action sets owner of the ticket to the current user if nobody yet owns the ticket. You can use this scrip action with any condition you want, for eg <code>On Resolve</code>.

Description: AutoSetOwner
Condition: On Resolve
Action: User Defined
Custom action preparation code:
return 1;
Custom action cleanup code:
# get actor ID
my $Actor = $self->TransactionObj->Creator;

# if actor is RT_SystemUser then get out of here
return 1 if $Actor == $RT::SystemUser->id;

# get out unless ticket owner is nobody
return 1 unless $self->TicketObj->Owner == $RT::Nobody->id;

# ok, try to change owner
$RT::Logger->info("Auto assign ticket #". $self->TicketObj->id ." to user #". $Actor );
my ($status, $msg) = $self->TicketObj->SetOwner( $Actor );
unless( $status ) {
$RT::Logger->error( "Impossible to assign the ticket to $Actor: $msg" );
return undef;
}
return 1;
Template: Global template: Blank

N.B. If you do not have [[NotifyActor]] set and have the global default "On Owner Change Notify Owner with template Owner change" scrip, the above will notify the actor of the ticket being assigned to them as the [[SetOwner]] function creates a new transaction. To avoid this, use the following to set the ticket ownership:

$self->TicketObj->_Set(Field => 'Owner', Value => $Actor, RecordTransaction => 0);

This, as detailed on the [[WriteCustomAction]] page will not record the change as a transaction, thus preventing notification.

<u>Changelog:</u>

20050525/Rejo Added "Condition" line

20060105/HaimDimer Translated the remaning French into English.
Changed the severity of the error message from "warning" to "error"

A variation on this theme is [[AutoSetOwnerIfAdminCc]]

Another variation is [[AutoSetOwnerForQueue]]