#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2017 Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
use RT::Condition;
my $foo = RT::Condition->new(
- TransactionObj => $tr,
- TicketObj => $ti,
- ScripObj => $scr,
- Argument => $arg,
- Type => $type);
+ TransactionObj => $tr,
+ TicketObj => $ti,
+ ScripObj => $scr,
+ Argument => $arg,
+ Type => $type);
if ($foo->IsApplicable) {
- # do something
+ # do something
}
sub _Init {
my $self = shift;
my %args = ( TransactionObj => undef,
- TicketObj => undef,
- ScripObj => undef,
- TemplateObj => undef,
- Argument => undef,
- ApplicableTransTypes => undef,
+ TicketObj => undef,
+ ScripObj => undef,
+ TemplateObj => undef,
+ Argument => undef,
+ ApplicableTransTypes => undef,
CurrentUser => undef,
- @_ );
-
+ @_ );
+
$self->{'Argument'} = $args{'Argument'};
$self->{'ScripObj'} = $args{'ScripObj'};
$self->{'TicketObj'} = $args{'TicketObj'};
return(undef);
}
-sub Options {
- my $self = shift;
- return();
-}
-
-sub Rules {
- my $self = shift;
- return () if !$self->ScripObj or !$self->ScripObj->ConditionRules;
- # By default, option names and values are on consecutive lines.
- # Override this if you need anything more interesting.
- return(split "\n", $self->ScripObj->ConditionRules);
-}
-
sub DESTROY {
my $self = shift;