diff options
Diffstat (limited to 'rt/lib/RT/Condition.pm')
-rwxr-xr-x | rt/lib/RT/Condition.pm | 23 |
1 files changed, 2 insertions, 21 deletions
diff --git a/rt/lib/RT/Condition.pm b/rt/lib/RT/Condition.pm index 2e0a94b92..f50d64d51 100755 --- a/rt/lib/RT/Condition.pm +++ b/rt/lib/RT/Condition.pm @@ -2,7 +2,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC # <sales@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -80,9 +80,9 @@ package RT::Condition; use strict; use warnings; + use base qw/RT::Base/; -# {{{ sub new sub new { my $proto = shift; my $class = ref($proto) || $proto; @@ -91,9 +91,7 @@ sub new { $self->_Init(@_); return $self; } -# }}} -# {{{ sub _Init sub _Init { my $self = shift; my %args = ( TransactionObj => undef, @@ -112,11 +110,9 @@ sub _Init { $self->{'ApplicableTransTypes'} = $args{'ApplicableTransTypes'}; $self->CurrentUser($args{'CurrentUser'}); } -# }}} # Access Scripwide data -# {{{ sub Argument =head2 Argument @@ -128,9 +124,7 @@ sub Argument { my $self = shift; return($self->{'Argument'}); } -# }}} -# {{{ sub TicketObj =head2 TicketObj @@ -142,9 +136,7 @@ sub TicketObj { my $self = shift; return($self->{'TicketObj'}); } -# }}} -# {{{ sub ScripObj =head2 ScripObj @@ -156,8 +148,6 @@ sub ScripObj { my $self = shift; return($self->{'ScripObj'}); } -# }}} -# {{{ sub TransactionObj =head2 TransactionObj @@ -169,9 +159,7 @@ sub TransactionObj { my $self = shift; return($self->{'TransactionObj'}); } -# }}} -# {{{ sub Type =head2 Type @@ -183,7 +171,6 @@ sub ApplicableTransTypes { my $self = shift; return($self->{'ApplicableTransTypes'}); } -# }}} # Scrip methods @@ -191,24 +178,20 @@ sub ApplicableTransTypes { #What does this type of Action does -# {{{ sub Describe sub Describe { my $self = shift; return ($self->loc("No description for [_1]", ref $self)); } -# }}} #Parse the templates, get things ready to go. #If this rule applies to this transaction, return true. -# {{{ sub IsApplicable sub IsApplicable { my $self = shift; return(undef); } -# }}} sub Options { my $self = shift; @@ -223,7 +206,6 @@ sub Rules { return(split "\n", $self->ScripObj->ConditionRules); } -# {{{ sub DESTROY sub DESTROY { my $self = shift; @@ -236,7 +218,6 @@ sub DESTROY { } -# }}} RT::Base->_ImportOverlays(); |