[Rt-commit] r4249 - in rtir/branches/1.9-EXPERIMENTAL: .
lib/RT/Action
ruz at bestpractical.com
ruz at bestpractical.com
Sun Dec 4 19:10:06 EST 2005
Author: ruz
Date: Sun Dec 4 19:10:05 2005
New Revision: 4249
Modified:
rtir/branches/1.9-EXPERIMENTAL/ (props changed)
rtir/branches/1.9-EXPERIMENTAL/lib/RT/Action/RTIR_SetStartsToNow.pm
Log:
r428 at cubic-pc: cubic | 2005-12-05 03:09:11 +0300
r407 at cubic-pc: cubic | 2005-12-05 03:06:35 +0300
* minor
Modified: rtir/branches/1.9-EXPERIMENTAL/lib/RT/Action/RTIR_SetStartsToNow.pm
==============================================================================
--- rtir/branches/1.9-EXPERIMENTAL/lib/RT/Action/RTIR_SetStartsToNow.pm (original)
+++ rtir/branches/1.9-EXPERIMENTAL/lib/RT/Action/RTIR_SetStartsToNow.pm Sun Dec 4 19:10:05 2005
@@ -46,9 +46,7 @@
#
package RT::Action::RTIR_SetStartsToNow;
-
use strict;
-
use base 'RT::Action::RTIR';
=head2 Prepare
@@ -57,25 +55,21 @@
=cut
-
sub Prepare {
my $self = shift;
# if triggered by a "Set Starts" transaction, return 0
if ($self->TransactionObj->Type eq 'Set' &&
- $self->TransactionObj->Field eq 'Starts') {
- return 0;
+ $self->TransactionObj->Field eq 'Starts')
+ {
+ return 0;
}
# set if the Starts value isn't already set
- if ($self->TicketObj->StartsObj->Unix < 0) {
- return 1;
- } else {
- return 0;
- }
-}
+ return 0 if $self->TicketObj->StartsObj->Unix > 0;
-# {{{ sub Commit
+ return 1;
+}
=head2 Commit
@@ -93,8 +87,6 @@
return 1;
}
-# }}}
-
eval "require RT::Action::RTIR_SetStartsToNow_Vendor";
die $@ if ($@ && $@ !~ qr{^Can't locate RT/Action/RTIR_SetStartsToNow_Vendor.pm});
eval "require RT::Action::RTIR_SetStartsToNow_Local";
More information about the Rt-commit
mailing list