OnMerge - Revision history

Tharn at 22:51, 13 August 2016

2016-08-13T22:51:18Z

← Older revision		Revision as of 18:51, 13 August 2016
Line 22:		Line 22:
	=== Custom Condition ===		=== Custom Condition ===

	<~~nowiki~~>#Transaction Association		<pre>
			#Transaction Association
	my $txn = $self->TransactionObj;		my $txn = $self->TransactionObj;

Line 57:		Line 58:
	return 1;		return 1;

	</~~nowiki~~>		</pre>

	=== Custom Action Preperation Code ===		=== Custom Action Preperation Code ===

	<~~nowiki~~>#nothing to do here.. just return		<pre>
			#nothing to do here.. just return
	return 1;		return 1;
	</~~nowiki~~>		</pre>

	=== Custom Action Cleanup Code ===		=== Custom Action Cleanup Code ===

	<~~nowiki~~>		<pre>
	use List::MoreUtils qw/ uniq /;		use List::MoreUtils qw/ uniq /;

Line 121:		Line 123:

	return 1;		return 1;
	</~~nowiki~~>		</pre>

	[[Category:Alternate Custom Action Cleanup Code for Multiple Entries]]		[[Category:Alternate Custom Action Cleanup Code for Multiple Entries]]

Admin: 6 revisions imported

2016-04-06T20:15:50Z

6 revisions imported

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

128.117.9.117: added missing include

2011-07-28T18:44:36Z

added missing include

Show changes

128.117.9.117: Changed code to handle multiple value fields and to actually merge, not overwrite

2011-07-28T18:43:10Z

Changed code to handle multiple value fields and to actually merge, not overwrite

Show changes

38.99.213.170: Adding categories

2010-12-30T00:53:57Z

Adding categories

← Older revision		Revision as of 20:53, 29 December 2010
Line 108:		Line 108:
	return 1;		return 1;
	</nowiki>		</nowiki>
			[[Category:Alternate Custom Action Cleanup Code for Multiple Entries]]

38.99.213.170: /* Custom Condition */

2010-12-29T23:48:40Z

Custom Condition

New page

Return true if current transaction is merge action.

Custom condition code:

my $txn = $self->TransactionObj;
return undef unless $txn->Type =~ /^AddLink$/i;
return undef unless $txn->Field =~ /^MergedInto$/i;
return 1;

If you need to refer to the original ticket id in a template it is available as $Transaction->[[ObjectId]].

Variation:

Another Variation that says, if we are merging from a queue into a set of queues, and data from the merging tickets Custom fields need to be populated into the ticket your merging into..

Description: OnMergeCF
Condition: User Defined
Action: User Defined
Template: Global Template: Transaction
State: TransactionCreate

=== Custom Condition ===

<nowiki>#Transaction Association
my $txn = $self->TransactionObj;

#Condition on Type
return undef unless $txn->Type =~ /^AddLink$/i;
return undef unless $txn->Field =~ /^MergedInto$/i;

$RT::Logger->info('Merge is Occurring');

#Ticket Association
#The New Ticket your Merging into
my $ticket = $self->TicketObj;

#The old Ticket your merging From
my $oldTicket = RT::Ticket->new($RT::SystemUser);
$oldTicket->LoadById($txn->ObjectId);

$RT::Logger->info('Merging '.$txn->ObjectId.' into '.$ticket->Id);

#Are we merging from the right queue?
my $oldqueue = $oldTicket->Queue;
return undef unless $oldqueue == 36;

$RT::Logger->info('Merging From Lead Tracking Queue');

#Are we merging into an allowed queue?
my @queues = qw(Enrollment/Recruitment Installation Accounting HealthCheck/Follow-up);
my $queue = $ticket->QueueObj->Name;
my $qCount = grep(/\Q$queue\E/,@queues);
return undef unless $qCount >= 1;

$RT::Logger->info('Merging into an allowed Queue');

return 1;

</nowiki>

=== Custom Action Preperation Code ===

<nowiki>#nothing to do here.. just return
return 1;
</nowiki>

=== Custom Action Cleanup Code ===

<nowiki> #Define the Custom Field Name Were Going to Play with.
my $CFName = 'Lead Source';

#Transaction Association
my $txnObj = $self->TransactionObj;

#Ticket Association
#The New Ticket your Merging into
my $ticketObj = $self->TicketObj;
my $queueObj = $self->TicketObj->QueueObj;
my $CFObj = RT::CustomField->new($RT::SystemUser);
$CFObj->LoadByNameAndQueue(Name => $CFName, Queue => $queueObj->id);
unless($CFObj->id) {
$CFObj->LoadByNameAndQueue(Name => $CFName, Queue=>0);
unless($CFObj->id){
$RT::Logger->warning("Custom Field: $CFName not for this Queue");
return undef;
};
};

#The old Ticket your merging From
my $oldTicket = RT::Ticket->new($RT::SystemUser);
$oldTicket->LoadById($txnObj->ObjectId);

#We dont care if we blank out the Ticket Being Merged into.
my $cfv = $oldTicket->FirstCustomFieldValue($CFName);

#ok lets set this..

my ($st, $msg) = $ticketObj->AddCustomFieldValue(
Field => $CFObj->id,
Value => $cfv,
RecordTransaction => 1
);

unless ($st){
$RT::Logger->warning("Odd we couldn't set $CFName to $cfv");
};
return 1;
</nowiki>