[Rt-commit] r4747 - in rtir/branches/1.9-EXPERIMENTAL: lib/RT/Condition

[ruz at bestpractical.com]

Author: ruz
Date: Mon Mar 13 20:06:17 2006
New Revision: 4747

Modified:
   rtir/branches/1.9-EXPERIMENTAL/   (props changed)
   rtir/branches/1.9-EXPERIMENTAL/lib/RT/Condition/RTIR.pm

Log:
 r951 at cubic-pc:  cubic | 2006-03-14 04:04:28 +0300
 * add IsStatusChange condition


Modified: rtir/branches/1.9-EXPERIMENTAL/lib/RT/Condition/RTIR.pm
==============================================================================
--- rtir/branches/1.9-EXPERIMENTAL/lib/RT/Condition/RTIR.pm	(original)
+++ rtir/branches/1.9-EXPERIMENTAL/lib/RT/Condition/RTIR.pm	Mon Mar 13 20:06:17 2006
@@ -7,4 +7,14 @@
 
 use base 'RT::Condition::Generic';
 
+sub IsStatusChange {
+    my $self = shift;
+    my $type = $self->TransactionObj->Type;
+    return 1 if $type eq "Status" or
+        ( $type eq "Set" and
+          $self->TransactionObj->Field eq "Status" );
+
+    return 0;
+}
+
 1;