diff options
Diffstat (limited to 'rt/lib/RT/ScripConditions.pm')
| -rwxr-xr-x | rt/lib/RT/ScripConditions.pm | 73 |
1 files changed, 30 insertions, 43 deletions
diff --git a/rt/lib/RT/ScripConditions.pm b/rt/lib/RT/ScripConditions.pm index 76777cbef..145d94d6b 100755 --- a/rt/lib/RT/ScripConditions.pm +++ b/rt/lib/RT/ScripConditions.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) @@ -46,46 +46,52 @@ # # END BPS TAGGED BLOCK }}} -# Autogenerated by DBIx::SearchBuilder factory (by <jesse@bestpractical.com>) -# WARNING: THIS FILE IS AUTOGENERATED. ALL CHANGES TO THIS FILE WILL BE LOST. -# -# !! DO NOT EDIT THIS FILE !! -# - -use strict; - - =head1 NAME - RT::ScripConditions -- Class Description - + RT::ScripConditions - Collection of Action objects + =head1 SYNOPSIS - use RT::ScripConditions + use RT::ScripConditions; + =head1 DESCRIPTION + + =head1 METHODS =cut -package RT::ScripConditions; - -use RT::SearchBuilder; -use RT::ScripCondition; -use vars qw( @ISA ); -@ISA= qw(RT::SearchBuilder); +package RT::ScripConditions; +use strict; +use warnings; -sub _Init { - my $self = shift; - $self->{'table'} = 'ScripConditions'; - $self->{'primary_key'} = 'id'; +use RT::ScripCondition; - return ( $self->SUPER::_Init(@_) ); +use base 'RT::SearchBuilder'; + +sub Table { 'ScripConditions'} + +sub LimitToType { + my $self = shift; + my $type = shift; + $self->Limit (ENTRYAGGREGATOR => 'OR', + FIELD => 'Type', + VALUE => "$type") + if defined $type; + $self->Limit (ENTRYAGGREGATOR => 'OR', + FIELD => 'Type', + VALUE => "Correspond") + if $type eq "Create"; + $self->Limit (ENTRYAGGREGATOR => 'OR', + FIELD => 'Type', + VALUE => 'any'); + } @@ -101,23 +107,4 @@ sub NewItem { } RT::Base->_ImportOverlays(); -=head1 SEE ALSO - -This class allows "overlay" methods to be placed -into the following files _Overlay is for a System overlay by the original author, -_Vendor is for 3rd-party vendor add-ons, while _Local is for site-local customizations. - -These overlay files can contain new subs or subs to replace existing subs in this module. - -Each of these files should begin with the line - - no warnings qw(redefine); - -so that perl does not kick and scream when you redefine a subroutine or variable in your overlay. - -RT::ScripConditions_Overlay, RT::ScripConditions_Vendor, RT::ScripConditions_Local - -=cut - - 1; |