X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Flib%2FRT%2FCondition.pm;h=2aa6545aaaea11ab653ef4b7eb613950879203c3;hb=31f3763747b82764bb019cfab5b2a2945fc9a99d;hp=2e0a94b929f829525c6dfb025b034ae65f0444db;hpb=01f60974743197ac14e569c16c68a0c2ff3a5bd4;p=freeside.git diff --git a/rt/lib/RT/Condition.pm b/rt/lib/RT/Condition.pm index 2e0a94b92..2aa6545aa 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-2015 Best Practical Solutions, LLC # # # (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();