rt/lib/RT/Condition/StatusChange.pm

   1 # $Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Condition/StatusChange.pm,v 1.1 2002-08-12 06:17:08 ivan Exp $
   2 # Copyright 1996-2001 Jesse Vincent <jesse@fsck.com>
   3 # Released under the terms of the GNU General Public License
   4
   5 package RT::Condition::StatusChange;
   6 require RT::Condition::Generic;
   7
   8 @ISA = qw(RT::Condition::Generic);
   9
  10
  11 =head2 IsApplicable
  12
  13 If the argument passed in is equivalent to the new value of
  14 the Status Obj
  15
  16 =cut
  17
  18 sub IsApplicable {
  19     my $self = shift;
  20     if (($self->TransactionObj->Field eq 'Status') and
  21     ($self->Argument eq $self->TransactionObj->NewValue())) {
  22         return(1);
  23     }
  24     else {
  25         return(undef);
  26     }
  27 }
  28
  29 1;
  30