3 # Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
5 # (Except where explictly superceded by other copyright notices)
7 # This work is made available to you under the terms of Version 2 of
8 # the GNU General Public License. A copy of that license should have
9 # been provided with this software, but in any event can be snarfed
12 # This work is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 # General Public License for more details.
17 # Unless otherwise specified, all modifications, corrections or
18 # extensions to this work which alter its source code become the
19 # property of Best Practical Solutions, LLC when submitted for
20 # inclusion in the work.
27 package RT::Condition::OwnerChange;
28 require RT::Condition::Generic;
32 @ISA = qw(RT::Condition::Generic);
37 If we're changing the owner return true, otherwise return false
41 my $q = RT::Queue->new($RT::SystemUser);
42 $q->Create(Name =>'ownerChangeTest');
44 ok($q->Id, "Created a scriptest queue");
46 my $s1 = RT::Scrip->new($RT::SystemUser);
47 my ($val, $msg) =$s1->Create( Queue => $q->Id,
48 ScripAction => 'User Defined',
49 ScripCondition => 'On Owner Change',
50 CustomIsApplicableCode => '',
51 CustomPrepareCode => 'return 1',
53 $RT::Logger->crit("Before, prio is ".$self->TicketObj->Priority);
54 $self->TicketObj->SetPriority($self->TicketObj->Priority+1);
55 $RT::Logger->crit("After, prio is ".$self->TicketObj->Priority);
62 my $ticket = RT::Ticket->new($RT::SystemUser);
63 my ($tv,$ttv,$tm) = $ticket->Create(Queue => $q->Id,
64 Subject => "hair on fire",
65 InitialPriority => '20'
68 ok($ticket->SetOwner('root'));
69 is ($ticket->Priority , '21', "Ticket priority is set right");
71 is ($ticket->Priority , '22', "Ticket priority is set right");
73 is ($ticket->Priority , '23', "Ticket priority is set right");
75 is ($ticket->Priority , '24', "Ticket priority is set right");
88 if ($self->TransactionObj->Field eq 'Owner') {
96 eval "require RT::Condition::OwnerChange_Vendor";
97 die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/OwnerChange_Vendor.pm});
98 eval "require RT::Condition::OwnerChange_Local";
99 die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/OwnerChange_Local.pm});