rt/lib/RT/Condition/OwnerChange.pm

   1 # BEGIN LICENSE BLOCK
   2 #
   3 # Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
   4 #
   5 # (Except where explictly superceded by other copyright notices)
   6 #
   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
  10 # from www.gnu.org.
  11 #
  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.
  16 #
  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.
  21 #
  22 #
  23 # END LICENSE BLOCK
  24
  25
  26
  27 package RT::Condition::OwnerChange;
  28 require RT::Condition::Generic;
  29
  30 use strict;
  31 use vars qw/@ISA/;
  32 @ISA = qw(RT::Condition::Generic);
  33
  34
  35 =head2 IsApplicable
  36
  37 If we're changing the owner return true, otherwise return false
  38
  39 =begin testing
  40
  41 my $q = RT::Queue->new($RT::SystemUser);
  42 $q->Create(Name =>'ownerChangeTest');
  43
  44 ok($q->Id, "Created a scriptest queue");
  45
  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',
  52              CustomCommitCode => '
  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);
  56                 return(1);
  57             ',
  58              Template => 'Blank'
  59     );
  60 ok($val,$msg);
  61
  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'
  66                                     );
  67 ok($tv, $tm);
  68 ok($ticket->SetOwner('root'));
  69 is ($ticket->Priority , '21', "Ticket priority is set right");
  70 ok($ticket->Steal);
  71 is ($ticket->Priority , '22', "Ticket priority is set right");
  72 ok($ticket->Untake);
  73 is ($ticket->Priority , '23', "Ticket priority is set right");
  74 ok($ticket->Take);
  75 is ($ticket->Priority , '24', "Ticket priority is set right");
  76
  77
  78
  79
  80
  81 =end testing
  82
  83
  84 =cut
  85
  86 sub IsApplicable {
  87     my $self = shift;
  88     if ($self->TransactionObj->Field eq 'Owner') {
  89         return(1);
  90     }
  91     else {
  92         return(undef);
  93     }
  94 }
  95
  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});
 100
 101 1;
 102